SQLArticoli = "SELECT TOP "& 5 &" Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast FROM [Commenti] RIGHT JOIN [Articoli] ON Commenti.IDArticolo = Articoli.ID WHERE Articoli.Data <= '"& DataToStr(Date()) &"' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast ORDER BY Articoli.Data DESC, Articoli.Ora DESC"
Set RSArticoli = Server.CreateObject("ADODB.Recordset")
RSArticoli.Open SQLArticoli, Conn, 2, 2
RSArticoli.move = 5
if RSArticoli.eof then 'gestisco l'eventualità di un errore nel caso ci siano meno di 5 record
response.write("Non sono presenti articoli")
RSArticoli.close
set RSArticolo = nothing
conn.close
set conn = nothing
response.end()
end if
do while not RSArticoli.eof
'visualizzi i dati che ti servono
RSArticoli.movenext
RSArticoli.close
set RSArticolo = nothing
conn.close
set conn = nothing