checkbox associate ad un record

[dover]

Ciao a Tutti.
Chi mi aiuta ad associare ad un record da cancellare una checkbox? non riesco a capire il metodo.
Io ho un do while che mi tira fori i record: ma come associo ad ogni record la checkbox per permetter la cancellazione di quelli checkati?
grazie..
Ciao,
dover

[jesus]

Dai ai checkbox lo stesso nome, ad esempio chk_delete, e al value di ognuno assegni l'id del record corrente:

<%
while (not rs.eof)
%>
  <input type="checkbox" name="chk_delete" value="<%=rs("id")%>">
 <%
  rs.movenext()
wend
%>

e nella pagina di cancellazione:

sql = "DELETE FROM tua_tabella WHERE id IN (" & request.form("chk_delete") & ")"

[dover]

Vado a provare di corsa...

[dover]

Io non vorrei farti perdere tempo, ma nonho proprio le conoscenze per soluzionare da solo il problema: mi aiuti ad individuare l'errore?

Questa è la pagina che richiama i record:
<form name="azione" action="cancella.asp" method="post">

<%do while rs.eof=false%>
<input type="checkbox" value="<%=rs("id_news")%>" name="chk_delete">
<%=rs("titolo")%>
Data di inserimento: <%=rs("data")%>

<%rs.movenext
loop%>
<%end if%>
<tr><td colspan=2>
<a href="inserisci_news.asp">
Chiudi</a>

</td></tr>
<%end if%>
<tr><td colspan=2 align=right>

<input type="submit" name="cancella" value="Cancella le news selezionate"nbsp;
<input type="submit" name="pubblica" value="Pubblica le news selezionate"nbsp;
</td></tr>
</form>



E questa quella che dovrebbe cancellarli, ma non fa niente...
<%@ Language=VBScript %>
<%Option explicit%>
<%Dim Conn, SQL, RS, titolo, news, data, esito, azione, chk_delete
titolo=Request.Form("titolo")
news=Request.Form("news")
data=Request.Form("data")
azione=Request.Form("azione")
numero=Request.Form("numero")
chk_delete=Request.Form("chk_delete")
%>

<%
sql = "DELETE FROM news WHERE id IN (" & request.form("chk_delete") & ")"

%>

[dover]

Ci sono riuscito!
grazie mille!
Ciao!
dover

[jesus]

La query devi anche eseguirla :

<% 
sql = "DELETE FROM news WHERE id IN (" & request.form("chk_delete") & ")" 

dim cmd

set cmd = Server.CreateObject("ADODB.Command")

cmd.ActiveConnection = strConn ' (strConn è la tua connessione db)
cmd.CommandText = sql
cmd.Execute
%>