ASP & access. sikkert en newbie fejl
hejsafor "mange" år siden lavede jeg et tilmeldings ting til asp med MYsql. og har siden glemt alt hvad jeg lærte dengang :-)
en af mine venner ville godt have rettet den til, men hans side kan kun bruge access. no problem tænkte jeg og startede. men nedenstående virker ikke selvom jeg mener at det burde. men det er sikkert en eller andet ' eller " som står forkert.
databasen befinder sig på det rigtige sted og der til at skrive i.
så på forhånd tak.
<%
gem = Request.Form("gem")
%>
<% if gem <> "True" then %>
<html>
<title>Indsætte data i databasen</title>
<head>
</head>
<body>
<center><h2>Julefrokost</h2></center>
<center><h3>Tilmelding</h3></center>
Udfyld venligst nedenstående felter
<form method="post" action="tilmeld.asp">
<table>
<tr><td>*Navn: </td><td><input type="text" name="navn"></td></tr>
<tr><td>*Adresse: </td><td><input type="text" name="adr"></td></tr>
<tr><td>*Postnr: </td><td><input type="text" name="post"></td></tr>
<tr><td>*by: </td><td><input type="text" name="by"></td></tr>
<tr><td>*telefon</td><td><input type="text" name="tlf"></td></tr>
<tr><td>E-mail </td><td><input type="text" name="email"></td></tr>
<tr><td>*Alder (kun tal): </td><td><input type="text" name="alder" ></td></tr>
<tr><td></td><td><input type="hidden" name="gem" value="True"></td></tr>
<tr><td></td><td><input type="submit" value="Gem oplysninger"></td></tr>
</table>
</form>
<% end if %>
<% if gem = "True" then %>
<%
' 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("/cgi-bin/db.mdb")
Conn.Open DSN
' SQL sætning opbygges
strSQL = "Insert into personer ("
strSQL = strSQL & "navn, "
strSQL = strSQL & "adresse, "
strSQL = strSQL & "postnr, "
strSQL = strSQL & "by, "
strSQL = strSQL & "telefon, "
strSQL = strSQL & "mail, "
strSQL = strSQL & "alder) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'"&navn&"',"
strSQL = strSQL & "'"&adr&"',"
strSQL = strSQL & "'"&post&"',"
strSQL = strSQL & "'"&by&"',"
strSQL = strSQL & "'"&tlf&"',"
strSQL = strSQL & "'"&email&"',"
strSQL = strSQL & "'"&alder&"')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Response.Redirect("4.html")
end if
%>
</body>
</html>
