Flaggare i checkbox

[Roby140569]

Grazie!
Ho fatto una prova e sembra funzionare. Ho solo corretto la parentesi quadra, con la tonda.

mieicolori_a = split(mieicolori, ", ")
For i=LBound(mieicolori_a) to UBound(mieicolori_a)
sqlcolore = "SELECT * FROM colore WHERE id=" & cint(trim(mieicolori_a(i))) &" AND attiva=1"
SET RS1 = Conn.Execute(sqlcolore)
Do While Not RS1.EOF
Response.Write "prova
" 
RS1.MoveNext
Loop
Next 

Ciao!