problema con variables

[yakare84]

Estimados, desde ya que no sé si está esta solucion en el foro, busqué pero no encontré...no se como buscar tampoco...

Mi problema es el siguiente:

Yo tengo este codigo:

Código:

SELECT a1, a2, a3, a4, a5, a6 FROM Encuestas WHERE codisbn = '7798071449011' OR codisbn = '7798071449325'

oRst.Open Sql, oCon,3,1

Dim i, preg_1, preg_2, preg_3, preg_4, preg_5, preg_6
DO WHILE NOT oRst.EOF
	For i = 1 To 6
		If oRst("a"&i) = 1 Then
			preg_(i) = preg_(i) + 1
		End If
	Next
oRst.MoveNext
LOOP
%>
<span class="Estilo10"><% =preg_1 %></span>
<span class="Estilo10"><% =preg_2 %></span>
<span class="Estilo10"><% =preg_3 %></span>
<span class="Estilo10"><% =preg_4 %></span>
<span class="Estilo10"><% =preg_5 %></span>
<span class="Estilo10"><% =preg_6 %></span>

la verdad es que no está bien, porque no me muestra nada...

Se que el problema está a la hora de que la variable se sume 1. pero la realidad es que no se como escribir esa variable...debe ser flor de boludez...pero ni idea...:S

alguien que me pueda ayudar? desde ya muchas gracias!

[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
 

[yakare84]

en la tabla yo tengo 6 campos
yo quiero sumar 1 por cada vez que el campo diga 1..

de la forma que me decis, si cualquiera es 1 entonces me va a sumar 1 a todas las variables...

PD: estoy investigando el "eval()"

Gracias por la respuesta!!!

[AlZuwaga]

Ah, comprendí mal
Y entonces por qué no dejás que directamente se ocupe la BD de esa operación?

Algo así:

Código:

.
SELECT iif(a1=1,a1+1,a1) AS b1, iif(a2=1,a2+1,a2) AS b2, iif(a3=1,a3+1,a3) AS b3, iif(a4=1,a4+1,a4) AS b4, iif(a5=1,a5+1,a5) AS b5, iif(a6=1,a6+1,a6) AS b6 FROM Encuestas WHERE codisbn = '7798071449011' OR codisbn = '7798071449325'
.

Edit: Aunque si querés que sume 1 cuando el valor es 1, entonces querés que sea 2... así que cada "iif" se puede colocar así para ahorrarle el cálculo de 1+1: iif(aN=1,aN=2,aN)

[yakare84]

no es mala la idea, me ahorro un par de "Do while", "For" y el "IF"

Sólo hago eso, bueno, lo pruebo y comento que pasó!!

Muchas gracias "Al Zuwaga"!!!!!