<%
elenco_originale = Split("2502,2503,2504,2505,2506" & ",", ",") 
elenco_rosso = Split("2502,2505,2507" & ",", ",") 


Dim trovato, deselezionati
deselezionati = "" 
for i = 0 to Ubound(elenco_originale)-1 
trovato = false 
for j = 0 to Ubound(elenco_rosso)-1 
if Trim(elenco_originale(i)) = Trim(elenco_rosso(j)) then
trovato = true 
end if 
next 

'se il valore non è stato trovato, lo concateno ad una variabile 
if Trim(elenco_originale(i)) <> "" and not trovato then 
deselezionati = deselezionati & "," & Trim(elenco_originale(i)) 
end if 
next 
if deselezionati <> "" then 
deselezionati = Mid(deselezionati,2) 

Response.write "UPDATE Iscritti SET Iscritti.[rosso] = 0 WHERE id IN (" & deselezionati & ")" 
end if 

Response.write("<br>")

Dim selezionati
selezionati = ""
for a = 0 to Ubound(elenco_rosso)-1 
trovato = false 
for b = 0 to Ubound(elenco_originale)-1 
if Trim(elenco_rosso(a))=Trim(elenco_originale(b)) then 
trovato = true 
end if 
next 
'se il valore non è stato trovato, lo concateno ad una variabile 
if Trim(elenco_rosso(a)) <> "" AND not trovato then 
selezionati = selezionati & "," & Trim(elenco_rosso(a)) 
end if 
next 
if selezionati <> "" then 
selezionati = Mid(selezionati,2) 
Response.write "UPDATE Iscritti SET Iscritti.[rosso] = 1 WHERE id IN (" & selezionati & ")" 
end if 
%>