Bu kısa uygulamada ASP ile Randomize nesnemizden faydalanarak rastgele ürettiğimiz sayı ile veritabanından kayıt alacağız.Bu rastgele kayıt almak demek oluyor.

Bunun için şöyle bir kod kullanılacak :

<%
Set vt = Server.CreateObject("ADODB.Connection")
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Veritabanim.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")
%>

Açıklama : Veritabanınındaki, tablo adında'ki tablo

İçeriğin devamı sadece üyeler içindir!