Problema con código para banner rotator

[haven]

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

[Owen-Bonilla]

a ver... intenta esto :

strRS = "SELECT * from Banner1 order by [Tu_Campo] desc"

donde Tu_Campo es el campo que deseas ordenar Descendentemente ( Desc )

Lo otro que mencionas checa que tenga todos los permisos ( Escritura, lectura, etc.. ) o tambien checa que cuando la hayas subido se subio completa, porque a veces te sube el archivo pero tiene 0Kb ( Cero ) osea, nada !!

Checa y nos cuentas..

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]