Bugün bir script uygulamasında veritabanından rastgele veri çekmek için bu kodu ararken birçok hatalı kodla karşılaştım (veya benim işime yaramayan). Ama sonunda işe yarar bir tane buldum, bunu sizinle paylaşmak istiyorum. Bu kısa uygulama ile rastgele ürettiğimiz sayı ile veritabanından her sefer değişmek kaydıyla veri çekeceğiz.
Gerekli kodumuz

< %
Set vt = Server.CreateObject("ADODB.Connection")
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

set rs = server.createobject("ADODB.Recordset")
sql = "select * from tablo"
rs.open sql,vt,1,3

Randomize
rastgele = Int((Rnd*Rs.RecordCount)+0)
Rs.Move(rastgele)
Response.write Rs("isim")
%>

veritabani.mdb: veritabanının adını yazacağınız kısım.
sql = “select * from tablo” : tablo yazan kısıma, verinin çekilmesini istediğimiz tablonun adını yazıyoruz.
Response.write Rs(”isim”) : isim yazan kısmı tablomuzdaki stünün adını yazıcaz.