Fejl i connection med txt fil og while - wend løkke.

hvad er der galt med denne kode... jeg får hele tiden iis serveren på min pc til at gå ned... og det hjælper ikke at genstarte serveren, jeg skal genstarte hele pcen.
--------------
    Set fso = CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath("files/test.txt")
    Set f = fso.OpenTextFile(filespec,1)
    Response.write f.ReadLine
   
        while not stream.AtEndOfStream
   
            word = 1
            i = 1
            j = 1
            line = stream.ReadLine
   
            while j <> 0
                j = inStr(i, line, chr(9), vbTextCompare)
           
                if j > 0 then
                    s = Mid(line, i, j-i)
                   
                        select case word
                            case 2
                                varenr_get = s
                            case 3
                                name = s
                            case 6
                                buy_price = s
                            case 7
                                stock = s
                        end select
                   

                    i = j +1
                    word = word +1
                end if
            wend
        '    if varenr_get = varenr then
        '        sql = "insert into products (prod_varenr,prod_name,prod_buy_price,prod_stock,prod_distributor,prod_subcat_id) values ('"&varenr&"','"&name&"','"&buy_price&"','"&stock&"','"&distributor&"','"&subcat_id&"')"
        '        conn.execute (sql)
        '        response.redirect "infodata.asp"
        '        mode = 2
        '        break
        '    end if
        wend
---------------
please help
wraber