randomize
rastgelesayi=Int(Rnd*rs.recordcount)
"where kategori_id=2 and id=rastgelesayi" sql de bu kısımla olur sanırım
Bunu yemez neden dersen id=rastgelesayi tutmayacaktır çünki arada silinen kayıtlar vs. oluyor bunun yanı sıra kategori_id=2 dediğimiz için zaten aradan diğer kategorilerin kayıtları çıkacağı için yine id numarası tutmayacaktır.
İlgine teşekkür ederim
normalde bu komut veri tabanından rastgele veri çeker. ancak kategori numarasına göre istediğiniz için
şeklinde bir komut kullanmalısınız benimde biraz bazım ağrımakta sedefle aram kötü bugunler de pek rahat bırakmıyor anlatamadı isem üzgünüm ama mantık bu sekildedir
gibi kullanmanız gerekmekte. Sanırım tüm veriyi
Büyük ihtimalle böyle olacaktır deneme yapıp sonucu bildiricem.
<%
set rasgele = baglanti.execute("select * from oyun where kid=15 order by rand() limit 5")
do while not rasgele.eof
response.write rasgele("baslik")
rasgele.movenext:loop
rasgele.close:set rasgele = nothing
%>İsviçreli profesörler tarafından test edilmiş ve onaylanmıştır.
Edit: Ben mysql veritabanı kullandığım için mysql olanını yazdım, access'i hayatımdan sildim artık görüşmüyoruz, zaten yukarda arkadaşlar yazmış.
Mysql çok gıcık herşey iyi güzel ama olmadık yerde hata verdiği zaman çıldırtıyor insanı. Ayrıca ufak bir script yazdım hatır için (zaten parayla script yazacak sinir sistemi kalmadı) bir arkadaşın babasına mysql destekli asp host aramayım diye mdb kullandım.
dipnot: rand() özelliği hakkaten mükemmel
Edit:
Uykusuzluk yaradı herhalde çözdüm işi
İhtiyacı olacak arkadaşlar için buyrunuz çalışan kod
<%set reklam=server.CreateObject("ADODB.recordset")
SQL_reklam="select * from reklamlar where alan_adi='Haber Altı'"
reklam.open SQL_reklam,rek,1,1
rndMax = CInt(reklam.RecordCount)
Randomize Timer
rndNumber = Int(RND * rndMax)
reklam.Move rndNumber
%>Gerisi sayfaya yazdırmak istediğiniz zamazingonun kodları.