Estrarre n record in maniera casuale da un database
Nello script #249 abbiamo visto come estrarre in maniera casuale un record da un database.
Lo script di oggi ne è una piccola variante, che permette di estrarne n.
<%
' numero massimo di record casuali
n = 4
' query SQL
strSQLMax = "SELECT Max(ID) as MaxVal FROM tabella"
strSQL = "SELECT ID, titolo FROM tabella Where ID IN ("
' apertura conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn ' la stringa di conn
' estrai valore massimo
Set rs = conn.Execute(strSQLMax)
intMax = rs("maxVal")
rs.Close
set rs = Nothing
' genera valora casuale
Randomize()
for i = 1 to n
intRandom = CInt ((Rnd() * intMax) + 1)
strRandom = intRandom & "," & strRandom
next
' tolgo l'ultimo carattere
strRandom = Left(strRandom, Len(StrRandom)-1)
' estrai record
Set rs = conn.Execute(strSQL & strRandom & ")")
for i = 1 to n
' visualizza in qualche modo
' ...
rs.MoveNext
next
rs.Close
set rs = Nothing
' chiusura conn
conn.Close
set conn = Nothing
%>Lo script #249 è disponibile su
https://www.aspitalia.com/liste/usag/script.asp?ID=249
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
