Classic ASP/VBScript - Random recorset when IDs are not consequtive

'CODE TO GET RANDOM ID FROM DATABASE STARTS HERE
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr

' FIRST START: get random ID beween min & max IDs stored in database 

qry = "SELECT MAX(ID) As MaxID FROM Yourtablename"

Set oRS = oConn.Execute(qry)


If IsNull(oRS("MaxID")) Then
   MaxID = 1
Else
   MaxID = oRS("MaxID")
End If

LowNum = 1
HighNum = MaxID

oRS.close

Set oRs = nothing



' FIRST ENDS

' SECOND START: avoid missed IDs and define constant RandomIDfromDB


Do Until CheckRandomID<>""

Randomize()
RandomID = Int((HighNum - LowNum + 1)*Rnd() + LowNum)

qry = "SELECT ID FROM Yourtablename WHERE ID=" & RandomID & " "


Set oRS = oConn.Execute(qry)

if not oRS.EOF then
while not oRS.EOF


CheckRandomID = oRs.Fields("ID")

oRS.movenext
wend
oRS.close
end if

Set oRs = nothing

Loop

if CheckRandomID<>"" then
RandomIDfromDB=CheckRandomID
End If



' SECOND ENDS

Set oConn = nothing


'CODE TO GET RANDOM ID FROM DATABASE  ENDS HERE