<%
Set oyun= Server.CreateObject("ADODB.Recordset")
oyun.Open "SELECT * FROM oyunlar ORDER BY RND",Sur,1,3

If not oyun.eof then
Do
Randomize
rastgele = Int((Rnd*oyun.recordcount)+0)
oyun.Move(rastgele)
Loop While IsNull(oyun("rnd"))
%>
bununla bi kayıtsetinden belirlediğin sql sorgusu için rastgele veri çekebilirsin.