<% Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from loglar where banlimi like 1 order by Tarih DESC" Rs.Open Sorgu,connect, 1, 3 If Rs.eof or Rs.BOF then Response.Write "" else sayf = Request.QueryString("sayf") if sayf="" then sayf=1 end if Rs.pagesize = 30 '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 %> <% for y=1 to sayfa if sayf=y then else response.write "" %> <% end if next onceki=sayf-1 sonraki=sayf+1 sayfa=rs.recordcount/30 sayfa2=INT(sayfa) sayfa3=sayfa2+1 %>

S.No	Rumuz	Nedeni	Banlanan IP	Ban AÇ
<%=rs("logID")%>	<%=rs("rumuz")%>	<%=rs("Bansebebi")%>	<%=rs("IP")%>	">

<% if sayf=1 then %> <% else %> <% end if %>

[ <%=rs.recordcount%> ] Adet kayıt [ <%=sayfa3%> ] Adet sayfa görüntülendi bulunduğunuz sayfa [ <%=sayf%> ]

<% if rs.recordcount>30 then %> <% end if %> <% if rs.recordcount<30 then %> <% end if %>

<% if (Request.QueryString("ban"))="ac" then %> <% LogID=Request.QueryString("LogID") set odac = Server.CreateObject("ADODB.RecordSet") SQL="select * from LOGLAR where LogID like '"&LogID&"'" odac.open SQL,connect,1,3 odac("banlimi")=0 odac.update response.redirect Request.ServerVariables("HTTP_REFERER") %> <% end if %>