Virker -> Virker ikke

Bliver nødt til at oprette spørgsmålet igen, da det er forsvundet fra oversigten!

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\")
%>

Jeg vil lige gøre opmærksom på, at der ikke kommer nogen fejlmeddelelse!

Min confirm.asp indeholder både Session(\"Kundenr\") og Session(\"Password\") og ingen af dem er tomme.

På confirm.asp kan man klikke på en submit-knap som igen videresender mine sessions til en fil der hedder form.asp, som er den formular hvor kunderne indtaster deres informationer - både første og anden gang, og første gang (efter login) virker det men anden gang danner den kun kom-filen, men indsætter ikke i DB\'en.