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.
