<% if (Request.QueryString("islem"))="yap" then Set Res=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler" Res.Open Sorgu,connect, 1, 3 if (Request.form("islem2"))="Sil" then For a = 1 To Res.RecordCount if Request.form(""&Res("UyeID")&"")<>"" then Set Rsa=Server.CreateObject("Adodb.Recordset") Sorgu="DELETE * from Uyeler where UyeID like '"&Res("UyeID")&"'" Rsa.Open Sorgu,connect, 1, 3 end if Res.MoveNext NEXT response.redirect Request.ServerVariables("HTTP_REFERER") end if if (Request.form("islem2"))="Onayla" then For a = 1 To Res.RecordCount if Request.form(""&Res("UyeID")&"")<>"" then Set Rsa=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler where UyeID like '"&Res("UyeID")&"'" Rsa.Open Sorgu,connect, 1, 3 Rsa("Aktif")=1 Rsa.update end if Res.MoveNext NEXT response.redirect Request.ServerVariables("HTTP_REFERER") end if if (Request.form("islem2"))="Dondur" then For a = 1 To Res.RecordCount if Request.form(""&Res("UyeID")&"")<>"" then Set Rsa=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler where UyeID like '"&Res("UyeID")&"'" Rsa.Open Sorgu,connect, 1, 3 Rsa("Aktif")=0 Rsa.update end if Res.MoveNext NEXT response.redirect Request.ServerVariables("HTTP_REFERER") end if end if if (Request.QueryString("uye"))="sil" then suz=Request.QueryString("suz") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="DELETE * from Uyeler where UyeID like '"&suz&"'" Rs.Open Sorgu,connect, 1, 3 Session("durum")="Kaydet" response.redirect Request.ServerVariables("HTTP_REFERER") end if %> <% if (Request.QueryString("yetkiye"))="bak" then suz=Request.QueryString("suz") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler where mode like '"&suz&"' order by KTarih DESC" Rs.Open Sorgu,connect, 1, 3 else Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Uyeler 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
" name="<%=rs("UyeID")%>">	<%=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 %>