asp复选框删除

selecthuiyuan.asp

<form action="deletehuiyuan.asp">
<table width="748" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="30px">选择</td>
<td>姓名</td>
<td>工作单位</td>
</tr>
<%
 For i = 1 to rs.pageSize
  if rs.EOF then
  Exit For
  end if  
%>
<tr>
<td>
<input name="huiyuanid" value="<%=rs("id")%>" type="checkbox">
</td>
<td>
<a href="huiyuandetail.asp?id=<%=rs("id")%>"><%=rs("xingming")%></a>
</td>
<td>
<%=rs("gongzuodanwei")%>
</td>
</tr>
<%
rs.MoveNext
next
%>
<tr>
<td colspan="4" align="right">
<input type="submit" value="删除" align="center">&nbsp;&nbsp;&nbsp;
</td>
</tr>
</table>

</form>

deletehuiyuan.asp

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mydb.mdb")
sql="delete from huiyuan where id in("&request("huiyuanid")&")"
conn.execute(sql)
response.redirect "./selecthuiyuan.asp"
%>