problema con variables

[AlZuwaga]

preg_(i) -> eso está mal. Creo que había una forma de hacer "variable" el nombre de las variables, usando eval(), pero no la recuerdo del todo bien. Tampoco son tantos casos, así que lo podrías "hardcodear" de esta manera:

Código asp:

For i = 1 To 6
        If oRst("a"&i) = 1 Then
            preg_1 = preg_1 + 1
            preg_2 = preg_2 + 1
            preg_3 = preg_3 + 1
            preg_4 = preg_4 + 1
            preg_5 = preg_5 + 1
            preg_6 = preg_6 + 1
        End If
    Next