asilonline
New member
- Katılım
- 5 Ara 2007
- Mesajlar
- 1
- Reaction score
- 0
- Puanları
- 0
merhaba arkadaşlar. bir yarışma scripti buldum ve bunu düzenlemeye çalışıyorum. yapmak istediğim şu: Şimdi veritabanından onay=1 ve sorulmasayisi=0 olan sorulardan rasgele bir tane soru soruluyor. Ben bunu şu şekilde değiştirmek istiyorum. Sorulma sayısı minimum olan soruyu sormak istiyorum. Böylece sorulma sayısını sürekli sıfırlatmak zorunda kalmıyacam. İlgili kodlar aşağıda. Bunu nasıl değiştirebilirim. Yardımcı olanlara şimdiden teşekkürler..
Set soru = Server.CreateObject("Adodb.Recordset")
soru.Open "Select * from soru where onay=1 and sorulmasayisi=0", baglanti, 1, 3
Randomize
secilecek = Int((soru.RecordCount * Rnd) + 0)
soru.Move(secilecek)
session("soruno")=soru("id")
Harf = Array("id", "id desc")
Randomize
Gidecek = Gidecek & "" & Harf((Rnd * 1))
x = Gidecek
soru("sorulmasayisi")=soru("sorulmasayisi")+1
soru.update
Set soru = Server.CreateObject("Adodb.Recordset")
soru.Open "Select * from soru where onay=1 and sorulmasayisi=0", baglanti, 1, 3
Randomize
secilecek = Int((soru.RecordCount * Rnd) + 0)
soru.Move(secilecek)
session("soruno")=soru("id")
Harf = Array("id", "id desc")
Randomize
Gidecek = Gidecek & "" & Harf((Rnd * 1))
x = Gidecek
soru("sorulmasayisi")=soru("sorulmasayisi")+1
soru.update