Update af Access

Jeg har tidligere lavet et script, som opdaterede felter i databasen. Jeg har kopieret det script ud, og skiftet informationerne ud, således at de passer med databasen og formen. Men INTET bliver opdateret, og scriptet er det samme... Der kan være at der er stavefejl i NOGLE af linierne, men mindst én linie burde da blive opdateret... Næsten alle felter er tekst-felter...

Output ser også ud som den skal være, har brut Response.Write strSQL.

KODE:

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/database.mdb")
Conn.Open DSN

strSQL = "Update users set "
    'BalladeFis.dk Info
        strSQL = strSQL & "IP='" & Request.ServerVariables("REMOTE_ADDR") & "', "
        strSQL = strSQL & "nyhedsbreve='" & request.form("nyhedsbreve") & "', "
        strSQL = strSQL & "email_visible='" & request.form("email_visible") & "', "
    'Personlig Info
        strSQL = strSQL & "fornavn='" & request.form("fornavn") & "', "
        strSQL = strSQL & "efternavn='" & request.form("efternavn") & "', "
        strSQL = strSQL & "postnummer='" & request.form("postnummer") & "', "
        strSQL = strSQL & "image='" & request.form("image") & "', "
        strSQL = strSQL & "birthdayday='" & request.form("birthdayday") & "', "
        strSQL = strSQL & "birthdaymonth='" & request.form("birthdaymonth") & "', "
        strSQL = strSQL & "birthdayyear='" & request.form("birthdayyear") & "', "
    'Beskæftigelse
        strSQL = strSQL & "beskaeftigelse='" & request.form("beskaeftigelse") & "', "
        strSQL = strSQL & "interesser='" & request.form("interesser") & "', "
        strSQL = strSQL & "sport1='" & request.form("sport1") & "', "
        strSQL = strSQL & "sport2='" & request.form("sport2") & "', "
        strSQL = strSQL & "sport3='" & request.form("sport3") & "', "
    'E-Net
        strSQL = strSQL & "hjemmeside='" & request.form("hjemmeside") & "', "
        strSQL = strSQL & "msn='" & request.form("msn") & "', "
        strSQL = strSQL & "icq='" & request.form("icq") & "', "
        strSQL = strSQL & "irc='" & request.form("irc") & "', "
        strSQL = strSQL & "yahoo='" & request.form("yahoo") & "', "
    'Update
        strSQL = strSQL & "statsupdated='" & Now() & "', "
        strSQL = strSQL & " where ID = " & CInt(Request("id"))