Arrays en ASP (VBS)

[Manoloweb]

Como puedo crear un array que no necesite indicarle cuantos elementos va a contener?...


Por ejemplo:


Dim supervisores()

while not mirs.EOF
supervisores()=mirs("nombre")
mirs.movenext
wend


Trato de hacer esto y no me lo permite. Leyendo el manual de VBScript que baje de Microsoft, no encuentro nada que me haga pensar que pueden dimensionarse arrays realmente dinamicos, que permitan una cantidad indefinida de elementos...

Alguien puede darme alguna luz???

Saludos

[Hotaru]

Hola!!!...

Chécate este link:

http://www.desarrolloweb.com/articulos/176.php?manual=1

Saludos!!!...

[Manoloweb]

No hago mas que cansarme de la frustracion de que mi cliente requiriera su desarrollo en ASP

PHP es mucho más flexible y personalizable (sin herir susceptibilidades)

Creo que voy a intentar lo siguiente...


Dim supervisores()
Dim elementos
elementos=0
while not mirs.EOF
redim preserve supervidores(elementos)
supervisores(elementos)=mirs("nombre")
elementos=elementos+1
mirs.movenext
wend



Gracias por el link!

[urjose]

Simplmente no declares el arreglo y asunto arreglado !!

No se por que pero asi se soluciona.!!

[Atonovich]

Pues mira yo tenìa un problema similar y lo solucione con este script:
<%
Dim k
Dim giros()


set registro_array = server.createobject("adodb.recordset")
sql="select * from productos order by des_producto asc"

registro_array.open sql,conn,1,3

if registro_array.eof then
k=0
else
k=Int(registro_array.recordcount-1)

ReDim giros(k)

contador=0
do until registro_array.eof
sujeto=registro_array.Fields("des_producto")
giros(contador)=sujeto
contador=contador+1
registro_array.movenext
loop

end if
%>
Donde redimensionas tu array y es totalmente dinàmico