I need to build an ASP page that will fetch 6 random records from an
Access 97 table each time it's reloaded. I have built the following
query, called qryRandomRecords:

-----
SELECT TOP 6 tblProduit.ProID, tblProduit.ProNom FROM tblProduit ORDER
BY Rnd(ProID);
-----
(ProID is an autonumber field)

This works perfectly within Access; each time I lauch the query, 6
different records are selected.

HOWEVER, the exact same query called from the ASP page ALWAYS return
the same records.

I have tried different variations with no success. I googled this
problem and one theory is that the OLEDB provider caches the seed...

So my question is: how can I achieve my goal? (short of retrieving all
records and jumping to random positions, something i'm reluctant to
do)

My connection string is:

Provider=Microsoft.Jet.OLEDB.4.0; User ID=Admin; Data
Source=c:\data\db.mdb; Mode=Share Deny None; Persist Security
Info=False

<%
dim connstr
dim ojbectConnection
connstr="DBQ="+server.mappath("/db1.mdb")+";DefaultDir=;DRIVER={Microsoft
Access Driver (*.mdb)};"
set ojbectConnection = Server.CreateObject ("ADODB.Connection")
ojbectConnection.Open connstr

dim sql
dim temp
sql="SELECT top 7 * From test;"
set rs=server.createobject("adodb.recordset")
rs.open sql,ojbectConnection,1,1
temp=rs.RecordCount

Do Until temp = 0
	Randomize
	RNumber = Int(Rnd*rs.RecordCount) +1
	temp=temp-1
	'response.Write("<br>")
	if not rs.eof and not rs.bof then
		rs.MoveFirst
		rs.move RNumber
		response.Write rs("id")
	end if
loop

rs.Close()
set rs = nothing
ojbectConnection.close
set ojbectConnection=nothing
%>