Gönderen: 24-Mayıs-2012 Saat 22:35 | Kayıtlı IP

<%
Set Rastgele = BaglantiAdi.Execute(“Select * From TabloAdi”) ‘ Tablo bağlantısını Rastgele değişkenine atadık
If Not Rastgele.EOF Then ‘ Tabloda veri varsa
Set RastgeleAdet = BaglantiAdi.Execute(“Select Count(*) As RastgeleToplam From TabloAdi”) ‘ Tablodaki veri sayısını say
VeriAdet = RastgeleAdet(“RastgeleToplam”) ‘ Tablodaki veri sayısını VeriAdet değişkenine ata
For i = 0 to 0
Randomize ‘ Rastgele
Rastgele = Int((Rnd*VeriAdet)+0)
Rastgele.Move(Herhangi)
%>
VERİ GÖSTERME ALANI
RASTGELE VERİ HAKKINDA BURDA SUTÜN DEĞERLERİ YER ALABİLİR.
<%
Next ‘ Döngüyü devam ettir
End If ‘ Şartlandırmayı sonlandır
%>