update med asp!

Er der nogle der kan se hvad der er forkert med dette scrip?
hmmm
på forhånd tak!

% session("log") = "3233" %>
<% if Request.Form("kon") = "" then
        session("kon") = session("upkon")
else
session("kon") = Replace(Request.Form("kon"), "'", "''")
end if

if Request.Form("skills[]") = "" then
        session("skills[]") = session("upskills")
        else
session("skills[]") = Replace(Request.Form("skills[]"), "'", "''")

end if

   
      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("bynavn") = Replace(Request.Form("bynavn"), "'", "''")
      session("beskaeftigelse") = Replace(Request.Form("beskaeftigelse"), "'", "''")
            session("hojde") = Replace(Request.Form("hojde"), "'", "''")
            session("vaegt") = Replace(Request.Form("vaegt"), "'", "''")
            session("tekst") = Replace(Request.Form("tekst"), "'", "''")


' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("./db/51902671.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Update model set "
strSQL = strSQL & "fornavn='" & session("fornavn") & "',"
strSQL = strSQL & "alder='" & session("alder") & "',"
strSQL = strSQL & "cpr='" & session("cpr") & "',"
strSQL = strSQL & "tlf='" & session("tlf") & "',"
strSQL = strSQL & "mail='" & session("mail") & "',"
strSQL = strSQL & "adr='" & session("adr") & "',"
strSQL = strSQL & "postnr='" & session("postnr") & "',"
strSQL = strSQL & "bynavn='" & session("bynavn") & "',"
strSQL = strSQL & "beskaeftigelse='" & session("beskaeftigelse") & "',"
strSQL = strSQL & "kon='" & session("kon") & "',"
strSQL = strSQL & "hojde='" & session("hojde") & "',"
strSQL = strSQL & "vaegt='" & session("vaegt") & "',"
strSQL = strSQL & "tekst='" & session("tekst") & "',"
strSQL = strSQL & "skills='" & session("skills[]") & "',"
strSQL = strSQL & "efternavn='"& session("efternavn") &"'"
strSQL = strSQL & " Where kode = '" & session("log") & "'"

Conn.Execute(strSQL)

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>
</body>
</html>