Estoy utilizando este código:
Código:
set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner1"
rs.Open strRS, Conn, 1, 3
'nuevo código
'con este código conseguimos que los banner que hay en la BD se vayan alternando
'al recargar la página.
strRS = CInt(rs.RecordCount)
rs.MoveFirst
Randomize Timer
linie = Int(RND * strRS)
rs.Move linie
'codigo que estaba al principio
'este código no cambia el banner al cargar la página
'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") & "','Bermudahíbrida419','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
Con esto consigo más o menos que cada vez que se recargue la página se ponga el siguiente banner que está alojado en la BD (no funciona muy buen porque si regargo la página me muestra de nuevo el banner que estaba, tengo que recargar unas 3 veces)
Bueno lo que me gustaría es que los banner irian rotando a los x segundos. ¿como puedo hacer esto?
Muchas gracias
Un saludo