求助，复选框方式复制数据到另一个表
如题，如何将下面的数据添加到新表里面。大虾们指教下，最好有个例子，谢谢~
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from hrchaxun where e1='是' order by id asc",connb,1,1
do while not rs.eof
%>
<input name="renyuan" value="<%=rs("id")%>|<%=rs("EMPNAME")%>|<%=rs("DEPARTMENTNAME")%>|<%=rs("DUTY")%>|<%=rs("CARDNUM")%>" type="checkbox">
<%
response.write rs("EMPNAME")
rs.movenext
loop
rs.close
set rs=nothing
%>
