Arkadaşlar merhaba, asp ve access ile veri tabanındaki bir tablodan tek bir sütuna ait 3 adet rastgele veri çekip ekrana yazdırmak istiyorum. Aşağıdaki kodu internette buldum;

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")


Kod bazen çalışıyor bazen çalışmıyor, kafasına göre 1,2 veya 3 adet veriyi ekrana yazdırıyor. 1 veya 2 adet yazdırdığında;

ADODB.Field hata '80020009'

Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor

Şeklinde hata alıyorum, işin içinden çıkamadım yardımcı olursanız sevinirim.