Help!! Returning Random 10 Records form a database??

<% 
dim dbConn,RecSet,SQL,myTotal, CntRecords
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open "Driver=mySQL};Server=localhost;Database=MyDatabase;uid=MyUID;pwd=MyPWD"

'First we need to know how many records there are in the table
SQL = "Select Count(*) AS myTotal FROM MYTABLE"
Set RecSet = dbConn.Execute(SQL)
'CntRecords now holds the number of records in the table
CntRecords = recset("myTotal") 

'we need an array to hold the id's of the records
dim ArrRecord(10)

'then we use a simple for-next loop to get the numbers from the array
'and select the corresponding record from the db
for x = 1 to 10
'add a random number to the array
'we dont want a zero, so that's why we add +1
ArrRecord(x) = int(rnd * (mytotal-1))+1
next x

for x = 1 to 10
SQL = "SELECT * FROM MYTABLE WHERE ID='"&ArrRecord(x)&"'"
set recset=dbConn.execute(SQL)

'here you can do anything with the record you've selected

next x

%>