<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.MapPath("test.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>
<%
set rs1=Server.CreateObject("ADODB.Recordset")
for each iselects in Request.Form("sname")
rs1.open "delete * from test where id="+iselects,conn,1
rs1.close
next
%>
<form action="Order.asp" method="post">
<%
sql="Select * from test"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do until rs.eof
%>
<input type=checkbox name="sname" value="<%=rs("id")%>"><%=rs("name")%><br>
<% rs.movenext
loop%>
<input type=submit value="Submit">
</form>