Update

Jeg har følgende kode, der selv danner sin SQL:
<!-- #include virtual="/service/database.asp"-->
<%
IF Id = "" then Id = Trim(Request.QueryString("Id")) END IF
Response.Write(Id)
if request.form("Knr") <> "" then
  SQL = "Update DLG.saelgerstat set(Knr = " &  request.form("Knr") & ", "
end if
if request.form("Telefon") <> "" then
  SQL = SQL & "Tlfnr= "& request.form("Telefon")&", "
end if
if request.form("Fornavn") <> "" then
  SQL = SQL & "Fornavn = '"& request.form("Fornavn")&"', "
end if
if request.form("Mellemnavn") <> "" then
    SQL = SQL & "Mellemnavn = '"& request.form("Mellemnavn")&"', "
end if
if request.form("Adr") <> "" then
  SQL = SQL & "Efternavn = '"& request.form("Adr")&"', "
end if
if request.form("Postnr") <> "" then
  SQL = SQL & "Postnr = '"& request.form("Postnr")&"', "
end if
if request.form("Telefax") <> "" then
  SQL = SQL & "Telefaxnr = '"& request.form("Telefax")&"', "
end if
if request.form("PMobil") <> "" then
  SQL = SQL & "Mobilnr = '"& request.form("PMobil")&"', "
end if
if request.form("Sname") <> "" then
  SQL = SQL & "Snr = '"& request.form("Sname")&"', "
end if
if request.form("Fastnet") <> "" then
    SQL = SQL & "Fastnet = 1,"
else
    SQL = SQL & "Fastnet = 0,"
end if
if request.form("Mobil") <> "" then
    SQL = SQL & "Mobil = 1,"
else
    SQL = SQL & "Mobil = 0,"
end if
if request.form("Internet") <> "" then
    SQL = SQL & "Internet = 1,"
else
    SQL = SQL & "Internet = 0,"
end if
if request.form("Kundekort") <> "" then
    SQL = SQL & "Kundekort = 1,"
else
    SQL = SQL & "Kundekort = 0,"
end if
if request.form("Forsikring") <> "" then
    SQL = SQL &  "Forsikring = 1,"
end if
if request.form("Elselskab") <> "" then
    SQL = SQL & "Elselskab = '"& request.form("Elselskab")&"', "
end if
if request.form("Fudlob") <> "" then
    SQL = SQL & "Udlobsaar = '"& request.form("Fudlob")&"', "
end if
if request.form("Skadedyr") <> "" then
    SQL = SQL &  "Skadedyrs = 1,"
else
    SQL = SQL &  "Skadedyrs = 0,"
end if
if request.form("Desinfektion") <> "" then
    SQL = SQL &  "Desinfektion = 1,"
else
    SQL = SQL &  "Desinfektion = 0,"
end if
if request.form("Fluer") <> "" then
    SQL = SQL &  "Fluer = 1,"
else
    SQL = SQL &  "Fluer = 0,"
end if
if request.form("DLGVejr") <> "" then
    SQL = SQL &  "DLGVejr = 1,"
else
    SQL = SQL &  "DLGVejr = 0,"
end if
if request.form("PWB") <> "" then
    SQL = SQL &  "PWB = 1,"
else
    SQL = SQL &  "PWB = 0,"
end if
if request.form("Falck") <> "" then
    SQL = SQL &  "Falck = 1,"
else
    SQL = SQL &  "Falck = 0,"
end if
if request.form("Flexsilo") <> "" then
    SQL = SQL &  "Flexsilo = 1,"
else
    SQL = SQL &  "Flexsilo = 0,"
end if
if request.form("Elprodukt") <> "" then
    SQL = SQL &  "Elprodukter = 1,"
else
    SQL = SQL &  "Elprodukter = 0,"
end if
if request.form("Fyringsolie") <> "" then
    SQL = SQL &  "Fyringsolie = 1,"
else
    SQL = SQL &  "Fyringsolie = 0,"
end if
if request.form("Smorolie") <> "" then
    SQL = SQL &  "Smoreolie = 1,"
else
    SQL = SQL &  "Smoreolie = 0,"
end if
if request.form("Spilsolie") <> "" then
    SQL = SQL &  "Spildolie = 1,"
else
    SQL = SQL &  "Spildolie = 0,"
end if
if request.form("Trapiller") <> "" then
    SQL = SQL &  "Traepiller = 1,"
else
    SQL = SQL &  "Traepiller = 0,"
end if
if request.form("EL") <> "" then
    SQL = SQL &  "EL = 1,"
else
    SQL = SQL &  "EL = 0,"
end if
if request.form("ELForbrug") <> "" then
    SQL = SQL & "ELForbrug = '"& request.form("ÉLForbrug")&"', "
end if
if request.form("Email") <> "" then
    SQL = SQL & "Email = '"& request.form("Email")&"', "
end if
if request.form("Bem") <> "" then
    SQL = SQL & "Bemarkning = '"& request.form("Bem")&"', "
end if

    SQL = SQL & "FSelskab = '"& request.form("Fselskab")&"' WHERE Id = "& Id &""
%>
<br><br><br>
<%
Response.Write(SQL)
connect.execute( SQL )
Conn.Close
Set Conn = Nothing
%>

========
Men jeg får følgende fejl medd.
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'
Et objekt er obligatorisk: ''

jeg kan ikke forstå det, men håber der er een der kan finde/se fejlen.