ho questa query



<%
Dim codiceid
Dim oCon

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

codiceid = Request.Querystring("cod")

If codiceid<>"" Then

'Eliminazione dell'immobile
oCon.Execute "DELETE FROM immobili WHERE codiceimmobile=" & codiceid

'Eliminazione dei riferimenti in altre tabelle
oCon.Execute "DELETE FROM accordi WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM StoricoVariazioni WHERE codiceimmobile=" & codiceid
oCon.Execute "DELETE FROM databaseric_colloqui WHERE codiceimmobile='" & codiceid & "'"

End IF

oCon.Close

Response.Redirect "risarccod.asp"
%>



Mi permette di cancellare tutto quello che riguarda quel codice numerico in piu tabelle.

Ora ho creato questo nella pagina precedente


<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 = "arccanc.asp?cod=<%=Request.Querystring("cod") %>";
oFrm.target = "_self";
oFrm.submit();




}
}


</script>




con relativo check

<input type="checkbox" onclick="checkAll(this.checked)">

<input type="checkbox" name="codiceid" value="<%=objrs("codiceimmobile")%>">



Cosa voglio fare quest'ultimo elenco è dove vado a visualizzare i relativi articoli e i check relativi vorrei che se seleziono ad esempio il n.5-7-9 la pagina successiva cioè questa cioè quella precedente :





<%
Dim codiceid
Dim oCon

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

codiceid = Request.Querystring("cod")

If codiceid<>"" Then

'Eliminazione dell'immobile
oCon.Execute "DELETE FROM immobili WHERE codiceimmobile=" & codiceid

'Eliminazione dei riferimenti in altre tabelle
oCon.Execute "DELETE FROM accordi WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM colloqui WHERE codiceimmobile='" & codiceid & "'"
oCon.Execute "DELETE FROM StoricoVariazioni WHERE codiceimmobile=" & codiceid
oCon.Execute "DELETE FROM databaseric_colloqui WHERE codiceimmobile='" & codiceid & "'"

End IF

oCon.Close

Response.Redirect "risarccod.asp"
%>

mi cancelli tutti i codici selezionati in tutte le tabelle del db.

Come posso comportarmi grazie del Vs. aiuto in anticipo attendo notizie.


Salve.