Deletar Registro Usando Checkbox

[ldrwebsite]

Olá pessoal é o seguinte, to usando um sistema que lista de uma tabela todos os registros no qual o nùmero da lista é igual ao valor de uma variável. Vou criar um outro arquivo ASP que apaga os registros desta mesma tabela no qual o número da lista seja igual. Mas eu queria saber se na hora em que lista os itens cadastrados tem como na começo incluir para aparecer um checkbox para selecionar os itens que eu quero apagar (igual aos webmail) e embaixo eu colocaria um link chamando o arquivo para deletar "somente os itens selecionados com o checkbox". Mas como eu faço para relacionar o checkbox com cada linha da tabela, já que estou usando o comando WHILE para fazer loop? Veja o código:

<%

Dim objConn2, objRS2, strQuery2

Set objConn2=Server.CreateObject("ADODB.Connection")

objConn2.Open "DBQ=c:/listas/produtos.mdb;Driver={Microsoft Access Driver (*.mdb)}"

strQuery2="SELECT * FROM itens_lista WHERE num_lista='"&numero&"'"

Set objRS2=objConn2.Execute(strQuery2)

%>

<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#006699" width="650" cellpadding="2" id="AutoNumber2">

  <tr>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Número do desenho</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Descrição</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Quant.</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Material</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Bitola</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Observações</font></td>

  </tr>

  <%while not objRS2.EOF%>

  <tr>

    <td align="center"><font face="Arial" size="1"><%=objRS2("num_des")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("descr_item")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("quant")%> <%=objRS2("unid")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("material")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("bitola")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("obs_item")%></font>&nbsp;</td>

  </tr>

  <%

  objRS2.MoveNext

  Wend

  objRS2.close

  objConn2.close

  Set objRS2=Nothing

  Set objConn2=Nothing

  %>

</table>

Se fosse para colocar o checkbox, ficaria assim a linha dos itens:

<%while not objRS2.EOF%>

  <tr>

    <td align="center"><font face="Arial" size="1"><input type="checkbox" name="" value="ON"> <%=objRS2("num_des")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("descr_item")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("quant")%> <%=objRS2("unid")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("material")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("bitola")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("obs_item")%></font>&nbsp;</td>

  </tr>

Como eu faço para usar este método. Valeu galera!

[.Andreia.]

Só um exemplo, que você pode adaptar.

chave = um campo que identifica unicamente o registro, por exemplo ID.

tela de impressão dos dados

<%
contador=0
while not tab.eof
contador = contador + 1
.
.
%>
<input type="checkbox" value="1" name="deleta<%=contador%>">
<input type="hidden" name="chave" value="<%= tab("chave")&contador %>">
<input type="hidden" name="chave<%=contador %>" value="<%= tab("chave")%>">
.
.
<%
tab.movenext
wend
%>
<input type="hidden" name="contador" value="<%= contador %>">

arquivo de exclusão

<%
contador = request.form("contador")

for i= 0 to contador
deleta = request.form("deleta" & i)
chave = request.form("chave" & i)

if deleta = 1 then
'***** rotina de deletar o registro *****
end if

next
%>

[ldrwebsite]

Valeu andreia, eu já consegui fazer o que eu queria, usei um método parecido com o seu. Mesmo assim valeu pela dica. Abraços!