Daha önce bu yazıda ASP ile veritabanından rastgele içerik çekmeyi göstermiştik. Bu yazımızda o yazımıza alternatif aşağıdaki kodlar ile isterseniz bir adet isterseniz birden fazla rastgele içerik çekmeyi gösterelim. Doğrudan kodlar üzerinde açıklayalım.
Set Rastgele = BaglantiAdi.Execute(“Select * From TabloAdi Order By Rnd(-(1000*id)*Time())“) i=1 ‘ i değişkenimize 1 değeri verdik While i<6 And Not Rastgele.EOF ‘ i 6 dan küçük oldukça ve içerik oldukça döngü devam edicek ‘ Veriyi bu alanda yazdırmalısınız. i=i+1 ‘ her defasında i değişkenimizi 1 artır Rastgele.MoveNext Wend ‘ Döngüyü sonlandır Rastgele.Close:Set Rastgele=Nothing ‘ Bağlantıyı sonlandır
İlk satırımızda yaptığımız bağlantıda Order By Rnd(-(1000*id)*Time()) ekledik.
Order By, bildiğiniz üzere sıralama için kullanıyordu.
Eğer birden fazla veri çekmeyecekseniz döngüye gerek yok, birden fazla değer çekmek içinde kaç adet veri çekecekseniz While i<6kısmındaki 6 değerini değiştirmelisiniz.
