Tengo este código que sirve para sacar banner de una base de datos, este código está contenido en un iframe con una recarga de 10 sg para que se vayan actualizando.
Código:
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("demo.mdb")
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner1"
rs.Open strRS, Conn, 1, 3
strRS = CInt(rs.RecordCount)
rs.MoveFirst
randomize
linie = int(rs.RecordCount * rnd)
rs.MoveFirst
rs.Move(linie)
rs("Shown") = rs("Shown") + 2
rs.Update
Response.Write("<a href=javascript:MM_openBrWindow('redirect1.asp?id=" & rs("ID") & "','Banner','width=523,height=520,scrollbars=yes')><img src='" & rs("Filename") & "' alt='" & rs("Description") & "' border='0'></a>") & vbCrLf
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
%>
El problema es que necesito que siempre me lea como prioritario el banner que está el primero en la base de datos, por norma el Id=1 aunque no es seguro, lo seguro es que está el primero en la BD ¿Alguien me puede ayudar o sabe alguna otra forma de realizar esto?
Otra cosa hoy me he bajado la BD para repararla un poco, está realizada en acces 97, por lo que la he pasado a acces 2000 y la he compactado, pero al subirla a internet me decía que no podía leerla
,¿A que se debe esto...?
Un saludo