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 ..

[slay]

[slay]

nessuno ..

[optime]

dovrebbe bastare un

sqlh_cittar="select top 8 * from citta_rinomate where visualizza = true order by rnd(id)"

[slay]

grazie sembra funzionare...

[optime]

optime!

[slay]

alè...

[slay]

Originariamente inviato da slay
grazie sembra funzionare...

sto ancora con questo script il tutto sembra funzionare però quando faccio il refresh della pagina non mi cambia i record.. hai hai 1 idea del perchè?

[optime]

no compriendo...

[slay]

questo è il codice:

<% 
                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 10 * from citta_rinomate where visualizza = true order by rnd(id)"
                rsh_cittar.open sqlh_cittar, dcnDB, 3, 3
                %> 
                <table width="301" border="0" cellspacing="0" cellpadding="0"><tr>
                <%
                While rsh_cittar.EOF = False
                ' IMPOSTO LA PAGINAZIONE A 3 COLONNE ED N RIGHE
                ' IN FUNZIONE DEL NUMERO DI RECORD PRESENTI NEL DB
                If contatore_cittar = 2 Then
                contatore_cittar = 0
                Response.Write "</tr><tr>"
                End If
                %>
                 <%=rsh_cittar ("citta")%>                
                <%
                rsh_cittar.MoveNext
                ' INCREMENTO IL VALORE DEL CONTATORE
                contatore_cittar = contatore_cittar + 1
                Wend
                rsh_cittar.Close
                Set rsh_cittar = Nothing
                %>
                  </tr>
                </table> 

mi dovrebbe estrarre 10 record random lui mi estrae 10 record ma sempre gli stessi se faccio aggiorna pagina non cambiano