Array

[rubenASP]

Me parece una cosa fundamental pero no me funciona.
Quiero declarar un array para luego ir metiendo datos en cada posición

dim album()

cont=0

while no objRS.EOF
cont=cont+1
id=objRS("Id_book")
texto=objRS("descripcion")
ancho=objRS("ancho")
alto=objRS("alto")

album(cont)=id&".jpg_"&texto&"_"&ancho&"_"&alto&"_ "
wend

gracias

[Ramondi]

Mmmm 2 cosillas.
1) la negación creo que era

while Not objRS.EOF

2) Sobretodo, acuerdate de hacer el objrs.movenext antes de acabar el bucle, sino te hará un bucle infinito

El codigo te quedaría asi

dim album()

cont=0

while not objRS.EOF
cont=cont+1
id=objRS("Id_book")
texto=objRS("descripcion")
ancho=objRS("ancho")
alto=objRS("alto")

album(cont)=id&".jpg_"&texto&"_"&ancho&"_"&alto&"_ "
objRS.movenext
wend

[rubenASP]

Gracias Ramondi!

Ahora me sale el siguiente error:

"Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos "

[rubenASP]

me indica el error en esta línea:

album(cont)=id&".jpg_"&texto&"_"&ancho&"_"&alto&"_ "

[Ramondi]

Mmm parece que no le gusta la declaración de la variable album. Joe nunca me he llevao bien con las declaraciones.. mm
En principio, la declaracion Dim album() tendría que ser correcta...

Antes de nada, prueba de guardar el nombre del archivo que quieres crear en una variable a parte, y la muestras para ver si realmente te queda como quieres..
dim album()

cont=0

while not objRS.EOF
cont=cont+1
id=objRS("Id_book")
texto=objRS("descripcion")
ancho=objRS("ancho")
alto=objRS("alto")
nombre=id&".jpg_"&texto&"_"&ancho&"_"&alto&"_"
'mostremos nombre no sea caso que haya algun caracter raro
Response.write(nombre)
Response.End

album(cont)=nombre
objRS.movenext
wend

A ver si encontramos el fallito ;)

[AlZuwaga]

Probalo así:


<%
cont=0
dim album()

while not objRS.EOF
Redim preserve album(i)

id=objRS("Id_book")
texto=objRS("descripcion")
ancho=objRS("ancho")
alto=objRS("alto")

album(cont) = id & ".jpg_" & texto & "_" & ancho & "_" & alto & "_"
cont=cont+1
objRS.movenext
wend
%>