MYSQL Üye+date :
<%
cinsiyet = request("cinsiyet" )
sehir = request("sehir" )
yas = request("yas" )
yas1 = request("yas1" )
sayfa = CInt(Request.QueryString("sayfa" ))
%>
<%
tarih1 = DateAdd("n" , -10, Now())
%>
<%
Dim Rs2, kayitsayisi, MySQL
mySQL="Select COUNT(*) FROM tbl WHERE cinsiyet='" & cinsiyet &"' AND tarih >= '" & tarih1 &"'"
Set Rs2 =baglan.Execute(mySQL)
kayitsayisi=Rs2(0)
toplam = kayitsayisi
%>
<table border="0" width="598" id="table6" height="103" cellspacing="0" cellpadding="0" bordercolor="#000000">
<%
sayfasay = Int(toplam)
if sayfa = "" or not IsNumeric(sayfa) or sayfa = 0 then
sayfa = Int(1)
Else
sayfa = CInt(sayfa)
end If
verisayisi = Int(5)
baslangic = sayfa*verisayisi
baslangic = baslangic-verisayisi
sayfalar = Int(sayfasay/verisayisi)+1
set rs=baglan.Execute("select*from tbl WHERE cinsiyet='" & cinsiyet &"' and tarih >= '" & tarih1 &"' limit " & baslangic & ", " & verisayisi & ";" )
If RS.Bof And RS.Eof Then
Response.write("kayıt yok" )
Else
Do Until Rs.Eof
%>
<tr>
<td width="9" rowspan="4" height="93" bgcolor="#F8F8F8">
<b><font size="1" face="Tahoma">
</font></b></td>
<td width="298" height="19" colspan="2" bgcolor="#F8F8F8">
<p align="left">
<font face="Tahoma">
<span style="font-size: 8pt; font-weight:700"> <%=rs("kulad" ) %></span></font></td>
<td width="183" valign="middle" height="19" bgcolor="#F8F8F8"> </td>
<td width="25" valign="middle" align="center" height="19" bgcolor="#F8F8F8">
</td>
<td width="77" valign="middle" align="left" height="19" bgcolor="#F8F8F8">
</td>
<td width="6" align="left" height="98" bgcolor="#F3F7F8" rowspan="4">
</td>
</tr>
<tr>
<td width="104" rowspan="3" height="74" bgcolor="#FFE0C1">
<p align="center">
<img border="0" src="uye_resim/a.gif" width="88" height="71"></td>
<td width="194" height="26" bgcolor="#FFE0C1">
<p align="left">
<font size="1" face="Tahoma"> <%=rs("yas" ) %> Yaşında
, <%=rs("cinsiyet" ) %><br>
<%=rs("sehir" ) %> ' de Yaşıyor..</font></td>
<td width="183" valign="middle" height="26" bgcolor="#FFE0C1">
<font face="Tahoma"><span style="font-size: 8pt"> <%=rs("tarih" ) %>//<br>
<%=tarih1 %></span></font></td>
<td width="25" align="center" height="26" bgcolor="#FFE0C1">
<font face="Times New Roman" color="#FF0000">♥</font></td>
<td width="77" align="left" height="26" bgcolor="#FFE0C1">
<font face="Tahoma">
<a href="mesaj_gonder.asp?uye=<%=rs("kulad" ) %>">
<span style="font-size: 8pt; text-decoration: none">
<font color="#000000">Mesaj Gonder</font></span></a></font></td>
</tr>
<tr>
<td width="194" valign="middle" height="46" rowspan="2" bgcolor="#FFE0C1">
<p align="left"><font face="Tahoma">
<span style="font-size: 8pt">177 cm, 69 kg, Oğlak, <br>
Elâ gözlü,
Siyah saçlı</span></font></td>
<td width="183" valign="middle" rowspan="2" height="53" bgcolor="#FFE0C1">
<font size="1" face="Tahoma"> <%=Left(rs("hakk" ),100) %>...</font></td>
<td width="25" align="center" height="26" bgcolor="#FFE0C1">
<font face="Times New Roman" color="#FF0000">☺</font></td>
<td width="77" align="left" height="26" bgcolor="#FFE0C1">
<font face="Tahoma" color="#FF0000">
<span style="font-size: 8pt">
<a href="profil_detay.asp?uye_no=<%=rs("Id" ) %>">
<span style="text-decoration: none">
<font color="#000000">Detaylı Profil</font></span></a></span></font></td>
</tr>
<tr>
<td width="25" height="27" bgcolor="#FFE0C1">
<p align="center">
<font face="Times New Roman" color="#FF0000">₪</font></td>
<td width="77" height="27" align="left" bgcolor="#FFE0C1">
<font face="Tahoma" color="#FF9900">
<a href="ark_kaydet.asp?id=<%=rs("Id" ) %>&isim=<%=rs("kulad" ) %>">
<font color="#000000" style="font-size: 8pt">
<span style="text-decoration: none">Listeme Ekle</span></font></a></font></td>
</tr>
<tr>
<td width="598" colspan="7" height="5" bgcolor="#F3F7F8">
<font style="font-size: 4pt"> </font></td>
</tr>
<%
rs.Movenext
Loop %>
<%End If %>
</table>
<table border="0" width="100%" id="table7">
<tr>
<td>
<p align="center"><font face="Tahoma">
<span style="font-size: 8pt">
<%
If CInt(sayfa) = 1 Then
Response.Write " "
Else
a = CInt(sayfa) -1
Response.Write "<a href=uye_list.asp?yas=" &yas&"&yas1=" &yas1&"&cinsiyet=" &cinsiyet&"&sehir=" &sehir&"&sayfa=" & a & qstring &"><< Önceki </a> "
End If
If CInt(sayfa) + 6 > CInt(sayfalar) Then
b = CInt(sayfalar)
Else
b = CInt(sayfa) + 6
End If
If CInt(sayfa) =< 6 Then
c = 1
Else
c = CInt(sayfa) - 6
End If
For j = c To b
If j = CInt(sayfa) Then
Response.Write "<b class=baslik >" & j & "</b> "
Else
Response.Write "<a href=uye_list.asp?yas=" &yas&"&yas1=" &yas1&"&cinsiyet=" &cinsiyet&"&sehir=" &sehir&"&sayfa=" & j & qstring &">" & j & "</a> "
End If
Next
If CInt(sayfa) => CInt(sayfalar) Then
Response.Write " "
Else
a = CInt(sayfa) + 1
Response.Write "<a href=uye_list.asp?yas=" &yas&"&yas1=" &yas1&"&cinsiyet=" &cinsiyet&"&sehir=" &sehir&"&sayfa=" & a & qstring &"> Sonraki >></a> "
End If
%>