quote:

<%
sql="SELECT * FROM uye WHERE DateDiff(""n"",son,Now)<=35 AND online=true ORDER BY son DESC"
Set online=Conn.Execute(sql)

sql="SELECT COUNT(*) FROM uye WHERE DateDiff(""n"",son,Now)<=35 AND online=true"
Set say_uye=Conn.Execute(sql)
sayi=say_uye(0)

On Error Resume Next
i=0
If sayi=0 Then
%>
<%
Else
%>
<table width="95%" cellpadding="0" cellspacing="2" align="center">

<tr >
<td>

<DIV align=center>

<TABLE style="BORDER-COLLAPSE: collapse" height=152 width=400 border=0>
<TBODY>
<TR>

<%
If Not online.Eof Then

Do While Not online.Eof
i=i+1

if i<21 then

If online("sehir")=0 Or online("sehir")=99 Then
sehri="Yurtdışı"
Else
sql="SELECT * FROM uye_sehir WHERE id=" & online("sehir")
Set sehir=Conn.Execute(sql)
sehri=sehir("isim")
End If

If online("cins")=1 Then
cinsi="Bay"
Else
cinsi="Bayan"
End If
yasi=Right(Date,4)-Right(online("dogum"),4)
i2=i2+1
%>



<%If 7=0 Then%>
<TABLE style="BORDER-COLLAPSE: collapse" height=152 width=384 border=0>
<TBODY>
<TR>
<%end if%>


<TD align=left width=382>
<TABLE id=table72 style="BORDER-COLLAPSE: collapse" borderColor=#c0c0c0 width=84 border=1>
<TBODY><TR><TD>
<DIV align=center>
<div align="left">
<TABLE id=table71 style="BORDER-COLLAPSE: collapse" width="93%" bgColor=#ffffff border=0>
<TBODY><TR><TD borderColor=#ffffff align=middle bgColor=#f0edfe colSpan=3>
<b>
<FONT style="FONT-SIZE: 8pt" face=Arial color=#FFFFFF><a href="#" OnClick="popup('uye.asp?id=<%=online("id")%>','uye',483,494,1)">
<font color="#FF0000"><%=online("nick")%>.</font></a></FONT></TD></TR>
<TR><TD borderColor=#ffffff align=middle colSpan=3 height=110>
<P align=center>
<%


sql="SELECT * FROM resim WHERE uye_id=" & online("id")
Set resim_bayan=Conn.Execute(sql)

If resim_bayan.Eof Then
if online("cins")=1 then
bayan = "yok_1.gif"
else
bayan = "yok_2.gif"
end if
Else
bayan = resim_bayan("resim")
End If

%><%If bayan<>"yok_2.gif" and bayan<>"yok_1.gif" Then%><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=27061735&url=#" OnClick="popup('resim_goster.asp?isim=<%=bayan%>&id=<%=resim_bayan("id")%>','resim',300,200,1)" data-href="#" OnClick="popup('resim_goster.asp?isim=<%=bayan%>&id=<%=resim_bayan("id")%>','resim',300,200,1)"><%End If%><img border="0" src="uye_resim/<%=bayan%>" width="76" height="91"><%If bayan<>"yok_2.gif" and bayan<>"yok_1.gif" Then%></a><%End If%>
</P></TD></TR></TD></TR>
<TR><TD borderColor=#ffffff align=middle width="50%">
<IMG height=11 src="http://www.arkadasiniz.com/images/nokta_online.gif" width=12 align=left border=0><font color="#800080">
<%=sehri%></TD>
<TD borderColor=#ffffff align=middle width="41%" height=2><FONT style="FONT-WEIGHT: 700; FONT-SIZE: 8pt" face=Arial color=#800080>
<P align=right><%=yasi%></FONT></P></TD></TR>
</TBODY></TABLE>
</div>
<TABLE id=table87 height=24 cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD vAlign=top>
<P align=center><b><SPAN style="FONT-SIZE: xx-small"><a href="#" OnClick="popup('mesaj.asp?bolum=yeni&ext=<%=online("nick")%>&refresh=no','mesaj',483,494,1)" title=" Özel Mesaj Gönder : <%=online("nick")%> ">
<img src="images/send_message_1.gif" border="0"></a></span></b><br>
<b><SPAN style="FONT-SIZE: xx-small"><a href="#" OnClick="popup('mesaj_liste.asp?bolum=yeni_engel&ext=<%=online("nick")%>','popup',300,200,1)" title=" Engel Listeme Kaydet : <%=online("nick")%> ">
<font color="#FFFFFF">Engelle</font></a></td></span></b></P></TD></TR></TBODY></TABLE>
</DIV></TD></TR></TBODY></TABLE></TD>

<%If i mod 4=0 Then%>
</TR></TBODY></TABLE>

<TABLE style="BORDER-COLLAPSE: collapse" height=152 width=400 border=0>
<TBODY>
<TR>

<%end if%>



<%
end if
online.MoveNext
Loop

End If

OLZ = Application("aktif")-i
If OLZ<0 Then OLZ=0 End If
%>


</TR></TBODY></TABLE>


</DIV >


</td>
</tr>
</table>
<%
sql="SELECT COUNT(*) FROM uye WHERE aktif=true"
Set tum_uye=Conn.Execute(sql)
tum=tum_uye(0)

sql="SELECT * FROM uye WHERE DateDiff(""n"",son,Now)<=35 AND online=true ORDER BY son"
Set tum_online=Conn.Execute(sql)

If tum_online.Eof Then
tum_on = 0
Else
tum_on=tum_online(0)
End If
%>
<center>
<b>
<a href="online.asp"><font color="#FF0000">[ Tüm Online Üyeler<%If i>12 Then%>i
goruntulemek icin tıklayın (<%=i%>)<%End If%> ]<%If tum_on>0 Then%></font></a><font color="#FF0000"><%End If%>
</font></b>
</center>
<p> </p>

<%
End If
%>