random access 8 risultati

[slay]

questo è il codice con cui vorrei estrarre 8 record:

<% 
                dim SQLrand, objRSrnd
                SQLrand = "SELECT Max([ID]) AS MaxID, Min([ID]) AS MinID FROM citta_rinomate" 
                ' Eseguiamo la query
                Set objRSrnd = dcnDB.Execute(SQLrand) 
                ' Memorizzo il min e max in 2 variabili di comodo
                Dim maxID, minID, rndID
                maxID = objRSrnd("MaxID")
                minID = objRSrnd("MinID") 
                objRSrnd.close
                set objRSrnd = nothing
                
                ' calcoliamo l'ID casuale
                Randomize 
                rndID = Int((maxID - minID + 1) * Rnd + minID) 


                dim contatore_cittar,datawpdata_cittar,giornowpdata_cittar,rsh_cittar,sqlh_cittar
                Set rsh_cittar = Server.CreateObject("ADODB.Recordset")
                sqlh_cittar="select top 8 * from citta_rinomate where [ID] >= "&rndID&" and visualizza = true order by id desc"
                rsh_cittar.open sqlh_cittar, dcnDB, 3, 3
                %> 

il tutto funziona però non mi estre 8 record cioè a volte si a volte me ne estrae 1 a volte 3 come potrei risolvere ..