Buenas a todos,
estoy arreglando una página web, pasándola a ASP, y me he encontrado con un error que no me da ninguna explicación: error '80020009'.
En el código lo que hago es leer de una base de datos el nombre de unos ficheros de imagenes, gifs o jpg, para mostrar estas imágenes en la página.
El caso es que entro en un bucle, y me lee bien al principio, pero al intentar salir del bucle me da ese fallo.
set rsima = Server.CreateObject("ADODB.Recordset")
rsima.open "select * from imagenes where Idioma = 'es' and Codigo_Seccion = 7 order by Pos_imagen DESC", conn
if not rsima.eof then
rsima.movefirst
if not rsima.eof then
>> while (rsima("Pos_imagen") = "Arriba" and not rsima.eof)
response.write "<img src='bd/" & rsima("fichero") & "'><br>"
rsima.movenext
wend
end if
end if
Me da el fallo en el while. Además que no hace bien la condición. Creo que no hago bien la condición, pero es que no le veo donde está el fallo.
Gracias