<% IF session(dsession) = "defter" then response.redirect "panel.asp" end if %> <% sayfala=10 sayfa=cint(request.QueryString("sayfa")) if sayfa="" then sayfa =0 end if sql="select * from defter" If blnAdminOnay Then SQL = SQL & " where onay=True" SQL = SQL & " ORDER BY id DESC" Rs.Open sql, baglan, 1, 3 If RS.BOF And RS.EOF Then response.redirect "hata.asp?id=kayityok" else git = Int((sayfa * sayfala)+ 0) rs.Move(git) for i=1 to sayfala if not RS.eof then%> <%=baslik%> - Defteri Oku
 

    <%=rs("adiniz")%>

 

<% = rs("tarih") %>

"> Email : <% =rs(" src="img/em.gif" border=0 width="16" height="16"> "> Site : <% = rs(" src="img/web.gif" border=0 width="16" height="16"> Adres : <%=rs(" src="img/ip.gif" border=0 width="16" height="16">    
 <% =rs("mail") %>
   
<% RS.MoveNext end if next sayfasayisi=(rs.RecordCount-1)\sayfala %>
Sayfalar : <%for a=0 to sayfasayisi%> [<%if sayfa<>a then%><%=a+1%><%else%><%=a+1%><%end if%>] <%next%>  
  <% End If Rs.close%>