<%
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 %>