html forms til access.
hej.jeg skal lave en forbindelse mellem en hjemmeside og en access-database. umiddelbart har jeg lavet en side med formularer, kaldet "kunde.asp" der ser sådan her ud:
<html>
<head>
<title>Tilføj kunde</title>
</head>
<body>
<form action="kunde_add.asp" method="post">
<table>
<tr>
<td>Navn</td>
<td><input type="text" name="Navn"></td>
</tr>
<tr>
<td>Adresse</td>
<td><input type="text" name="Adresse"></td>
</tr>
<tr>
<td>Postnr</td>
<td><input type="number" name="postnr"></td>
</tr>
<tr>
<td>Telefon</td>
<td><input type="number" name="Telefon"></td>
</tr>
<tr>
<td>E-mail</td>
<td><input type="text" name="E-mail"></td>
</tr>
</table>
<br />
<input type="submit" value="Gem">
</form>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("\booking.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from kundetabel"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<table>
<%
' Gennemløb Recordset (rs) med en løkke
Do
%>
<tr>
<td><% Response.Write rs("Navn") %></td>
<td><% Response.Write rs("Adresse") %></td>
<td><% Response.Write rs("Postnr") %></td>
<td><% Response.Write rs("Telefon") %></td>
<td><% Response.Write rs("E-mail") & "<br>" %></td>
<% rs.MoveNext %>
</tr>
<%
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>
og det henfører til en fil kaldet kunde_add.asp som ser sådan her ud:
<html>
<head>
<title>New customer is added</title>
</head>
<body>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("\booking.mdb")
Conn.Open DSN
' SQL
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("Navn") & "',"
sql=sql & "'" & Request.Form("Adresse") & "',"
sql=sql & "'" & Request.Form("Postnr") & "',"
sql=sql & "'" & Request.Form("Telefon") & "',"
sql=sql & "'" & Request.Form("E-mail") &"')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
Reponse.Write ("No Update Permissions")
else
Reponse.Write ("<h3> " & recaffected & " record added</h3>")
end if
conn.close
%>
<a href="kunde.asp">Tilbage</a>
</body>
</html>
som i nok kan se er det en fin skabelon jeg har leget med, men an ikke få det til at virke.. hvad gør jeg galt?
