Şahane Arkadaş | SahaneArkadas.Com

<% tott = Application("ActiveUsers")+123 erkon = tott-124 bynon = tott-235 %>

Bayan Üyelerimiz

Şu an sitemizde online <%=bynon%> bayan üye bulunmaktadır.

<% SQL="Select top 10 * from uyeler where cinsiyet='Bayan' and uyeyetki=1 and resim=1 Order by newID()" Set hu = Conn.ExeCute(SQL) %> <% Do while not hu.eof xd = xd + 1 SQL="Select * from resimler Where onay=1 and uyeid="&hu("id")&"" Set resim = Conn.ExeCute(SQL) if resim.eof then resim="resimyok.gif" else resim=resim("resim") end if %> <% IF xd mod 5=0 Then Response.Write "" hu.MoveNext Loop hu.Close Set hu = Nothing %>

style="DISPLAY: none; LEFT: 282px; POSITION: absolute; TOP: 154px; height:81px; width:230px">

<% if not session("id")="" Then%> "> Mesaj Yolla

adlı üyeyi Msn Daveti Göndermek için Sahanearkadas.com üyesi olmanız gerekir !')" href="uyeol.html"> "> Msn Davet

adlı üyeyi Arkadaş Listenize eklemeniz için Sahanearkadas.com üyesi olmanız gerekir !')" href="uyeol.html"> adlı kullanıcıya Arkadaş Listenize Ekleme Daveti Göndermek için, Tamamı tıklayın.')" href="profilupd.html?mode=arkadasekle&id=<%=Clear(hu("id"))%>"> Arkadaş ol<% else %> ">Detaylar <% END IF %>

Rumuz :	<%=Clear(hu("rumuz"))%>
Yaş :	<%=year(date())-Clear(hu("dogum_yil"))%>
Şehir :	<%=Clear(hu("sehir"))%>
Ülke :	<%=Clear(hu("ulke"))%>
Saç Rengi :	<%=Clear(hu("sacrengi"))%>
Göz Rengi :	<%=Clear(hu("gozrengi"))%>
Kilo :	<%=Clear(hu("kilo"))%> kg
Boy :	<%=Clear(hu("boy"))%> cm

'); return false" href="#"> Detayları Kapat

')" href="#">

<%=Clear(hu("rumuz"))%>

<%=year(date())-Clear(hu("dogum_yil"))%> - <%=Clear(hu("sehir"))%>

">Detaylı incele

Erkek Üyelerimiz

Şu an sitemizde online <%=erkon%> erkek üye bulunmaktadır.

<% SQL="Select top 5 * from uyeler where cinsiyet='Bay' and uyeyetki=1 and resim=1 Order by newID()" Set hu = Conn.ExeCute(SQL) %> <% Do while not hu.eof xd = xd + 1 SQL="Select * from resimler Where onay=1 and uyeid="&hu("id")&"" Set resim = Conn.ExeCute(SQL) if resim.eof then resim="resimyok.gif" else resim=resim("resim") end if %> <% IF xd mod 5=0 Then Response.Write "" hu.MoveNext Loop hu.Close Set hu = Nothing %>