1. gang virker det - anden gang virker det ikke!

Hejsa

Jeg har følgende kode som virker første gang man laver en indtastning, men anden gang indsættes der ikke i DB\'en.
Jeg kan ikke se at der skulle være nogen fejl og det har da også virket for et stykke tid siden!

Håber I kan hjælpe.
HEr er koden:

<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"revisor\"

If Request.Form(\"dato1\") = \"\" OR Request.Form(\"bilag1\") = \"\" OR Request.Form(\"konto1\") = \"\" OR Request.Form(\"tekst1\") = \"\" Then
    Response.Redirect(\"no_save.asp\")
End if

Session(\"Kundenr\")
Session(\"Password\")

\'Danner kommafilen ud fra kundenr
filEfternavn = \".kom\"

\'Find et filnavn
Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
fileName = Session(\"Kundenr\")&filEfternavn

i = 1

do while objFSO.FileExists(Server.MapPath(\"./concorde/\"&fileName))
        fileName = Session(\"Kundenr\")&\"(\"&i&\")\"&filEfternavn
        i = i + 1
loop
Set objTextStream = objFSO.CreateTextFile(Server.MapPath(\"./concorde/\"&fileName))

\'indsætter i DB
sql = \"INSERT INTO Data (Kundenr_id,Sys_dato,Kom_fil) VALUES (\"&\"\'\"&Request.Form(\"kundenr\")&\"\', \'\"&date&\"\', \'\"&filename&\"\')\"
If Request.Form(\"Dato\"&i) <> \"\" Then
    Connect.Execute(sql)
End if

\'Skriver til text-filen linie for linie
If Request.Form(\"dato1\") <> \"\" OR Request.Form(\"bilag1\") <> \"\" OR Request.Form(\"konto1\") <> \"\" OR Request.Form(\"tekst1\") <> \"\" Then
    for i = 1 to 5
        outStr = Request.Form(\"dato\" & i) & \",\"
        outStr = outStr & Request.Form(\"bilag\" & i) &  \",\"
        outStr = outStr & Request.Form(\"t\" & i) & \",\"
        outStr = outStr & Request.Form(\"konto\" & i) & \",\"
        outStr = outStr & Request.Form(\"tekst\" & i) & \",\"
        outStr = outStr & Request.Form(\"kasse_ind\" & i) & \",\"
        outStr = outStr & Request.Form(\"kasse_ud\" & i) & \",\"
        outStr = outStr & Request.Form(\"bank_ind\" & i) & \",\"
        outStr = outStr & Request.Form(\"bank_ud\" & i)
       
        If outStr <> \",,,,,,,,\" Then
            objTextStream.WriteLine outStr
        End if
    next
End if

objTextStream.Close
Set objTextStream = Nothing
Set objSFO = Nothing

Connect.Close
Set Connect = Nothing

Response.Redirect(\"confirm.asp\")
%>