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
%>
