çoklu randomize kullanımı

sata

Sitemde Ardı Ardına Dort Tane randomize kullanmak istiyorum kullandıgım kod asagıda

<%
dim baglanti,veriyolu,verial,kayit,sayi,sayi2

set baglanti = Server.CreateObject("ADODB.Connection")
veriyolu="Provider = Microsoft.Jet.OLEDB.4.0;data source = "& Server.MapPath("xxx.mdb") &";"
baglanti.open(veriyolu)

set verial = Server.CreateObject("ADODB.Recordset")
verial.open "SELECT * FROM tablo",baglanti,1,3

kayit = Verial.RecordCount

%>
<%

randomize
sayi = cint(kayit * Rnd)

if sayi > kayit Then
sayi2 = sayi -1
verial.Move(sayi2)
else
verial.Move(sayi)
end if

%>

Burada Tablolar Var Veriler İçin

<%
verial.close
set verial=nothing
baglanti.close
set baglanti=nothing
%>

sql yi baglantıyı kapatıyorm burada boyle oldugu zaman gayet guzel calısıyor fakat ben bunu 4 e cogaltmak istiyorum bir turlu yapamadım nasıl yapabilirim

bytuncay · 7 Ağustos 2006

levent Msn'e Gel yardımcı olayım

bytuncay · 7 Ağustos 2006

iyinet -rep vermişsin arkadaşla daha önce bu konuyu msnde konuşmuştuk sanırım bana ulaşamadı o yüzden msn'e gel dedim sağlık olsun

trextra · 7 Ağustos 2006

For döngüsü ile istediğiniz kadar döndürebilirsiniz. Döngünün başlangıcına

For i = 0 to 3

Sonuna ise Next koymanız yeterli.

bytuncay · 7 Ağustos 2006

<%
veri=conn.execute("select count(id) from fikra")
kayit=cint(veri(0))
set rs=conn.execute("select * from fikra")
for i=1 to 3
randomize
sayi = cint(kayit * Rnd)
baslik = rs("baslik")
rs.Move(sayi)
%>
<%=baslik%><br>
<%next%>

kendine göre uyarla

sata · 7 Ağustos 2006

Yardımlarınız için teşekkürler

bytuncay · 7 Ağustos 2006

bişe değil sata olan rep lere oldu

trextra · 7 Ağustos 2006

1 to 3 3 kere yapar

bytuncay · 7 Ağustos 2006

aynı gelme olasılığı rakam arttıkça artarmı trekstra

bytuncay · 7 Ağustos 2006

trextra' Alıntı:
1 to 3 3 kere yapar

Kendine Göre Uyarlasın

trextra · 7 Ağustos 2006

bytuncay' Alıntı:
aynı gelme olasılığı rakam arttıkça artarmı trekstra

Kayıt azsa aynı kayıt çıkar genelde.

bytuncay · 7 Ağustos 2006

trextra' Alıntı:
Kayıt azsa aynı kayıt çıkar genelde.

Bunu Engellek Lazım Hiç Hoş Olacağını Sanmıyorum

sata · 7 Ağustos 2006

by tuncay sorunu halletti ona ve trextraya cok tesekkurler +rep

Komikdunya.com · 9 Ağustos 2006

mysql kullanırsan daha rahat yaparsın..

bytuncay · 9 Ağustos 2006

Komikdunya.com' Alıntı:
mysql kullanırsan daha rahat yaparsın..

mysql ile bağlantısını pek çözemedim ?

Mp3Powers.Com · 9 Ağustos 2006

bytuncay' Alıntı:
mysql ile bağlantısını pek çözemedim ?

mysql deki order by rand() özelliğini sölemek istedi sanırım komikdünya

darkman · 9 Ağustos 2006

bu yazdığınız kod hatalı birkaç denemden sonra hatasını görüceksiniz zaten veri tabanında kayıt bulunamadı hatası vericektir. ben aşağıdaki kodu kullanıyorum şimdiye kadar hiç bir hata almadım tek problem aynı kayıtlarıda gösteriyor bende onunla uğraşıyorum bir türlü çözemedim ama bu kodda her hangi bir sorun yok diğer kodda kayıt yok hatasıyla sık sık karşılaşılacaktır istersen 5-10 kayıtlı bir veri tabanında dene sonucu gör

<%Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select id, adi From kayitlar"
rs.Open sql,dbcon, 1,3
toplam = CLng(rs.RecordCount)
For i = 1 to 5
Randomize
goster = Int((RND * toplam) + 1)
rs.Absoluteposition = Cint(goster)%>
Response.write(rs("adi"))
<%Next
rs.Close
Set rs = Nothing%>

bytuncay · 10 Ağustos 2006

darkman kodu düzelttik zaten

arkadaş kullanıyor sağlıklı bi şekilde aynı kayıtları göstermeyide engelledik kodun çalışan hali www.izlemelisin.com da

darkman · 10 Ağustos 2006

evet gördüm sağlıklı görünüyor eğer bir sakıncası yoksa banada nasıl yapıldığını gönderebilirmisiniz epeydir uğraşıyorum bir türlü aynı kayıtları göstermesini engelleyemedim

bu arada bu komik afganlı beni felç etti
http://www.izlemelisin.com/video-izle.asp?kateid=12&downid=237

bytuncay · 10 Ağustos 2006

darkman kodları burdan paylaşayım arkadaşınkini for next döngüsü ile yaptığımızda aynı resimler çok sık denk geliyordu farklı recordset ler kullanarak 4 randomize kodu kullandık sorun giderildi örnek kod aşağıdadır.

<%

set verial = Server.CreateObject("ADODB.Recordset")
set verial1 = Server.CreateObject("ADODB.Recordset")
set verial2 = Server.CreateObject("ADODB.Recordset")
set verial3 = Server.CreateObject("ADODB.Recordset")

verial.open "SELECT * FROM tablo",baglanti,1,3
verial1.open "SELECT * FROM tablo",baglanti,1,3
verial2.open "SELECT * FROM tablo",baglanti,1,3
verial3.open "SELECT * FROM tablo",baglanti,1,3

kayit = Verial.RecordCount

%>
<%

randomize

sayi1 = cint((kayit * Rnd ) +0)
verial.Move(sayi1)

sayi2 = cint((kayit * Rnd ) +0)
verial1.Move(sayi2)

sayi3 = cint((kayit * Rnd ) +0)
verial2.Move(sayi3)

sayi4 = cint((kayit * Rnd ) +0)
verial3.Move(sayi4)

%>
1. rnd

<%=verial("resim")%>

2. rnd

<%=verial1("resim")%>

3. rnd

<%=verial2("resim")%>

4. rnd

<%=verial3("resim")%>

bu şekilde kesinlikle aynı resimler denk gelmiyor