Random Record

<i><b>Originally posted by : John (jake_leblanc@hotmail.com)</b></i><br />I am looking for some sample code to show a random record being select out of a database on a daily basis or anytime somebody visits the page. Which ever one is easier.

<i><b>Originally posted by : Scott March (interweb@interweb-tech.com)</b></i><br />Try this... Change the cnt1 = 20 value to whatever number of records you want to display.<br /><br />------------<br />John at 4/10/2000 4:27:01 PM<br /><br />I am looking for some sample code to show a random record being select out of a database on a daily basis or anytime somebody visits the page. Which ever one is easier.<br />-------------------------------------<br /><%<br />Dim objConn<br />Dim objRst<br />Dim strSQL<br />Dim strConnection<br />Dim str<br />Dim str1<br />Dim cnt<br />Dim cnt1<br />Dim rndMax<br />Dim RndNumber<br />Dim sqlBiz<br /><br />strConnection="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/yourDBpath.mdb")<br />strSQL = "SELECT id FROM YourTbl"<br /><br />set objConn = Server.CreateObject("ADODB.Connection")<br />Set objRst = Server.CreateObject("ADODB.Recordset")<br />objConn.Open strConnection<br />set objRst.ActiveConnection = objConn<br />objRst.LockType = adLockOptimistic<br />objRst.CursorType = adOpenKeySet<br />objRst.Open strSQL<br /><br />objRst.MoveLast<br />cnt = objRst.RecordCount<br />cnt1 = 20<br />rndMax = cnt<br /><br />str = ","<br />str1 = ","<br /><br />Do Until cnt1 = 0<br /><br />Randomize<br />RndNumber = Int(Rnd * rndMax)<br /><br />If (InStr(1, str1, "," & RndNumber & "," ) = 0) Then<br />str1 = str1 & RndNumber & ","<br />cnt1 = cnt1 - 1<br />objRst.MoveFirst<br />objRst.Move RndNumber<br />str = str & objRst("id") & ","<br />End If<br /><br />Loop<br /><br />objRst.Close<br />Set objRst = Nothing<br /><br />sqlBiz = "SELECT * FROM YourTbl WHERE (((InStr(1,'" & str & "',(',' & [id] & ',')))<>0)) "<br />Set objRst = Server.CreateObject("ADODB.Recordset")<br />set objRst.ActiveConnection = objConn<br />objRst.LockType = adLockOptimistic<br />objRst.CursorType = adOpenKeySet<br />objRst.Open sqlBiz<br />%><br /><br /><br /><%<br />objRst.MoveFirst<br />do while Not objRst.eof<br />%><br /><br /><%<br />Response.Write objRst.Fields("YourField1") & "<BR>"<br />%><br /><br /><%<br />objRst.MoveNext<br />loop<br /><br />objRst.Close<br />Set objRst = Nothing<br /><br />objConn.Close<br />Set objConn = Nothing<br />%>