Banner Rotator

[haven]

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