![]() |
#2
multiple19O22007-08-31 21:00
|
Randomize
upperbound = 20
lowerbound = 1
x = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
dim Orderby
Orderby = "id"
for i = 0 to x
Orderby = "Rnd("& Orderby &")"
next
'str = str & Orderby & vbnewline
sql = "SELECT top 10 id FROM a ORDER BY "&Orderby