Variabili da test

[Sanjet]

Salve!
Ho dovuto creare un test che, a seconda della maggioranza di risposte, ti dà uno tra 4 risultati: a, b, c e d.
Ogni domande del test ha un campo "list" con le quattro risposte, ognuna con un value associato alla lettera corrispondente.
Nella pagina di calcolo, ricevo tutte e 30 le list delle risposte:

1 = request.form("1")
2 = request.form("2")
3 = request.form("3")
4 = request.form("4")
5 = request.form("5")
6 = request.form("6")
7 = request.form("7")
8 = request.form("8")
9 = request.form("9")
10 = request.form("10")
11 = request.form("11")
12 = request.form("12")
13 = request.form("13")
14 = request.form("14")
15 = request.form("15")
16 = request.form("16")
17 = request.form("17")
18 = request.form("18")
19 = request.form("19")
20 = request.form("20")
21 = request.form("21")
22 = request.form("22")
23 = request.form("23")
24 = request.form("24")
25 = request.form("25")
26 = request.form("26")
27 = request.form("27")
28 = request.form("28")
29 = request.form("29")
30 = request.form("30")

Quindi fate conto che ognuna corrisponde a A, B, C o D.
Ora la mia domanda era: come fare, senza incasinare il codice in continui if e elseIf, a racchiudere in una variabile numerica di nome "A" il numero di tante volte quante sono le risposte con A tra i 30 dati ricevuti, e idem per B, C e D?

Grazie per l'aiuto

[Sanjet]

Sto provando in questo modo:

'PROCEDURA
sub vbproc(list)
If list = "a" Then
a = a + 1
elseIf list = "b" Then
b = b + 1
elseIf list = "c" Then
c = c + 1
elseIf list = "d" Then
d = d + 1
end if
end sub

repp = 1

'INIZIO IL CICLO
Repeat

punt = "s" & repp
call vbproc("&punt&")

repp = repp + 1
'CONDIZIONE
Until repp => 30

Ma mi restituisce:

Expected statement 

Until repp => 30
^

[santino83]

<%

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