Access-database

http://www.html.dk/tutorials/asp/lektion17.asp
http://www.html.dk/tutorials/asp/lektion18.asp
http://www.html.dk/tutorials/asp/lektion19.asp

http://www.html.dk/tutorials/asp/lektion20.asp

lige den med også... :)

No no, jeg skal bruge det færdiglavet :)

Nej glem det, jeg får en ven til det !

1)

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dindatabase.mdb\")
Conn.Open DSN

SQL = \"SELECT * FROM liste ORDER BY Field1 ASC\"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
  response.write RS(\"Field1\") & \" \" & RS(\"Field2\") & \"<br>\"
  RS.MoveNext
wend

RS.Close
Set RS = nothing
Conn.close
Set Conn = nothing
%>
</body>
</html>

2)

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dindatabase.mdb\")
Conn.Open DSN

if( Request.serverVariables(\"REQUEST_METHOD\") = \"POST\" ) then
  SQL = \"INSERT INTO liste (Field1, Field2) VALUES (\'\" & Request.form(\"Field1\") & \"\', \'\" & Request.form(\"Field1\") & \"\' )\"
    Conn.Execute( SQL )
    response.write \"Data lagret\"
else
  %>
  <form action=\"\" method=\"post\">
  Field1: <input type=\"text\" name=\"Field1\"><br>
  Field2: <input type=\"text\" name=\"Field1\"><br>
  <input type=\"submit\">
  </form>
  <%
end if
%>
</body>
</html>

/nute