Hata nerede ? - R10.net

09-07-2008, 20:13:38

Kimlik doğrulama veya yönetimden onay bekliyor.

Merhaba arkadaşlar sitemde rasgele oyun göstermek istiyorum fakat bir türlü hatadan dolayı yapamadım :S Yardımcı olursanız sevinirim..

<%
Set rs = Server.CreateObject("ADODB.Connection")
rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
%>
<%
Sorgu = "select * from oyunlar order by oyun_id"
Rs.Open Sorgu, bag, 1, 3 
%>
<%
ToplamKayit = rs.RecordCount
	Randomize
	gidilecekKayit = Int((ToplamKayit * Rnd ) + 0)
rs.Move(gidilecekKayit)
%>
  <table border=0 valign=top align=center width="154" height="74">
  <tr><td width="148" height="49">
  <p align="center">
  <a href="oyun.asp?id=<%=rs("oyun_id")%>" target="uye" onClick="oyun.asp?id=<%=rs("oyun_id")%>">
	<img src="" border=0 width=124 height=101></a><br>
  <b><font color="#FF6600" face="Tahoma" size="2">
  </font></b></td></tr></table>

11-07-2008, 07:55:24

#2

Aspffice

from oyunlar order by oyun_id desc" gibi dene yani ilk aklıma gelen buydu

olmazsa aşağdakini dene

Alıntı

<%
mdb="db/db.mdb"
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&mdb&"")
Set rs = Server.CreateObject("ADODB.Recordset")
sor = "Select * oyunlar order by oyun_id desc "
rs.Open sor,Sur,1,3
adet=rs.recordcount
if rs.eof or rs.bof then
else
Randomize
git = Int((adet * Rnd ))
rs.Move(git)%>

<table border=0 valign=top align=center width="154" height="74">
<tr><td width="148" height="49">
<p align="center">
<a href="oyun.asp?id=<%=rs("oyun_id")%>" target="uye" onClick="oyun.asp?id=<%=rs("oyun_id")%>">
<img src="" border=0 width=124 height=101></a><br>
<b><font color="#FF6600" face="Tahoma" size="2">
</font></b></td></tr></table>

<% end If
rs.close %>

11-07-2008, 09:23:59

#3

Cenq

Aşağıdaki sorgu işini görür. Başka bir asp koduyla random sayı üretmene gerek yok. Bu sql kodu access içindir.

SELECT TOP 10 *
FROM Oyunlar
ORDER BY (Rnd(Oyunlar.oyun_id))

11-07-2008, 23:51:35

#4

noertz

halletim arkadaşlar ayrı ayrı teşekkürler..