Jeg har lavet en formular side, hvor datane kan indtastes. Her er asp filen. :
<html>
<title>Indsætte ny bil</title>
<head>
</head>
<body>
<%
\'Databaseforbindelse
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN =\"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN =DSN & \"DBQ=\"& Server.MapPath (\"auto1.mdb\")
Conn.Open DSN
\'SQL indsætter rækker fra før indskrevet i forms
strSQL = \"Insert into \'Brugte Biler\' (Navn) values(\'\" & Request.Form(\"Navn\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Pris) values(\'\" & Request.Form(\"Pris\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Aargang) values(\'\" & Request.Form(\"Årgang\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Farve) values(\'\" & Request.Form(\"Farve\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Kilometer) values(\'\" & Request.Form(\"Kilometer\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Doere) values(\'\" & Request.Form(\"Døre\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Type) values(\'\" & Request.Form(\"Type\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Udstyr) values(\'\" & Request.Form(\"Udstyr\") & \"\')\"
strSQL = \"Insert into \'Brugte Biler\' (Billede) values(\'\" & Request.Form(\"Billede\") & \"\')\"
\'SQL exe
Conn.Execute(strSQL)
\'Luk forbindelse
Conn.Close
Set Conn=Nothing
%>
<h1>Databasen er opdateret</h1>
<p><a href=\"database.asp\">VEND TILBAGE TIL MENUEN</a></p>
</body>
</html>
