prova così


<script language="vbscript">

function controllo()
dim a
a=0

for i = 0 to primadomanda.children.length - 1

if primadomanda.children(i).TagName = "INPUT" then

if UCase( primadomanda.children(i).type) = "CHECKBOX" then

if primadomanda.children(i).checked then

a = a + 1

end if
end if
end if

next

if cint(a) > 1 then
msgbox "forse funziona!!!"
end if
end function
</script>

<form name="form1" method="post" action="fine.asp">
<table width="90%" border="1">
<tr>
<td width="3%" valign="top"><font face="Arial" color="#003366">1</font></td>
<td width="63%" valign="top"><font face="Arial" color="#003366">Quale
mezzo usi solitamente (per piu di sei mesi) per recarti al lavoro?</font></td>
<td width="34%">
<div id="primadomanda" name="primadomanda">
<input type="checkbox" name="4_1" id="first" value="4_1" onclick="controllo()">
Automobile<br>
<input type="checkbox" name="4_2" id="second" value="4_2" onclick="controllo()">
Mezzi pubblici<br>
<input type="checkbox" name="4_3" id="terzo" value="4_3" onclick="controllo()">
Bicicletta<br>
<input type="checkbox" name="4_4" id="quarto" value="4_4" onclick="controllo()">
Piedi<br>
<input type="checkbox" name="4_5" id="quinto" value="4_5" onclick="controllo()">
Motorino
</div>
</td>
</tr></table>

<p>
<input type="submit" name="Passa1" value="Passa Alla Pag. Successiva">

</form>

FORZA LA MAGICA ROMA

a me comunque funziona comunque prova così prova così

<script language="vbscript">
a=0
function controllo()
dim strChecchato

For I=1 to 10

a = 0
For J=1 to 11

NomeCheckbox= I & "_" & J
strChecchato = ""
on error resume next
strChecchato = document.all(NomeCheckbox).checked=true
on error goto 0
if strChecchato <> "" then
if CBool(strChecchato) =true then
a = a+1
end if
end if

Next
if a > 1 then
msgbox "forse funziona!!!"
exit for
end if
Next



end function
</script>

FORZA LA MAGICA ROMA

<h1><b> <font color=orange>Sempre</font id=orange> <font color=red>Magica </font id=red></b></h1>