Detta är vad jag har använt som har funkat bra, men nu skall jag inte skicka ja/nej värden längre utan nu kommer request.form innehålla ett värde mellan 0 och 3 och om alla 6 poster innehåller värdet 3 så skall det vara lika med 100 % , kan någon hjälp mig med detta vore jag jätte tacksam :)
<code>
nr1 = request.form("nr1")
nr2 = request.form("nr2")
nr3 = request.form("nr3")
nr4 = request.form("nr4")
nr5 = request.form("nr5")
nr6 = request.form("nr6")

Ja = 0
Nej = 0

For num = 1 to 6
Select Case request.form("nr" & num)
Case "Ja"
Ja = ja + 1
Case "Nej"
Nej = nej + 1

End Select
Next

jproc = Round((ja / 6) * 100, 2)
nproc = Round((nej / 6) * 100, 2)
</code>

Följdfråga:

Vad skall hända om värdet är 0, 1 eller 2?

//Putte

<code>
Dim Antal
Dim Proc
Dim Summa
Dim vTemp

For num = 1 to 6
vTemp = request.form("nr" & num)
Select Case vTemp
Case "0", "1", "2", "3"
Antal = Antal + 1
Summa = Summa + CInt(vTemp)
End Select
Next

Proc = Round((Summa * 100 / 3)/Antal, 2)
</code>

Tusen tack , jag skall testa koden senare under dagen.

tack igen :)

Hej.
Det funka perfekt :)
tusen tack för hjälpen :)

Om jag sedan har fler frågor fast dom skall delas in i olika grupper så testa jag att bara upprepa samma kod fast med nya variabler så det inte blir någon krock och det funka fint , men det kanske finns något bättre sätt att göra det på?
Exempel på hur jag gjort nu:
<code>
Dim Antal , antal2
Dim Proc , proc2
Dim Summa , summa2
Dim vTemp , vtemp2

For num = 1 to 6
vTemp = request.form("nr" & num)
Select Case vTemp
Case "0", "1", "2", "3"
Antal = Antal + 1
Summa = Summa + CInt(vTemp)
End Select
Next

Proc = Round((Summa * 100 / 3)/Antal, 2)


For num = 7 to 12
vTemp2 = request.form("nr" & num)
Select Case vTemp2
Case "0", "1", "2", "3"
Antal2 = Antal2 + 1
Summa2 = Summa2 + CInt(vTemp2)
End Select
Next

Proc2 = Round((Summa2 * 100 / 3)/Antal2, 2)

</code>