sql kan ikke finde fejl

<% if request.Form("bog") = "bog" then
    Function fncTextChange1(strText)
            strTekst = Trim(strText)
            fncTextChange1 = Replace(strTekst,"""","''")
            fncTextChange1 = Replace(strTekst,"'","''")
            fncTextChange1 = Replace(fncTextChange1,"  "," &nbsp;")
            fncTextChange1 = Replace(fncTextChange1,">","&gt;")
            fncTextChange1 = Replace(fncTextChange1,"<","&lt;")
            fncTextChange1 = Replace(fncTextChange1,vbCrLf,"<BR>")
            fncTextChange1 = Replace(fncTextChange1,"å","&aring;")
            fncTextChange1 = Replace(fncTextChange1,"æ","&aelig;")
            fncTextChange1 = Replace(fncTextChange1,"ø","&oslash;")
            fncTextChange1 = Replace(fncTextChange1,"Å","&Aring;")
            fncTextChange1 = Replace(fncTextChange1,"Æ","&AElig;")
            fncTextChange1 = Replace(fncTextChange1,"Ø","&Oslash;")
        End Function
    indhold = fncTextChange1(request.form("text"))
set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("bog.mdb")
Conn.Open DSN
Conn.Execute = "Insert into bog(text, hp, mail, navn, dato) Values('"&indhold&"','"&request.Form("hp")&"','"&request.Form("mail")&"','"&request.Form("navn")&"','"&now()&"')"

response.Redirect("gaestebog.asp")
end if
%>