Vectores

[Analia26]

Hola Gente, a ver si me pueden dar una mano, ya que realmente no logro encontrar el error , por lo que veo está todo bien, he visto ejemplos en varios lados y está todo igual pero aún así tengo problemas Les explico, estoy declarando un vector al cual le agrego los datos, pero cuando quiero acceder a los datos del mismo no me arroja nada. Les copio el código para que tengan una idea:

dim fotos()
while not rs2.eof
response.Write("cod" & rs2("codimagen") & "<br>")
fotos(i) = rs2("codimagen")
i=i+1
rs2.movenext
wend
response.Write("long " & ubound(fotos)) //acá arroja que el tamaño es 0
response.Write("contenido" & fotos(0) & " " & fotos(1) & "<br>") //este comentario no me lo arroja
Set RS = Server.CreateObject("adodb.recordset")
for i=1 to cant
response.Write("valor i" & i & "<br>")
response.Write("form" & request.Form(fotos(i)) & "<br>")
if request.Form(fotos(i)) = "s" then
consulta = "Delete From Imagenes Where CodImagen = " & fotos(i)
response.Write("consulta" & consulta & "<br>")
'Set RS = MyConn.Execute(consulta)
end if
next

Desde ya muchas gracias por cualquier ayuda.

Saludos
Analía

[u_goldman]

A ver, trata asi:

Código:

dim fotos()
i = 0
while not rs2.eof
  response.Write("cod" & rs2("codimagen") & "<br>")
  Redim Preserve fotos(i)
  fotos(i) = rs2("codimagen")
  i=i+1
  rs2.movenext
wend

[sqa212]

Hola a todos,

¿Por que me da este error?

Si uso Redim Preserve fotos(i)

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo

Si uso Redim Preserve fotos(100) por ejemplo si funciona

[Analia26]

Hola te cuento como he solucionado el problema:

cant = rs2.recordcount //acá le asigno la cantidad de elementos que tendría que tener el vectori=0
dim fotos()
while not rs2.eof
Redim Preserve fotos(cant)
fotos(i) = rs2("codimagen")
i=i+1
rs2.movenext
wend
Set RS = Server.CreateObject("adodb.recordset")
for i=0 to ubound(fotos)-1
formulario = "im" & fotos(i) //acá armo el nombre del componente del formulario, si yo lo llamaba con un numero nada más me arrojaba el error de subrango fuera del intervalo, por eso le agrego unas letras adelante
if trim(request.Form(formulario)) = "s" then
consulta = "Delete From Imagenes Where CodImagen = " & fotos(i)
Set RS = MyConn.Execute(consulta)
end if
next
Por lo menos así me anda lo que yo necesitaba, espero que también pueda ayudar.

Gracias por la ayuda, fue muy valiosa.