kan ikke uploade til database

Har dette lille script som skal sende til databasen + sende en Jmail. jeg modtager en mail, men der kommer intet i min database.
Hvem kan hjælpe mig ?

**** upretdp_ac.asp *****

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="databaseforbindelse.asp"-->
<%
' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
navn = ChkString(Request.Form("navn"))
adresse = ChkString(Request.Form("adresse"))
postnr = ChkString(Request.Form("postnr"))
city = ChkString(Request.Form("city"))
tlf = ChkString(Request.Form("tlf"))
mobil = ChkString(Request.Form("mobil"))
email = ChkString(Request.Form("email"))
web = ChkString(Request.Form("web"))
sted = ChkString(Request.Form("sted"))
lp = ChkString(Request.Form("lp"))
nyd = ChkString(Request.Form("nyd"))
brugernavn = ChkString(Request.Form("brugernavn"))
kodeord = ChkString(Request.Form("kodeord"))
tekst = ChkString(Request.Form("tekst"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/brugerinfo.mdb")
sql_insert = "INSERT INTO tblBrugerInfo (navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, brugernavn, kodeord, pic1, pic2, pic3, tekst) " & "VALUES ('" & navn & "','" & adresse & "','" & postnr & "','" & city & "','" & tlf & "','" & mobil & "','" & email & "','" & web & "','" & sted & "','" & lp & "','" & nyd & "','" & brugernavn & "','" & kodeord & "','" & Request.Form("pic1") & "','" & Request.Form("pic2") & "','" & Request.Form("pic3") & "','" & tekst & "')"' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
'con.Execute sql_insert


Tekst = "Ny Bruger til hjemmesiden<br>" & vbcrlf

Tekst = Tekst & "Navn: " & navn & "<br />"

Tekst = Tekst & "Adresse: " & Adresse & "<br />"

Tekst = Tekst & "Postnr: " & Postnr & "<br />"

Tekst = Tekst & "By: " & City & "<br />"

Tekst = Tekst & "E-mail: " & email & "<br />"

Tekst = Tekst & "Tilmelde til deprivatedagplejere.dk hjemmeside: " & ChkString(Request.Form("tilmeld")) & "<br />"



call sendMail("rmo@pc.dk","Ny bruger","rmo@pc.dk","REMO","smtp.mail.dk","Ny bruger oprettet",Tekst)

'Se funktionen længere nede kaldes med :    call sendMail(afsender,afsNavn,modtager,modtNavn,smtpserver,subject,body)

' Done. Close the connection
con.close

response.redirect "default.asp"


Function sendMail(afsender,afsNavn,modtager,modtNavn,smtpserver,subject,body)
'((((((((((((((((((((MAIL SENDES))))))))))))))))))))))))))
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = afsender'"no_reply@aars.dk"'Afsenderens_email
msg.FromName = afsNavn
msg.AddRecipient modtager
msg.Subject = Subject
msg.Body = replace(body,vbcrlf,"<br>")
if not msg.Send(smtpserver) then' mail.directedit.dk
  Response.Write("Der er desværre opstået en fejl!<br>Prøv venligst igen senere.<br><br>" & msg.log & "<hr>")
  Else
  Response.write "Der er nu blevet sendt en meddelelse til " & modtNavn & " (" & modtager & ").<br><br>" & Besked_tilmelding & "</font>"
end if
'((((((((((((((((((((MAIL SENDES SLUT))))))))))))))))))))))))))
end function




%>