SQL problemer.
Hej jeg kan ikke opdatere dbJeg har en web side som hedder.
<html>
<head>
<title>Tekst til db</title>
</head>
<body>
<%
'Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/Mappe/Test.mdb")
Conn.Open DSN
%>
<form action="Sidenavn.asp" method="post">
<input type="text" name="Fornavn" size="20" value="Fornavn">
<p>
<input type="text" name="Efternavn" size="20" value="Efternavn">
<p>
<input type="text" name="Telefon" size="20" value="Telefon">
<p>
<input type="text" name="Foedselsdato" size="20" value="Fødselsdato">
<input type="submit" value="Gem">
</p>
</form>
<%
Conn.Close
Set Conn= Nothing
%>
</body>
</html>
Den sender det over til en anden side som skal opdatere databasen som se sådan ud.
<html>
<head>
<title>Registrering</title>
</head>
<body>
<%
'Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/Mappe/Test.mdb")
Conn.Open DSN
strSQL = "Insert into personer (Fornavn) values('" & Request.Form("Fornavn") & "')"
strSQL = "Insert into personer (Efternavn) values('" & Request.Form("Efternavn") & "')"
strSQL = "Insert into personer (Telefon) values('" & Request.Form("Telefon") & "')"
strSQL = "Insert into personer (Foedselsdato) values('" & Request.Form("Foedselsdato") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<h1>Database er opdateret!</h1>
</body>
</html>
Men jeg får en fejl 500
I Html.dk Asp.Lektion 20
Viser de denne som jeg har fået til at virke.
<%
' SQL sætning opbygges
strSQL = "Insert into personer ("
strSQL = strSQL & "Fornavn, "
strSQL = strSQL & "Efternavn, "
strSQL = strSQL & "Telefon, "
strSQL = strSQL & "Foedselsdato) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'Fætter', "
strSQL = strSQL & "'Guf', "
strSQL = strSQL & "'99887766', "
strSQL = strSQL & "'20-04-1964')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>
</body>
</html>
