:: FILOWEB.it: Cancellare i record selezionati in un checkbox

 
		Parte che invia 

<form id=" form1"  name=" form1"  method=" post"  action=" cancella.asp" >

<%Dim Conn 

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

conn.Open " driver={Microsoft Access Driver (*.mdb)};dbq="  & server.mappath(" /sitoasp/sondaggio.mdb" )

Dim rs 

Set rs = Server.CreateObject(" ADODB.Recordset" )

rs.Open " select * from domande " , conn %>

<table width=" 400"  border=" 1"  cellpadding=" 0"  cellspacing=" 0" >

<tr><td width=" 63"  height=" 27" >cancella</td>

<td width=" 189"  bgcolor=" #CCCCCC" ><div align=" left"  class=" style3" >Domanda</div></td><td width=" 140"  bgcolor=" #CCCCCC" ><div align=" center"  class=" style3" >Punteggio</div></td></tr>

<% Do while NOT RS.EOF %>

<%Dim domanda

domanda=rs(" domanda" )%> 

 <% dim id

id=rs(" id" )%>

<%response.write(" <tr><td><input name=cancella type=checkbox  value=" &id&"  /></td><td>" &domanda&"  </td><td> " &punteggio&" </td></tr>" )%></br>

<% RS.MoveNext

Loop %> </input> </table>

<% RS.Close

Set RS = Nothing

conn.Close

Set conn=Nothing %>

    <label>    <input type=" submit"  name=" Submit"  value=" Submit"  />    </label>

    </form>

  </blockquote>

</blockquote>

</body>

</html>



Parte che riceve

<%

on error resume next

  dim conb

   set conb = server.createobject(" adodb.connection" )

conb.Open " driver={Microsoft Access Driver (*.mdb)};dbq="  & server.mappath(" /sitoasp/sondaggio.mdb" )

set rsb = server.createobject(" adodb.recordset" )

Dim objColor 

for each objColor in Request.Form(" cancella" ) 

Response.Write(" Ho cancellato il messaggio numero: "  & objColor & " </br>" ) 

rsb.open " DELETE * FROM domande WHERE id=" &objColor&" " ,conb

next 

rsb.close

set rsb= nothing

set conb = nothing

%>