Contar datos de un registro.

[Adler]

Hola

Podrías declarar un array

Código asp:

Dim Resp(5), cuentaNO, cuentaOK, i
Resp(0) = rs.Fields("respuesta1")
Resp(1) = rs.Fields("respuesta2")
Resp(2) = rs.Fields("respuesta3")
Resp(3) = rs.Fields("respuesta4")
Resp(4) = rs.Fields("respuesta5")
Resp(5) = rs.Fields("respuesta6")
 

Ahora un ciclo

Código asp:

cuentaNO = 0
cuentaOK = 0
For i = 0 To 5
' una condicional
if Resp(i) = "NO" then
cuentaNO = cuentaNO +1
else
if Resp(i) = "OK" then
cuentaOK = cuentaOK + 1
end if
Next ' i
 
response.write (cuentaNO)
response.write (cuentaOK)
 

EDITO

Se me ha ocurrido otra forma, en vez del ciclo, un filtro

Código asp:

cuentaNO=Filter(Resp,"N")
cuentaOK=Filter(Resp,"K")
response.write (UBound(cuentaNO)+1)
response.write (UBound(cuentaOK)+1)
 

Suerte