10 ottobre 2005 alle 12:41:05
Modificato il 10 ottobre 2005 alle 12:42:44

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT min(uID) as MIN, max(uID) as MAX FROM users where uValid = True And uProfile = TRUE"
Set oRs = DBRecordSet(oCn, rSQL)
idMIN = Server.URLEncode(oRs("MIN"))
idMAX = Server.URLEncode(oRs("MAX"))
oRs.Close
set oRs = Nothing

'Randomize
idSELECT = Int((idMAX-idMIN) * Rnd) + idMIN
rSQL = "SELECT TOP 1 * FROM avatar RIGHT JOIN users ON avatar.avID = users.uAvatar where uValid = True and uProfile = True and uID >= " & idSELECT

Set oRs = DBRecordSet(oCn, rSQL)