Contar datos de un registro.

[GUAPOBEN]

Buenos dias a todo el foro.

Yo aqui dandoles lata como siempre.

Tengo una BD en Access en la cual existe una tabla llamada "encuesta" la cual a su vez contiene 9 campos,el primero es el ID del registro los siguientes 2 los ocupo para guardar el Usuario y la IP y los 6 restantes para guardar las respuestas.

Actualmente tomo estos datos y los represento en una pagina ASP de la siguiente manera.

Usuario: Fulanito de Tal
IP: 1.12.10.1
Respuesta 1:OK
Respuesta 2:OK
Respuesta 3:NO
Respuesta 4:OK
Respuesta 5:NO
Respuesta 6:OK

Hasta aqui todo esta ok, sin embargo me gustaria que al final me presentara un total de OK's y un Total de NO's, ejemplo:
Total Ok: 4 Total NO: 2

Me podrian indicar de que forma puedo hacer esto sobre mi pagina ASP?
De antemano mil gracias por su apoyo.

[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

[Shiryu_Libra]

si esto es conteo de respuestas afirmativas.... por que no simplemente utilizas 1/0... de esta manera simplemente sumas

cuando grabas, en lugar de poner "OK", lo cambias a "1".... caso contrario en "NO".... "0"

al hacer el recorrido por el registro, simplemente sumas, por logica... el 0 no se suma, entonces.....

sera entendible

[JuanRAPerez]

o podrias declarar las variables y sumar

respuestasSI = 0
respuestasNO = 0
while
if rs("turespuesta") = ="si" then
respuestasi = respuestasi + 1
else
respuestano = respuestano + 1
end if

al terminar el ciclo
imprimes esas dos variables

suerte

[GUAPOBEN]

Muchas Gracias por su aportación y Apoyo a JuanRAPerez, Shiryu_Libra y a Adler, hare caso a cada una de las respuestas y empezare a probarlos.

Si me queda o no me queda se los hare saber. GRACIAS.

[GUAPOBEN]

Gracias a todos por el apoyo.

JuanRAPerez

Aplique la solucion que diste y me quedo bien solo que luego me salio un pequeño problema y era que algunas preguntas no las contestan, y pues aplique lo mismo solo que lo deje asi:

if rs("turespuesta") = "si" then respuestasi = respuestasi + 1 else if rs("turespuesta") = "no" then respuestano = respuestano + 1 end if end if

Y ya quedo solucionado.

Muchas GRACIAS por su valioso apoyo.