Eğer veritabanından rastgele veri çekmek istersen KOD :

<%

Set Dbconnection = Server.CreateObject("ADODB.Connection")
Dbconnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanim.mdb")

Set rs = Server.Createobject("ADODB.Recordset")
Sql = "SELECT * FROM tabloadi"
rs.open Sql,Dbconnection,1


For i = 1 to 3

Randomize
Rastgele = Int((Rnd*rs.RecordCount)+0)
Rs.Move(Rastgele)

Response.Write rs("isim")

Next
%>

Sayfa her yenilendiğinde farklı kayıtlar çıkacaktır..