Hola a todos.Estoy haciendo mediante asp que se muestre una imagen aleatoria.
He creado una base de datos en la cual hay una tabla con un campo autonumerico que dice el codigo de la imagen, y otro campo es la ruta relativa. después el codigo asp que he creado es el siguiente:
<%
dim aleatorio,conn,rs
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/basesdedatos/imagenes.mdb"))
consulta_SQL= "Select * from imagenes"
Conn.execute consulta_SQL
RS.Open consulta_SQL ,conn
RANDOMIZE
aleatorio = int(rs.recordcount*rnd)
' rs.movefirst
LINEA 12:rs.move(aleatorio)
Response.Write("<IMG SRC="&RS("ruta") &" BORDER=2>")
rs.close
conn.close
Set rs=nothing
Set conn=nothing
%>
el error que me da es el siguiente:
Tipo de error:
Microsoft JET Database Engine (0x80040E24)
El conjunto de filas no admite recuperación hacia atrás.
/TMP5rhrox97cn.asp, línea 12
GRACIAS POR TODO!
