codice:
<%

dim arrayRisposte(30)
dim scelta

scelta=array("A","B","C","D")
dim risultati(4)

for i=0 to 29
'ricevo le risposte
arrayRisposte(i)=request.form(i+)
next

risultati(0)=0 'numero di occorrenze di A
risultati(1)=0 'numero di occorrenze di B
risultati(2)=0 'numero di occorrenze di C
risultati(3)=0 'numero di occorrenze di D

for i=0 to 29

for j=0 to 3

if ucase(arrayRisposte(i))=scelta(j) then
risultati(j)=risultati(j)+1
end if

next

next


response.write ("Risposte A:" & risultati(0) & "
")
response.write ("Risposte B:" & risultati(1) & "
")
response.write ("Risposte C:" & risultati(2) & "
")
response.write ("Risposte D:" & risultati(3) & "
")

ad occhio, non testato