Estrarre 5 record random da una tabella

[crescenzo]

Salve a tutti
come da titolo sto cercando di estrarre 5 record in modo random da una tabella/query
premesso che prima di postare ho fatto un pò di ricerca nel forum e letto qualcosina e trovanto anche un link molto utile al caso
http://databases.aspfaq.com/database...om-record.html

da qui ho preso il cod modificato per il mio caso uso questo cod

<%

Const adOpenKeyset = 1
Const adLockReadOnly = 1
dim area
area=request.QueryString("area")
%>

<% 
     
    ' ***** (step 1) ***** 
 
    set rs = conn.execute("SELECT COUNT(ID) FROM qryArticoliInVendita_tutti") 
    rCount = rs(0) 
 
    ' ***** (step 2) ***** 
 
    set rs = conn.execute("SELECT ID FROM qryArticoliInVendita_tutti") 
    cnt = 1 
    dim RRs 
    redim RRs(rCount) 
    do while not rs.eof 
        RRs(cnt) = rs(0) 
        cnt = cnt + 1 
        rs.movenext 
    loop 
 
    ' ***** (step 3) ***** 
 
    randomize 
    currentRR = cLng(rnd*rCount+0.5) 
    ID = RRs(currentRR) 
 
    ' ***** (step 4) ***** 
 
    sql = "SELECT * FROM qryArticoliInVendita_tutti WHERE ID=" & ID 
    set rs = conn.execute(sql) 
    'response.write "ID # " & ID & " = " & rs(0)
    Response.Write "<nome id=""" & rs("idnome") & """/><descrizione h=""" & rs("hdescrizione") &""">" & rs("descrizione") & "</descrizione><foto h=""" & rs("ID") &""">"& rs("foto") &"</foto>"
 
     
    rs.close: set rs = nothing 
    conn.close: set conn = nothing 
%> 

beh la cosa sembra fungere x un solo record...se volessi invece estrarre 5 record con questo metodo cosa devo modificare?

grazie x il Vs tempo