<%
SQL = "Select * from myTable"
Set rsGetRs = Server.CreateObject("ADODB.Recordset")
rsGetRs.Open SQL,Conn,1,3
intRowCount = Cint(rsGetRs.Recordcount)
rsGetRs.MoveFirst
Randomize Timer
intRandomRecord = Int(Rnd * intRowCount)
rsGetRs.Move intRandomRecord
%> |