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>