online üyeleri göremiyorum

[asilonline]

Aşağıdaki kodlar ile online üyeleri göremiyorum. Nasıl bir düzenleme yapmalıyım. yardım ederseniz sevinirim.

TEŞEKKÜRLER...



<table border=0 cellpadding=0 cellspacing=0 align=center width="212" class="puan_listesi_ana"><tr><td class="puan_listesi_baslik" height="25px" align="center" colspan=6>
<table border=0 cellpadding=0 cellspacing=0 align=center class="puan_listesi_ana"><tr><td><td class="puan_listesi_baslik"><img src="images/onlist.gif"></td><td class="puan_listesi_baslik" width="400" align="center">Online <%=onlinedestem%> Üye Listesi</td></tr></table>
</td><tr>
<td class="puan_listesi_icerik" height="25">&nbsp;<font class="fontbaslik">Üye</td>
<tr>
<td background="images/nokta.gif" height="1" colspan="6"></td><tr>
<%
tarihim=dateAdd("s",-60,now)
Set onlineuye = Server.CreateObject("Adodb.Recordset")
onlineuye.Open "select M_USERNAME from PORTAL_MEMBERS where onlinetarihi>=#"&tarihim&"# order by puan desc", uyebaglantim, 1, 3
if not onlineuye.eof then
onlineuye.move 0
for t=1 to onlinedestem
if onlineuye.eof then exit for
%>
<td class="puan_listesi_icerik">&nbsp;<a href="javascript:uyebilgiac('uyebilgileri.asp?uyea di=<%=onlineuye("M_USERNAME")%>','resim','width=43 0; height=170');"><%if onlineuye("M_USERNAME")=session("uyeadi") then response.write "<font color=red>" end if%><%=onlineuye("M_USERNAME")%></a></td>
<tr><td background="images/nokta.gif" height="1" colspan="6"></td><tr>
<%
onlineuye.movenext
next
else
%>
<td class="puan_listesi_icerik">&nbsp;Online üye bulunmamaktadır</td>
<tr><td background="images/nokta.gif" height="1" colspan="6"></td><tr>
<%
end if
%>
<tr></tr></table>

[anov]

Zaman aralığını biraz uzatabilirsin. 60 saniye çok kısa bir zaman dilimi.

tarihim = DateAdd("n",-15,now) '15 dakika