<% 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 %>