Me pasa algo raro al regoger valores en un array

[markshock]

Vamos a ver apañero,

te muestro la forma, a mi parecer mas sensata de hacer lo que quieres hacer:

yo dispongo de un include llamado obj_array.asp que tiene el siguiente código:

<%
Dim resultado(1000)
Dim resultado1(1000)
Dim resultado2(1000)

Function parte(cadena,nameArray)
Dim numpala
numpala=0
For i = 1 To len(cadena)
if Mid(cadena,i,2)=", " then
i=i+1
numpala=numpala+1
nameArray(numpala) =""
else
nameArray(numpala) = nameArray(numpala)+ Mid(cadena,i,1)
end if
Next
End Function

Function buscarLlenos(nomArray)
x=0
For x=0 to Ubound(nomArray)
if not isEmpty(nomArray(x)) Then
temp=temp+1
end if
Next
buscarLlenos=temp-1
End Function

Function verArray(nomArray,separador)
x = 0
temp = ""
For x=0 to buscarLlenos(nomArray)
if not isEmpty(nomArray(x)) Then
temp = temp & nomArray(x) & separador
end if
Next

if (temp<>"") then
temp = left(temp,len(temp)-1)
end if
verArray = temp
End Function
%>
paso a comentarlo.

-hay 3 arrays predefinidas.

funcion parte(cadena,nameArray) : esta función, genera arrays a partir de cadenas de texto con los valores separados por ", " ok?

En este caso, como las funciones predefinidas se llaman resultado, resultado1, resultado2 la usariamos de la siguiente forma:

precios = "1, 2, 3, 4, 5, 6"
Call parte(precios,resultado)

ok?

Esto lo uso para partir las cenadas y generar arrays.

A ti lo que te interesa es recoger los datos de un array que te has creado.


te recomiendo que a partir del primer select, te montes una cadena de texto con los valores separados por ", "

direcciones = "terra.es, yahoo.com, google.es" etc...

y usando la funcion buscarLlenos(nombreArray)

Haces el:

For x=1 to buscarLlenos(nombreArray)
sql = "select * from tabla where url='"&direcciones(x)&"'"
....................
....................
.........................
next

a ver que tal te va esto, espero que te sirva el peaso de include que te he pasado, eso soluciona i agiliza mucho el trabajar con arrays.

saludos