Mostrar LINK

[Cuezaltzin]

Hola a todos.

Como puedo hacer para que por ejemplo mi variable Var tenga N valores (1,5,10,15) por decir algunos numeros y se cumpla la condicon dentro del If de habilitar el link cuando la variable i y var sean iguales.
Ahorita en el codigo siguiente solo lo puedo hacer cuando Var = 3 como puedo hacerlo para N numero aleatorios.

<%

Var = 3

for i =1 to 10
if i = Var THEN
Response.Write " <a href='Detalle.asp'>"& i & "</a>"
end if
response.write " "&i
next
%>

Gracias.

[u_goldman]

Lo puedes hacer mediante un arreglo (arrVar) entonces que compares lo que tenga i con arrVar(i)

Ahora lo que tienes que ver es cuidar cuantas veces iterará tu ciclo de acuerdo al valor máximo de i, y buscar dentro del arreglo esos números, pero también tendríamos que ver, como es que le asignas el valor maximo y como te llegan los datos de los valores que pueden tener los índices de dicho arreglo.

Salu2,

[Cuezaltzin]

Mas o menos asi es tu idea

ArrVar = Array(1,8,25,14)

rrVar = Array(5,1,8,9,10)

[u_goldman]

Bueno, por qué no nos platicas un poco mas que es lo que quieres hacer, como te llegan los datos y vemos como resolverlo

Salu2,

[Cuezaltzin]

Gracias U_Goldman por tu ayuda.

Lo que tengo es un for que imprime de 1 hasta 900 lo que hago es una consulta a mi base de datos y saco los valores del campo Var los cuales pueden ser N (5,56,12,1,23,etc). y lo que intento hacer es que dentro del for que imprime del 1 hasta el 900 me habilite la opcion de link en los numero 5,56,12,1,23 y en los demas solo me imprima el numero.

[u_goldman]

Bueno...pues si que es medio compleja la solución por el número de iteraciones que puede hacer ese ciclo, si son 900 y supongamos que tienes 10 números a buscar, estarías iterando 900 X 10 = 9000 veces

No se me ocurre nada de momento mas que la solución original...tienes ya un string separado por ","(1,5,25,8,45) que representa a los números que buscarás...

entonces

arrVar = split(cadena, ",")

Código:

For i = 1 to 900
  For j=0 to uBound(arrVar)
    lo_encontre = false
    If i = arrVar(j) Then
      lo_encontre = true
      Exit For
    End If
  Next
  If lo_encontre Then
   'Imprimes el link
  Else
   'Imprimes el no.
  End If
Next

Demasiadas iteraciones... :-p

A ver si a alguien se le ocurre algo más

Salu2,

[orharo2003]

Pues ni amí se me ocurre otra forma de verificar y es que es a la de afuerzas de otra forma no creo.

Un saludo.

[Myakire]

cielos, si "ni a él" se le ocurre otra forma, ha de significar que es imposible .

Cuezaltzin, ¿que no habíamos ya encontrado la solución a este problema en otro post?, ¿cuál es la diferencia con respecto al otro?

Lo que tengo es un for que imprime de 1 hasta 900 lo que hago es una consulta a mi base de datos y saco los valores del campo Var los cuales pueden ser N (5,56,12,1,23,etc). y lo que intento hacer es que dentro del for que imprime del 1 hasta el 900 me habilite la opcion de link en los numero 5,56,12,1,23 y en los demas solo me imprima el numero.

[Cuezaltzin]

GRACIAS POR SU PACIENCIA Y AYUDA.

Puse el siguiente codigo pero solo me imprime del 1 al 900 de la opcion del LINK nada no aparece cual es el problema.

<%

cadena="5,1,8,9,10"

arrVar = split(cadena, ",")

For i = 1 to 900
For j=0 to uBound(arrVar)
lo_encontre = false
If i = arrVar(j) Then
lo_encontre = true
Exit For
End If
Next
If lo_encontre Then
Response.Write "<a href=""Detalle.asp"">" &i& "</a>"
Else
Response.write " "&i
End If
Next

%>

Y con respecto a la pregunta de Myakire lo que pasa es que con tu codigo imprimia el link pero por posiciones y lo que quiero es que si hay un 5 ponga el link en el 5 no me importa la posicion solo que si 5=5 o 999=999

[u_goldman]

Solamente es que estábamos comparando un string con un entero, con un cast se soluciona el asunto:

en negritas los cambios...

Código:

<%
cadena="5,1,8,9,10"
arrVar = split(cadena, ",")

For i = 1 to 900
	lo_encontre = false
	For j=0 to uBound(arrVar)
		If i = cint(arrVar(j)) Then
			lo_encontre = true
			Exit For
		End If
	Next
	If lo_encontre Then
		Response.Write "<a href=""Detalle.asp"">" &i& "</a>"
	Else
		Response.write " "&i
	End If
Next

%>

Salu2,

[Cuezaltzin]

Fantastica Solucion U_goldman Gracias. Solo Una Ultima Pregunta Como Puedeo Asignarle A La Variable Cadena Los "n" Resultados De Mi Base De Datos.

Mil Gracias.

[u_goldman]

Código:

cadena = ""
'Llenamos la variable cadena con los valores del rs, separamos cada 
'elemento con una ","
While not rs.EOF
  cadena = cadena & rs("campo") & ","
  rs.MoveNext
Wend
'como al final va a tener una coma, necesitamos quitársela para no poner 
'un índice más en blanco al momento de hacer el split:
If cadena <> "" Then
  cadena = left(cadena, len(cadena) - 1)
End If

A ver si eso te funciona.


Salu2,

[Cuezaltzin]

Eres Un Pistola U_goldman. Gracias Por Tu ComprensiÓn, Ayuda.
Tal Como Lo Escribiste Sin Ningun Error.
Mil Gracias.