Spot en "fejl"

<%
session.lcid = 1030

Function DBDate(fDate)
dim fDay, fMon, fYear
fYear= Year(fDate)
fMon= Month(fDate)
fDay= Day(fDate)
fDay= right("0"&fDay, 2)
fMon= right("0"&fMon, 2)
DBDate =  "#"& fMon &"-"& fDay &"-"& fYear &"#"
end function
   
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")

sql = "Insert into kunder (navn, adresse, tlf, mail, ip) values ('" & replace(Request.Form("navn"),"'","''") & "', '" & replace(Request.Form("adresse"),"'","''") & "', " & replace(Request.Form("tlf"),"'","''") & ", '" & replace(Request.Form("mail"),"'","''") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "')"
Conn.Execute(sql)
sql2 = "select top 1 * from kunder where ip = '" & Request.ServerVariables("REMOTE_ADDR") & "' order by id desc"
set rs2 = Conn.Execute(sql2)

For Each bla in Request.Form
  If Request.Form(bla) = "ON" Then
    del = Split(bla,"_")
    Typeen = del(0)
      VaerelsesNummer = del(1)
    Datoen = del(2)
   
    sql3 = "select * from booking where dato = "&DBDate(Datoen)&""
    set rs3 = Conn.Execute(sql3)
    if rs3.eof then   

    sql4 = "Insert into booking (dato, "& Typeen & VaerelsesNummer &") values ("&DBDate(Datoen)&", '"& rs2("navn") & "_" & rs2("id") &"')"
    Conn.Execute(sql4)

    else
    sql5 = "UPDATE booking SET "& Typeen & VaerelsesNummer &" = '"& rs2("navn") & "_" & rs2("id") &"' where dato = "&DBDate(Datoen)&""
    Conn.Execute(sql5)
    end if
   
  End If
Next
response.redirect "default.asp?dato="&request.form("gemdato")&""
%>