Asp access random records are not repeated

There are too many people writing this, and small websites occasionally need to use it.

Write one by yourself

 

Randomize

Dim I: I = 0

SQL = "select ID, caption from table"

Set rs = server. Createobject ("ADODB. recordset ")
Rs. Open SQL, Conn, 1, 3

Lngcount = Rs. recordcount
Redim idlist (lngcount)
While I <lngcount

Lngrnd = int (lngcount * RND) + 1)
Rs. absoluteposition = lngrnd
If isempty (idlist (lngrnd) then

Response. Write RS (0) & "<br>"

Idlist (lngrnd) = 1

I = I + 1

End if

Wend

Rs. Close

Set rs = nothing

Erase idlist