<% if (Request.QueryString("ara"))="email" then email=Request.form("email") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler where sonIP like '"&email&"' order by KTarih DESC" Rs.Open Sorgu,connect, 1, 3 else rumuz=Request.form("rumuz") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler where rumuz like '"&rumuz&"' order by KTarih DESC" Rs.Open Sorgu,connect, 1, 3 end if If Rs.eof or Rs.BOF then Response.Write "" else sayf = Request.QueryString("sayf") if sayf="" then sayf=1 end if Rs.pagesize = 15 'Sayfadakı Sıralanacak veri sayısı Rs.absolutepage = sayf sayfa = Rs.pagecount for i=1 to Rs.pagesize if Rs.eof then exit for %> <%Rs.movenext%> <% next %> <% end if %>

	S.No	Rumuzu	Cinsiyet	Onay Durumu	İşlemler
	<%=rs("UyeID")%>	<%=rs("rumuz")%>	<% if rs("cinsiyet")=1 then%>Erkek <% end if %> <% if rs("cinsiyet")=0 then%>Bayan <% end if %>	<% if rs("aktif")=0 then %>Onaylanmamış<% end if %><% if rs("aktif")=1 then %>Onaylanmış<% end if %>	">     ">

<% onceki=sayf-1 sonraki=sayf+1 if sayf=1 then %> <% else %> <% if (Request.QueryString("yetkiye"))="bak" then %> <% else %> <% end if %> <% end if %>

<% sayfa=rs.recordcount/15 sayfa2=INT(sayfa) sayfa3=sayfa2+1 %> [ <%=rs.recordcount%> ] Adet kayıt [ <%=sayfa3%> ] Adet sayfa görüntülendi bulunduğunuz sayfa [ <%=sayf%> ]

<% if (Request.QueryString("yetkiye"))="bak" then %> <% if rs.recordcount<15 then %> <% end if %> <% if rs.recordcount>15 then %> <% end if %> <% else %> <% if rs.recordcount<15 then %> <% end if %> <% if rs.recordcount>15 then %> <% end if %> <% end if %>