Fra liste til checkboxe ved sletning af flere ordrer i Access
HejJeg har lavet en liste, der kan slette een ordrer ad gangen i Access-databasen. Hvordan laver jeg checkboxe i stedet, hvor der kan slettes alt med \"on\" ?
Min første fil ser sådan ud:
***************************************
<!-- #include file=\"adovbs.inc\" -->
<html>
<head>
</head>
<body bgcolor=ffffff>
<p> <%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"kc.mdb\")
SQL = \"SELECT * FROM Ordre\"
Set Resultat = Connect.Execute(SQL)
%> </p>
<form action=\"Slet2.asp\">
<table align=\"center\" cellpadding=\"5\" cellspacing=\"0\" border=\"1\" bordercolor=\"#333399\">
<tr>
<td width=\"43\" valign=\"bottom\">
<select name=\"liste\">
<%
do until Resultat.EOF
Response.Write \"<option>\"
Response.Write Resultat(\"ID\")
Response.Write \"</option>\"
Resultat.MoveNext
loop
Response.Write \"<select>\"
%></select>
</td>
<td width=\"85\" valign=\"bottom\">
<input type=submit value=\"Slet ordre\">
</td></tr></table>
</form>
</body></html>
******************************************
Den sender til Slet2.asp:
<!-- #include file=\"adovbs.inc\" -->
<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Kc.mdb\")
SQL = \"SELECT * FROM Ordre WHERE Ordre.ID=\" & Request(\"liste\")
Set Resultat = Server.CreateObject(\"ADODB.Recordset\")
Resultat.Open SQL, Connect, adOpenStatic, adLockPessimistic
Resultat.delete
%>
<html><body bgcolor=ffffff>
<div align=\"center\">
<p> </p>
<p><b><font size=\"3\" color=\"#333399\">Ordren er nu slettet </font></b> </p>
</div>
</body></html>
På forhånd tak
