Random Select from Database

When giving the Random function a seed it will also produce the same number and thus if your random seed is constant (in this case the ID of a record), it will always be sorted the same way. This may be different from the default sort, but the rows will always be in the same order sorted by Rnd(id). Remove the seed and sort by Rnd() and you should get random sorting. I don't use Access so I can't tell you explicitly that it will work.

An alternative would be to count the number of records in the database and use VBScript's Rnd() function to select the random record and then query for the that particular record. This is the method that most Ad program use.



NewID() only works with SQL Server so that would not help you with an Access database.

it worked, thanks to MorningZ post.

 

<%
Dim Rand, RandS, RandHere
Rand = "SELECT id, Make, Model, Image FROM eCatalog "
set RandS = server.createobject("adodb.recordset")
RandS.open Rand, Conn, 3, 1

Dim rndMax
rndMax = CInt(RandS.RecordCount)
RandS.MoveFirst
Randomize Timer
Dim rndNumber
rndNumber = Int(RND * rndMax)
RandS.Move rndNumber

 

RandHere = RandHere & "<img border=""0"" onError=""src='GfX/clear.gif'""  src=""eShop/" & RandS(1) & ".gif""><BR>"
RandHere = RandHere &  "<img border=""0"" src=""eShop/" & RandS(3) & """>"
response.write RandHere
%>

 

 

Edited by zMaestro

Cool

Shame there's not a simpler way in Access like SQL Server though, and when I was digging around in Access earlier, I remembered how much I've forgotten about Access (haven't used it for a couple of years now since we moved to MS SQL Server).

how can we distribute rows in a database