Ayuda con ciclo For ó while

[kike278]

Que tal saludos a todos!!!

resulta q estoy haciendo un conteo de registros con la siguiente consulta

registros.open "SELECT COUNT(sexo) AS total FROM principal WHERE sexo='R2' and unidad='R1' and p10='R1' or sexo='R2' and unidad='R1' and p10='R2'" ,conexion
v10=registros("total")
response.write(v10)

de esta consulta la variable que ira cambiando es p es decir iria de aumento en1
p11,p12,p13.....p81
de hacerlo asi tendria q ejecutar este condigo 81 veces,

¿como puedo ejecutarlo por medio de un ciclo ya sea for o while ?

Saludos...

[Adler]

Hola

Prueba así

sql = "SELECT COUNT(sexo) AS total FROM principal WHERE sexo='R2' and unidad='R1' "
for i = 0 to 80
if i <> 0 then
sql = sql & "and p"&i&"='RS1' "
next 'i
sql = sql & "or sexo='R2' and unidad='R1' and p10='R2'"
registro.Execute(sql)

Suerte

[kike278]

ok ya lo cheque y despues de algunos intentos y pruebas me tira el siguiente error

Error de compilación de Microsoft VBScript (0x800A041F)
No se esperaba 'Next'
/prueba.asp, línea 12

[Adler]

ok, se me paso

sql = "SELECT COUNT(sexo) AS total FROM principal WHERE sexo='R2' and unidad='R1' "
for i = 0 to 80
if i <> 0 then
sql = sql & "and p"&i&"='RS1' "
end if
next 'i
sql = sql & "or sexo='R2' and unidad='R1' and p10='R2'"
registro.Execute(sql)

Suerte