Du har muligvis fået svar nok, men her er et lille eksmpel jeg engang har lavet med checkboxe.
Pricipet: Den første side hvor man vælger hvilke der skal ændre, er lavet en checkbox ud fra hver Videofilm (du skal selv indsættet information omkring filemen). Alle checkboxe har samme navn (KAK, spørg ikke hvorfor navnet er KAK), checkboxens value (ID) sættes til Videofilemen\'s ID fra databasen, jeg antager at hver videofilm vil havde en unik ID. På den anden side er lavet et for loop som sletter videofilm fra databasen hvor videofilm ID er lig med ID på de checkboxe som er valgt.
Til hver film laves sådan en checkbox <input type=\"checkbox\" name=KAK value=<%=rs(\"ID\")%>>
Dette skal være i filen hvor man vælge checkboxne:
\'Kør din SQL inden som han hendte Vidofilm ID som skal insættet i Checkboxen.
If Not (rs.BOF Or rs.EOF) Then
%>
<form method=\"post\" action=\" slet_valgte_film.asp\" name=\"hhabb\">
<% Do While Not rs.EOF
\'INDSÆT NOGET INFO OMKRING VIDEOFILM evt i tabel form!!
%>
<input type=\"checkbox\" name=KAK value=<%=rs(\"ID\")%>><br>
<% rs.MoveNext
Loop %>
<p><input type=\"submit\" value=\"Slet\" name=\"Action\"></p>
</form>
<%
Else
\' Hvis der ikke er fundet poster på søgningen
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If
\' Rydder op efter os
myConn.Close
\'rs.Close
Set myConn = Nothing
-- slet_valgte_film.asp------
<%
\'nItem Antal checkbokse som er med [x].
nItems = Request.Form(\"KAK\").Count
if (nItems >= 1) then
\'Henter værdien fra sidste side
For i = 1 To nItems
strSQL = \"DELETE FROM dintabel WHERE ID=\"&Request.Form(\"KAK\")(i)
myConn.Execute(strSQL)
Next
myConn.Close
else
Response.Write \"Mindst en vare skal vælges\"
end if
%>
