seria algo similar a esto.... en negritas lo que deberias de agregarle al codigo que te proporciono
tammander
<%
Dim conn, rst
set conn = server.CreateObject("ADODB.Connection")
conn.open "connectionstring"
set rst = conn.execute("SELECT * FROM tabla")
if not rst.EOF then
rst.moveFirst()
for i=0 to 9
a = Int((rst.recordCount) * Rnd)
' Te posiciones en el registro aleatorio
rst.move(a)
next
end if
rst.close()
set rst = nothing
%>
suerte