Questa possibilita:



__________________________________________________ _________________________

1 pag.:




<%



cod=Request.Querystring("cod")
esercizio=Request.Querystring("esercizio")
condominio=Request.Querystring("condominio")





strSQL3= "SELECT * FROM contabilita_vociquery WHERE condominio Like '%" & Request.Querystring("condominio") & "%' and esercizio Like '%" & Request.Querystring("esercizio") & "%' and rifarticolo like '" & Request.Querystring("cod") & "' "

Set rec3 = Server.CreateObject("ADODB.Recordset")
Set rec3=Conn.Execute(strSQL3)



%>








<html>
<head>
<title></title>


<script>

function ChangeOrderBy(sValue)
{
if (document.all("OrderBy")!=null)
{
document.all("OrderBy").value = sValue;
if (document.all("sampleform")!=null)
document.all("sampleform").submit();
}
}

function OpenPage(sValue)
{
if (document.all("IniziaPer")!=null) {

document.all("IniziaPer").value = sValue;
if (document.all("sampleform")!=null) {
document.all("sampleform").submit();
}
}
}





function checkAll(bChecked)
{
var oChk = document.all("codiceid");

if (oChk.length!=null) {
for (var i=0;i<oChk.length;i++)
oChk[i].checked=bChecked;
} else {
if (oChk!=null)
oChk.checked=bChecked;
}
}

</script>








<script>


function stampa()
{
var oFrm = document.all("frmPubblicita");
if (oFrm!=null) {

oFrm.action = "eliminacodici2.asp?codiceid=<%=rec3("id")%>&cod=< %=request.querystring("cod")%>&condominio=<%=reque st.querystring("condominio")%>&esercizio=<%=reques t.querystring("esercizio")%>";
oFrm.target = "_self";
oFrm.submit();




}
}


</script>




</head>

<body onload="javascript:stampa();">

<form name="frmPubblicita" method="post">




<%
'Caricamento cookies
Dim item
For Each item In Request.Form
Session(item) = Trim(Request.Form(item))
Next
%>


<input type="hidden" name="update" value="">

<table cellspacing="0" cellpadding="0" width="1000" align="center">
<tr>
<td width="1000" valign="middle" align="left" height="21" style="border-top: 2 solid #808080"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>

<td align="right">

</td>

</td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" width="1000"><tr><td>
<font size="2" color="#000000" face="Tahoma">







<%While Not rec3.EOF%>




<input type="checkbox" CHECKED name="codiceid" value="<%=rec3("id")%>">




<% rec3.MoveNext
Wend
rec3.close%>




</form>





__________________________________________________ _________________________


2° pag.






<html><head></head><body>




<%
Dim sCodiceid
Dim oCon


Set oCon=Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/database.mdb")


cod=Request.Querystring("cod")
esercizio=Request.Querystring("esercizio")
condominio=Request.Querystring("condominio")


sCodiceid = Request.QueryString("codiceid")

If sCodiceid<>"" Then

'Eliminazione dell'immobile

oCon.Execute "DELETE FROM contabilita_anagrafica WHERE id_voci IN ('" &sCodiceid& "')"
oCon.Execute "DELETE FROM contabilita_anagrafica2 WHERE id_voci IN ( '" &sCodiceid& "' ) "
oCon.Execute "DELETE FROM contabilita_anagrafica3 WHERE id_voci IN ( '" &sCodiceid& "' ) "
oCon.Execute "DELETE FROM contabilita_anagrafica4 WHERE id_voci IN ( '" &sCodiceid& "' ) "
oCon.Execute "DELETE FROM contabilita_anagrafica5 WHERE id_voci IN ( '" &sCodiceid& "' ) "


End If




%>



</body></html>








Praticamente cancella solo un record cioè esempio


se sono visualizzati e selezionati il 10-11-12 cancella solo il 10 come posso modificare l'attuale codice ? perche non fa gia tutto cio ?


Fammi sapere.