ciao,
aspetta il codice originale era giusto, basta modificare due condizioni. Il problema è qui:
if not trovato thendeselezionati = deselezionati & "," & Trim(elenco_originale(i))
end if
oltre a controllare che il valore non sia stato trovato nell'altro array, bisogna anche vedere che non sia vuoto. Correggi così:
if Trim(elenco_originale(i)) <> "" AND not trovato thendeselezionati = deselezionati & "," & Trim(elenco_originale(i))
end if
Adesso va... ecco il nuovo codice. Cambiano solamente quelle due condizioni.
ciao
<%
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
%>
