sql fejl?? eller et eller andet!

er der nogen der kan se hvorfor dette ikke virker?


<%



      session("brugernr") = Replace(Request.Form("brugernr"), "'", "''")
      session("kode") = Replace(Request.Form("kode"), "'", "''")
            session("fornavn") = Replace(Request.Form("fornavn"), "'", "''")
            session("efternavn") = Replace(Request.Form("efternavn"), "'", "''")
            session("alder") = Replace(Request.Form("alder"), "'", "''")
      session("cpr") = Replace(Request.Form("cpr"), "'", "''")
            session("tlf") = Replace(Request.Form("tlf"), "'", "''")
            session("mail") = Replace(Request.Form("mail"), "'", "''")
      session("adr") = Replace(Request.Form("adr"), "'", "''")
            session("postnr") = Replace(Request.Form("postnr"), "'", "''")
            session("by") = Replace(Request.Form("by"), "'", "''")
      session("beskaeftigelse") = Replace(Request.Form("beskaeftigelse"), "'", "''")
            session("tre") = Replace(Request.Form("tre"), "'", "''")
            session("to") = Replace(Request.Form("to"), "'", "''")
            session("en") = Replace(Request.Form("en"), "'", "''")
            session("tekst") = Replace(Request.Form("tekst"), "'", "''")
            session("billede") = Replace(Request.Form("billede"), "'", "''")
      session("billedeto") = Replace(Request.Form("billedeto"), "'", "''")

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

      strSQL = "INSERT INTO person ("
            strSQL = strSQL & "brugernr, "
            strSQL = strSQL & "kode, "
            strSQL = strSQL & "fornavn, "
            strSQL = strSQL & "efternavn, "
      strSQL = strSQL & "alder, "
      strSQL = strSQL & "cpr, "
            strSQL = strSQL & "tlf, "
            strSQL = strSQL & "mail, "
            strSQL = strSQL & "adr, "
      strSQL = strSQL & "postnr, "
      strSQL = strSQL & "by, "
      strSQL = strSQL & "beskaeftigelse, "
      strSQL = strSQL & "tre, "
      strSQL = strSQL & "to, "
      strSQL = strSQL & "en, "
      strSQL = strSQL & "tekst, "
      strSQL = strSQL & "billede, "
            strSQL = strSQL & "billedeto )"

            strSQL = strSQL & " values ( "
      strSQL = strSQL & "'" & session("brugernr") & "', "
        strSQL = strSQL & "'" & session("kode") & "', "
            strSQL = strSQL & "'" & session("fornavn") & "', "
            strSQL = strSQL & "'" & session("efternavn") & "', "
      strSQL = strSQL & "'" & session("alder") & "', "
      strSQL = strSQL & "'" & session("cpr") & "', "
            strSQL = strSQL & "'" & session("tlf") & "', "
            strSQL = strSQL & "'" & session("mail") & "', "
      strSQL = strSQL & "'" & session("adr") & "', "
            strSQL = strSQL & "'" & session("postnr") & "', "
      strSQL = strSQL & "'" & session("by") & "', "
      strSQL = strSQL & "'" & session("beskaeftigelse") & "', "
      strSQL = strSQL & "'" & session("tre") & "', "
      strSQL = strSQL & "'" & session("to") & "', "
      strSQL = strSQL & "'" & session("en") & "', "
      strSQL = strSQL & "'" & session("tekst") & "', "
      strSQL = strSQL & "'" & session("billede") & "', "
            strSQL = strSQL & "'" & session("billedeto")
            strSQL = strSQL & "');"
           
            set rs = Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>