[karabela24]

Birden fazla ürünü random özelliğiyle göstermek istiyorum kod çalışıyor yalnız her refreshte ürün adedi değişiyor.Yani ilk gösterişte 4 ürün varken refresh yaptığımda 2 ürünü gösteriyor.Ben sürekli 4 ürün göstersin istiyorum.Nasıl yapabilirim acaba?

<%
Set rn=server.CreateObject("adodb.recordset")
rn.open "Select resim,adi,kat_id from urunler where kat_id=("&id&")",baglanti,1,3

Randomize
rastgele = Int((Rnd*rn.RecordCount)+0)
rn.Move(rastgele)
%>

<%

for i=1 to 4
if rn.eof then exit for
%>

<img src="images/th<%=rn("resim")%>.jpg" alt="<%=rn("adi")%>" width="200" />
<%

rn.movenext:next
rn.close
set rn=nothing%>

[dejavu®]

1. SQL cümleciginde altaki degişikligi yap random seçim olayi için
2. cod blogundaki random olayini kaldir do while ile loopa sokup tüm kayitlari cek

1. rn.open "SELECT TOP 4 * FROM urunler where kat_id=("&id&") ORDER BY NEWID() ",baglanti,1,3
2.

<%
Dim temp
Do While Not rn.EOF
temp &= "<img src=""images/th" & rn("resim") & ".jpg"" alt=""" & rn("adi") & """ width=""200""/>"
rn.movenext()
Loop

response.write(temp)
%>

gibi...

[absconder]

dejavu® tarafından gönderilen mesaj:

1. SQL cümleciginde altaki degişikligi yap random seçim olayi için
2. cod blogundaki random olayini kaldir do while ile loopa sokup tüm kayitlari cek

1. rn.open "SELECT TOP 4 * FROM urunler where kat_id=("&id&") ORDER BY NEWID() ",baglanti,1,3
2.

<%
Dim temp
Do While Not rn.EOF
temp &= "<img src=""images/th" & rn("resim") & ".jpg"" alt=""" & rn("adi") & """ width=""200""/>"
rn.movenext()
Loop

response.write(temp)
%>

gibi...

bu kod yalnızca SQL server'da çalışacaktır.

[dejavu®]

absconder tarafından gönderilen mesaj:

bu kod yalnızca SQL server'da çalışacaktır.

Tamamen katiliyorum.

Ancak msg'da access veya benzeri db türü belirtilmemiş
kaynak niteliginde benzer sıkıntıyı yaşayanlara çözüm niteliginde düşünülebilir yazdiklarim..

[karabela24]

dejavu databasesim ms access bunun için bir çözümün varmı?

[Dreamman]

Access için Random Kayıt Getirme

ilgil yazı : Burada

<%
    Randomize() 
    intRastgeleRakam = (cInt (1000 * Rnd) + 1) * -1
    strSQL = "SELECT TOP 5 sutun1, sutun2, RastgeleNo = rnd(" & intRastgeleRakam & ") FROM Tablonuz ORDER BY RastgeleNo" 
%>

[karabela24]

Dreamman tarafından gönderilen mesaj:

Access için Random Kayıt Getirme

<%
    Randomize() 
    intRastgeleRakam = (cInt (1000 * Rnd) + 1) * -1
    strSQL = "SELECT TOP 5 sutun1, sutun2, RastgeleNo = rnd(" & intRastgeleRakam & ") FROM Tablonuz ORDER BY RastgeleNo" 
%>

Dreamman yardımların için teşekkürler