Asp der ikke virker

http://www.stenladen.dk/test.zip

<html>
<title>Indsætte data i databasen</title>
<head>
</head>
<body>
<%
' 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/database1.mdb")
Conn.Open DSN

    strFornavn    = Request.Form("Fornavn")
    strEfternavn    = Request.Form("Efternavn")   
    strAdresse    = Request.Form("Adresse")
    strPostnummer    = Request.Form("Postnummer")
    strBy        = Request.Form("By")
    strFoedselsdag     = Request.Form("Foedselsdag")   
    strEmail    = Request.Form("Email")
    strTelefon    = Request.Form("Telefon")






' SQL sætning opbygges

strSQL = "INSERT INTO personer(Fornavn,Efternavn,Adresse,Postnummer,By,Foedselsdag,Email,Telefon) values('" & strFornavn & "','" & strEfternavn & "','" & strAdresse & "','" & strPostnummer & "','" & strBy & "','" & strFoedselsdag & "','" & strEmail & "','" & strTelefon & "')"




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

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

<h1>Databasen er opdateret!</h1>
</body>
</html>

hvad havde jeg gjordt galt
har ændret det den virker stadigvæk ikke

har opdateret xip fil

ups der skulle stå zip filen

Fejlmeddelelsen på siden lige nu sige bar at du skal skrive
  strFornavn        = Request.Form("Fornavn") strFornavn = Replace(strTekst, "'", "''")
på to linier.

Dernæst kommer et problem med "by" i din SQL. Du kan:

strSQL = "INSERT INTO personer(Fornavn,Efternavn,Adresse,Postnummer,[By],Foedselsdag,Email,Telefon) values('" & strFornavn & "','" & strEfternavn & "','" & strAdresse & "','" & strPostnummer & "','" & strBy & "','" & strFoedselsdag & "','" & strEmail & "','" & strTelefon & "')"

åhja, den havde jeg sgu overset "by"

ved ikke lige hvor det der strFornavn = Replace(strTekst, "'", "''") kommer fra
det findes slet ikke i ovenstående kode

men hvis det er for at undgå ' i dine navne så gør sådan:

strFornavn    = replace(Request.Form("Fornavn"),"'","''")

for hver enkelt

Der havde jeg overset noget. Hvis spørgeren vil bevare de 2 linier, skal de
i hvert fald rettes til

strFornavn        = Request.Form("Fornavn")
strFornavn = Replace(strFornavn, "'", "''")

Men man kan som just vist nøjes med een linie.

Da ingen har lagt et svar tager jeg pointene selv... hvis i vil have point må i lige skrive så får i dem