bu döngü niye çalışmıyor öncelikle şunu belirteyim bir veritabanı var ve içinde id deger var
goster.asp?id=5
nosu ile çağırı*** sayfada id si 5 den farklı herhangi bir kaydı rasgele seçmek istiyorum şöyle bir döngü kurdum yani kendisi dışındakiler gösterilecek
kont=id
Do While kont=id
Randomize
sec = Int((adet * Rnd ) +0)
rs.Move(sec)
kont=rs("id")
Loop
kontrol diye bir değişken koydum ve önce bunu yukarıdaki id ile eşitledimki döngüye bir defa mutlaka girsin burada da random ile bir kayda konumladım ve tekrar konta adarım eğer farklı ise döngüden çıksın ve böylece farklı bir kayda konumlamış olayım diye ama olmuyor yine geliyor kayıtlar ayrıca sayac değerleri koydurum döngünün kaç defa döndüğünü kontrol ettim her seferinde sadece 1 kez dönüyor
bir el atın kafayı yicem
__________________ SiteOfisi.Com | Yeni Nesil Web Dizin & Web Portal
|