Kan ikke tilføje

Jeg kan ikke tilføje i min betilling i databasen hvorfor ikke ? Jeg kan ikke finde fejl!

<%
Response.Buffer = True

FUNCTION fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
END FUNCTION

   
    Nyhed = Request( "Nyhed" )
    Fornavn = Request( "Fornavn" )
    Efternavn = Request( "Efternavn" )
    Firmanavn = Request( "Firmanavn" )
    Email = Request( "Email" )
    Pris = Request ( "Pris" )
    Sidenr = Request ( "Sidenr" )
   

Set Con = Server.CreateObject( "ADODB.Connection" )
    DBPath = "DBQ=" & server.mappath("bestil.mdb")
    Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

IF Request.Servervariables("Content_Length") > 0 THEN
    Sql = "INSERT INTO Bestil (Dato, Nyhed, Fornavn, Efternavn, Firmanavn, Email, Pris, Sidenr) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Fornavn ) & "','" & fixQuotes( Efternavn ) & "','" & fixQuotes( Firmanavn ) & "','" & fixQuotes( Email ) & "','" & fixQuotes( Pris ) & "','" & fixQuotes( Sidenr ) & "')"
    Con.Execute Sql

    Response.Write "<strong>Tak for dit bestil. Den er blevet tilf&oslash;jet til databasen. </strong>"
   
END IF

%>


Hjælp mig venligst.