<!-- #include file="ayar.asp" --> 
   
  <% 
   
  Set rs = Server.CreateObject("adodb.recordset") 
  sql="Select * from uyeler" 
  rs.open sql,baglan,1,3 
   
  pg = Request.QueryString("id") 
   
  if pg="" then 
  pg=1 
  end if 
   
   
  rs.Pagesize = 1 
  rs.absolutepage = pg 
  sayfalama = rs.pagecount 
   
   
  For x=1 to rs.Pagesize 
  if rs.eof then exit for 
   
  Response.write ""&rs("kulanici")&"<br>" 
   
  rs.MoveNext 
  next 
   
  %> 
   
   
  <% 
   
  For y=1 to sayfalama 
   
  if pg=y Then 
  Response.write y 
  Else 
  Response.Write "<a href=sayfalama.asp?pg="&y&">"&y&"</a>" 
  End IF 
  Next 
   
  %>