<input id="A1" type=checkbox name="A1" value="1">
<input id="A2" type=checkbox name="A2" value="1">
<input id="A3" type=checkbox name="A3" value="1">
<input id="A4" type=checkbox name="A4" value="1">
<input id="A5" type=checkbox name="A5" value="1">
codice:
dim valori()
Redim valori(ncheck)
for i = 1 to ncheck
Iff (Request.Form("A" & i) = "1",valori(i)=1,0)
next
'Oppure potresti fare
j = 1
for i = 1 to ncheck
If (Request.Form("A" & i) = "1")
valori(j)= ("val_A" & i & "=" & 1)
j = j+1
end if
next
'Anche se questultima forse fa schifo :-)
Spero di averti aiutato o almeno dato una dritta! Ciao!