<%
Randomize
For counter = 1 to 5
random_number = Int(26 * Rnd + 97)
random_letter = Chr(random_number)
password = password & random_letter
Next
%>

select top 25 from tab1 order by newid()

<%
set cn =server.createObject("adodb.connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &server.MapPath("data.mdb")
set rs = cn.execute("select count(*) from tab1")

countOfRec = rs(0)
randomize
random_number = int(rnd * countOfRec)+1

rs.close
set rs = nothing
Set rs = Server.createObject ("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "select * from tab1", cn, 3,1
if not rs.eof then
rs.PageSize = 1
rs.AbsolutePage = random_number

response.write "Random Number: " & random_number & ""

response.write rs("id") & " - " & rs("body")
end if

rs.Close
set rs = Nothing

cn.Close
set cn = Nothing
%>