Random Record From Database

[admin]

This is requested so often we had to write a script for it. What this does is simply display a random record from a database table. How it works is:

-Gets a record count
-Creates a random number based on the record count
-Displays the appropriate result


<%@ Language=VBScript %>

<%
dim conn, rs, connStr, sql, recCount, rec

set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connStr

sql = "Select eComm_ID From tblEComm"
rs.Open sql, conn, 3

'grab the record count using the RecordCount property of the RecordSet
recCount = rs.RecordCount

rs.close
conn.Close
set rs=nothing
set conn=nothing

'Randomize forces the RND() function to use a new sequence of random numbers
randomize

'generate the random number based on the record count
rec = int(rnd * recCount)

set conn=server.CreateObject("adodb.connection")
conn.open connStr

sql = "Select Field1, Field2, Field3 From tblECommerce Order By eComm_ID"
set rs=conn.execute(sql)

rs.MoveFirst

'use the Move property of the RecordSet object to move to the random number
rs.Move rec
%>

<table>
<tr><td><%= rs("Field1") %></td></tr>
<tr><td><%= rs("Field2") %></td></tr>
<tr><td><%= rs("Field3") %></td></tr>
</table>

<%
rs.Close
conn.close
set rs=nothing
set conn=nothing
%>