<%
objConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("
tubd.mdb ")
strSQL = "SELECT * FROM
tutabla "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, ObjConn, 1, 2
rndMax = CInt(objRS.RecordCount)
Randomize Timer
rndNumber = Int(RND * rndMax)
objRS.Move rndNumber
Response.Write objRS("ID ")&" "&objRS("Username ")
Set objRS = Nothing
Set objConn = Nothing
%>
Creo que aki tienes lo quieres solo cabia lo que está en italicas negritas o subrayado a tu estilo ó necesidad...
Suerte
