Problemer med at hente data ud af kommasepareret fil

Jeg fåe en uendelig løkke når jeg gør følgende:

<%
set tilbudFile = server.createObject( "Scripting.FileSystemObject")
tilbudPath = server.mappath("upload\tilbud.txt")
set tilbudData = tilbudFile.OpenTextFile (tilbudPath)

Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
DataConn.Open "DSN=hpv;DBQ=C:\Database\hpv\hpv.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"

' slet alle data i tabellen
SQL = "DELETE * FROM tilbud"
DataConn.Execute(SQL)

' ligger nye data i tabellen

tilbudLinie = tilbudData.readline
do while tilbudData.atendofstream = false
   
    tilbudCheck        = Mid(tilbudlinie, 1 , 13)
    Y                = InStr(tilbudCheck, ";")
    IF NOT Y = 0 THEN
        sql = "INSERT INTO tilbud (V_nr) VALUES ("& trim(Mid(tilbudlinie,  1 ,  12))&")"
        DataConn.Execute(SQL)
    end if
loop
%>

og tekstfilen (tilbud.txt): jeg har markeret linie skiftne.

        0140;VISKERBLADE 410 MM            ;        19,95;4010126162069;8522039;1      ;        1;      50;      800;    0,228;      267;
--------- linie skift --------------
          10;          ;        17,95;
--------- linie skift --------------
          50;          ;        16,95;
--------- linie skift --------------
        0141;VISKERBLADE 450 MM            ;        22,95;4010126162076;8522047;1      ;        1;      50;      800;    0,27;      267;
--------- linie skift ---------------
          10;          ;        20,95;
--------- linie skift ---------------
          50;          ;        19,95;
--------- linie skift ---------------
        0142;VISKERBLADE 510 MM            ;        24,95;4010126162083;8522054;1      ;        1;     
50;      800;    0,274;      267;
--------- linie skift ---------------
          10;          ;        22,95;