Salve ho un problema! In una pagina richiamo tutti gli iscritti al mio db e con recordsperpagina =100 visualizzo i miei primi 100 iscritti e con un ciclo li visualizzo tutti e 100 nome,cognome, email e i relativi campi si/no del mio db access con i fatidici checkbox ai quali assegno comel valore l'id dell'iscritto e con una funzione controllo se nel db è checked oppure no.
Fin qui tutto funziona ... questo è il codice:
sqlb="SELECT * from Iscritti2"
Set rs = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina=100
page=request("page")
if page="" then page=1
strRicerca=Request("Ricerca")
rs.Open Sqlb,cn, adOpenKeyset,adLockOptimistic
rs.PageSize=RecordsPerPagina
rs.AbsolutePage=page
Totalrecords=rs.RecordCount
if Totalrecords=0 then
Response.Write"<p>Nessun risultato positivo</p>"
else
for i=1 to RecordsPerPagina

if Not rs.EOF then
%>
<input type="hidden" name="cod" value="<%=rs.Fields("id")%>">
<TR class="td_sfondo">
<TD>
<%response.write rs.Fields("Cognome")%>
</TD>
<TD> <div align="center"><font color="#000000"><b> <%response.write rs.Fields("Nome")%>
</TD>
<TD>
<%response.write rs.Fields("email")%>
</TD>
<TD>
<%Dim stato
stato=rs.Fields("rosso")
if stato=true then
stato="CHECKED"
else
stato="0"
end if
%>
<input type="checkbox" value="<%=rs.fields("id")%>" name="rosso" <%=stato6%> >

</TD>
<TD>
<%Dim stato2
stato2=rs.Fields("giallo")
if stato2=true then
stato2="CHECKED"
else
stato2="0"
end if
%>
<input type="checkbox" value="<%=rs.fields("id")%>" name="giallo" <%=stato6%> >

</TD>
...ecc
Ma il problema è nell'altra pagina.
Come faccio ad aggiornare il mio db se i valori che mi passa sono solo quelli dei campi checkbox spuntati?Se deseleziono un campo che il mio bravo sistema aveva segnalato come checked perchè nel mio db era selezionato come faccio ora ad aggiornarlo se mi passa solo l'id degli utenti selezionati?Come faccio a dirgli deselezionami il campo rosso dell'id 5 se l'id 5 non comparirà mai perchè è stato deselezionato a video ? Io posso solo aggiornare gli id con il seguente codice:

ide=Request.Form("cod")
red=Request.Form("rosso")
elencorosso= SPLIT (red,",")
'response.Write elencorosso
for ib=LBOUND(elencorosso) to UBOUND(elencorosso)
sql="UPDATE Iscritti2 SET Iscritti2.[rosso] = "& 1 &" WHERE (((Iscritti2.ID)="& (elencorosso(ib)) &"))"
cn.Execute(sql)
next

Grazie per aver risposto brightsoul, ora provo e ti faccio sapere!
Ancora grazie.

ciao,
per prima cosa crea i due array. Attenzione perchè non è un'operazione scontata: se la variabile contiene un solo id, lo split sulla virgola non funziona. Allora fai:



qui lo split funzionerà sicuramente, indipendentemente dal valore di Request.Form("originali_rosso") perchè gli ho concatenato una virgola in fondo.
Siccome ho aggiunto una virgola, si è creato un altro elemento. Basta non considerarlo e fare il ciclo for da 0 a Ubound-1.

Bene, passiamo alla parte "interessante".
Per controllare quali elementi sono stati deselezionati dall'utente, bisogna scorrere tutto l'array elenco_originale e confrontarlo con ogni elemento di elenco_red. Quando un valore è presente nel primo ma non nel secondo, vuol dire che è stato deselezionato:



bene, adesso ho una variabile, "deselezionati" che è una catena di id di record a cui l'utente ha tolto la spunta.
Posso usare questa catena direttamente in una query:


la clausola WHERE id IN (...) mi permette di specificare un numero variabile (da 1 a n) di id separati da virgole.

il primo problema è risolto.
Adesso, se vuoi sapere quali record sono stati invece SELEZIONATI dall'utente, fai il contrario (inverti i for):



ciao

---

Modificato da BrightSoul il 31 marzo 2004 23.56 -

ciao, ti riporto un file col codice corretto.
E' del tutto simile a quello che avevi scritto, ho fatto pochissimi cambiamenti :)

Allora, ho fatto una prova in locale con questa pagina e ho dovuto usare due accorgimenti per farla funzionare da sola:

1) i dati non li riceve da un form, ho inserito io direttamente gli id.
elenco_originale = Split("2502,2503,2504,2505,2506" & ",", ",")
elenco_rosso = Split("2502,2505,2507" & ",", ",")
Al momento di montare lo script sulla pagina definitiva tieni le due righe che hai tu, ossia queste qua:
elenco_originale = Split(request.form("originali_rosso") & ",", ",")
elenco_rosso = Split(request.form("rosso") & ",", ",")

2) La pagina non effettua le query, le stampa solamente a video col response.write
Response.write "UPDATE Iscritti SET Iscritti.[rosso] = 0 WHERE id IN (" & deselezionati & ")"
Ma tu usa la tua sintassi:
cn.Execute "UPDATE Iscritti SET Iscritti.[rosso] = 0 WHERE id IN (" & deselezionati & ")"


I cambiamenti che ho fatto sono stati lievi... proprio prima del ciclo for per trovare i selezionati bisognava svuotare la variabile su cui venivano memorizzati di id trovati. Per maggiore comprensione anzichè svuotarla ne ho usata un'altra così adesso per il primo ciclo for hai "deselezionati", per il secondo hai "selezionati". Ecco l'estratto di codice a cui faccio riferimento:
Dim selezionati
selezionati = ""
for a = 0 to Ubound(elenco_rosso)-1
trovato = false
...
if not trovato then
selezionati = selezionati & "," & Trim(elenco_rosso(a))

le queries *dovrebbero* funzionare anche con una stringa composta da molti id. Credo che anche con qualche migliaio non ci siano problemi... poi lo verificherai facendo una prova pratica.
Ciao :) fammi sapere se funziona

simulazione.asp