Salve a tutti,

questo pezzo di codice mi estrae da access dei record casuali ... e fino a qui e tutto ok, me s volessi aggiungere un peso all'estrazione, cioè dare a un record piu possibilita di uscire rispetto ad un'altro (ho un campo numerico che ho chiamato peso da 1 a 99 ) come posso procedre ?


Data = "20120104"

SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM BANNER_Gestione Where Data = '"&Data&"' And NumeroBox = 1 "
Set Rs=Conn.Execute(SQL)

Dim maxID, minID, rndID
maxID = Rs("MaxID")
minID = Rs("MinID")

Randomize
rndID = Int((maxID - minID + 1) * Rnd + minID)

SQL = "SELECT * FROM BANNER_Gestione WHERE ID >= " & rndID
Set Rs= Conn.Execute(SQL)

Response.Write(Rs("ID"))