Attualmente sto utilizzando il presente script per visualizzare a random dei banner presenti in un DB.
Io vorrei visualizzare 5 banner per caricamento della pagina (random) pescando da tutti i banner presenti nel DB.
Credevo che inserendo top 5 di risolvere il problema ma così non è. Resto in attesa di vostri consigli per risolvere il problema.

Ciao
<%
dim stbanner,sqlb,vai,idbanner,strsql,immagine
Set STBANNER = Server.CreateObject("ADODB.Recordset")

SQLB = "SELECT top 5 * FROM tb_banner Where IDbanner And attivazione=True and blocca=false"
STBANNER.Open SQLB, Conn, 1, 3

IF STBANNER.EOF THEN
Response.Write("Nessun Banner")
ELSE
'Funzione per generare un record casuale dei banner con ( Randomize )

Randomize
Vai = Int((STBANNER.RecordCount * Rnd)+ 0)
STBANNER.Move(Vai)

'Estraggo i record dal database
do Until STBANNER.Eof = true
IDBanner= STBANNER("IDbanner")
page=Request.ServerVariables("SCRIPT_NAME")
Response.Write("" &STBANNER("tuobanner")&"")
STBANNER.movenext
loop
'Tengo conto di tutte le volte che il banner è stato visualizzato

Conn.Execute("UPDATE tb_click_banner SET impression = impression + 1 WHERE idbanner = '" &idbanner& "'")

end if
STBANNER.Close
Set STBANNER = Nothing

%>