random

benbramz · #1 Jul 17th, 2005, 19:59

hi

how would you go about selecting a random record from a database?

basicly i want a page, and when you hit it a random record from the database is displayed. so if i was to refresh the page, you would see another (random) record

cheers

Webforumz Staff · #2 Jul 17th, 2005, 20:31

Access or SQL?

benbramz · #3 Jul 17th, 2005, 21:17

access

Webforumz Staff · #4 Jul 18th, 2005, 01:16

http://www.webforumz.com/viewtopic.p...=access+random

benbramz · #5 Jul 18th, 2005, 01:42

ha! lol never saw that post 5 from the top

however, im stuck. basicly im editing a script i downloaded. its the page that shows all the entries of the database. However, im not sure where or what to edit to make the RND function work.

Code: Select all

  <%
  dim Connect, SHOWALL, Query 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb"))
Set SHOWALL = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM records"
SHOWALL.Open Query, Connect, adOpenDynamic, adLockOptimistic
SHOWALL.movefirst
do while not SHOWALL.eof
%>

how do i edit this? and whats the basic connection to the db, cos i know some of that is extra, just dont know what.
(is it this?)

Code: Select all

  <%
  dim Connect, SHOWALL, Query 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb"))
Query = "SELECT * FROM whatever"
%>

with regards

Webforumz Staff · #6 Jul 18th, 2005, 05:01

Ack, it's not the way I usually write this stuff but this is the basic connection part

Code: Select all

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb"))

And to get one random one you want to change

Code: Select all

Query = "SELECT * FROM records"

to

Code: Select all

Randomize()
intRandomNumber = Int (1000*Rnd)+1


Query = "SELECT TOP 1 *,Rnd(" & -1 * (intRandomNumber) & "*TableID) AS rid  FROM records ORDER BY rid"

replacing TableID with the name of the id field for the table.

I haven't tested it but unless I made a typo that should work.

LinkBacks (?) LinkBack to this Thread: http://webforumz.com/classic-asp/2670-random.htm
Posted By	For	Type	Date
Computer!Totaal :: Bekijk onderwerp - Een willekeurig record ophalen (C#, ASP.NET)	This thread	Refback	May 6th, 2008 19:21

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Random div background	Narcassa	JavaScript Forum	5	Apr 9th, 2008 18:54
Random .swf on refresh	jtyoungs	JavaScript Forum	2	Sep 19th, 2007 12:48
random opening image	berjoe	Flash & Multimedia Forum	3	Oct 11th, 2006 01:27
how to make random questions?	selphie08	Flash & Multimedia Forum	5	Sep 18th, 2006 01:48
Random records..	u2orange	Databases	6	Mar 8th, 2004 09:31

		Webforumz.com > Main Forums > Program Your Website > Classic ASP
random