Asp random database reading

Set rs = Server. CreateObject ("Adodb. RecordSet ")
Rs. open SQL, conn, 1, 1
DIM Appeared
Call DisRndRecord (10, rs. recordCount) 'Call the function to display records at this position
################# SUBS ################
'# DisRndRecord (DisNum, rsBound)
'# Parameter DisNum: Display quantity
'# Parameter rsBound: Random Number Generation range
Sub DisRndRecord (DisNum, rsBound)
DIM I, ThisRnd
If rsBound <DisNum Then DisNum = rsBound 'the total number of records is smaller than the number of records to be extracted
For I = 0 To DisNum-1
ThisRnd = GetRnd (rsBound) 'gets a random number that is not repeated.
Rs. Move (ThisRnd) 'the cursor moves to the random number location to read
Response. Write ("<br/> (" & rs ("id") & ")" & rs ("Title "))
Rs. Move (-ThisRnd)
Next
End Sub
'# The GetRnd (bound) function returns a random number that is not repeated.
'# Bound: Random range
Function GetRnd (bound)
DIM ranNum
Randomize ()
RanNum = int (bound * rnd)
If Instr (Appeared, "[" & ranNum & "]") whether the random number produced by then' has exists
RanNum = getRnd (bound)
End If
Appeared = Appeared & "[" & ranNum & "]" 'records the random numbers
GetRnd = ranNum
End Function