limitare i record

[cavicchiandrea]

Ho provato ad eseguire una ricerca sul forum ma ha dato esito negativo il mio problema e il seguete:

io prelevo un record a caso da un db access e lo stampo avideo e questo funziona benissimo adesso vorrei stampare 5 record sempre a caso. come posso fare?

lo script che sto utilizando e il seguente:

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

SQLB = "SELECT * 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

%>

il presente script pero visualizza tutti i record presenti nella tabella.

Sperando di essere sta chiaro attendo vostri consgili.

Ciao

[maximum]

SQLB = "SELECT TOP 5 * FROM tb_banner Where IDbanner And attivazione=True and blocca=false"