Herhangi bir tablodan rastgele veri çekmek için önce "sanalkurs.mdb" adlı bir Access veritabanı oluşturalım. Tablomuzun adı "dersler" olsun. Dersler tablosunun içerisindeki "asp" alanından rasgele veri alalım.
Veri tabanı adı: sanalkurs.mdb
Tablo adı: dersler
Alan adı: asp
İlgili kod
alıntıdır.
Veri tabanı adı: sanalkurs.mdb
Tablo adı: dersler
Alan adı: asp
İlgili kod
Kod:
<%
Set Rawk****l = Server.CreateObject("ADODB.Connection")
Rawk****l.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" &
Server.MapPath("sanalkurs.mdb")
set Rawk = server.createobject("ADODB.Recordset")
sql = "select *from dersler"
Rawk.open sql,Rawk****l,1,3
Randomize
rastgele = Int((Rnd*Rawk.RecordCount)+0)
Rawk.Move(rastgele)
Response.write Rawk(""asp"")
%>