Display all records on a page?

[woodywyatt]

This is the code I'm using to display records from an Access database in a
random order.
The problem is when the page is refreshed it doesn't always show all of the
records at once. What do I need to change in this code to display all
records in a random order?

<%
Const adCmdText = &H0001
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Uploadad_STRING
Recordset1.Source = "SELECT * FROM upload"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
Dim intRnd
Randomize Timer
intRnd = (Int(RND * Recordset1.RecordCount))

' Now moving the cursor to random record number
Recordset1.Move intRnd
%>