<%          
     Set objRS = SizinRecordsetiniz 'buraya sizin kayıtsetinizi (Recordset) yazınız.
      
     s = CInt(Request.QueryString("s" )) ' sayfa numarası burada alınıyor.
     ss = CInt(Request.QueryString("ss" )) ' bir sayfada kaç kayı gözükeceği burada alınıyor.

      If ss < 1 Then ss = 20 ' varsayılan olarak bir sayfada kaç kayıt gösterileceği burada atanıyor.

     objRS.CacheSize = ss
     objRS.PageSize = ss

     p = s

     If p < 1 Then
          Gosterilen = 1
     Else
          Gosterilen = Int(p)
     End If

     TKayit = objRS.PageCount

     If Gosterilen > TKayit     Then Gosterilen = TKayit
     If Gosterilen < 1          then Gosterilen = 0
     If Gosterilen = 0          then
          Response.Write ""
     Else
          objRS.AbsolutePage = Gosterilen
     End If

     sayfalar = objRS.PageCount

     objRS.absolutepage = Gosterilen
      
     For konu=1 To objRS.PageSize
       If objRS.Eof Then Exit For  
%>
          listelenecek veriler ' buraya for döngüsü arasında listelenecek verileri yazınız.
<%
       objRS.Movenext
     Next
%>

<% '######### SAYFA NUMARALARI ############ %>
<table class="yazi_normal" cellspacing="0" cellpadding="5" width="100%" border="0">
<tr>
  <td width="50%"> Sayfa(lar) :  
<%

limit = 5

If Gosterilen <> 1 Then
     Response.Write "<a href=?s=1 title='İlk sayfaya git' style='text-decoration: none'><font size=2 face=webdings>7</font></a></a> "
End If

If Gosterilen > 2 Then
     Response.Write "<a href='?s=" & Gosterilen - 1 & "&ss=" & ss & "' title='Bir önceki sayfaya git' style='text-decoration: none'><font size=2 face=webdings>3</font></a> "
End If

For y=1 To objRS.PageCount
     If Gosterilen=y Then
          Response.Write "<font size=1><b>[" & y & "></b></font>" & " "
     Else
          If Gosterilen-limit < y and y < Gosterilen+limit Then
               Response.Write "<font size=1><a href=?s=" & y & "&ss=" & ss & " style='text-decoration: none'>[" & y & "></a></font> "
          End If
     End If
Next

If Gosterilen < objRS.PageCount-1 Then
     Response.Write "<a href='?s=" & Gosterilen + 1 & "&ss=" & ss & "' title='Bir sonraki sayfaya git' style='text-decoration: none'><font size=2 face=webdings>4</font></a> "
End If

If Gosterilen <> objRS.PageCount Then
     Response.Write "<a href='?s=" & objRS.PageCount & "&ss=" & ss & "' title='Son sayfaya git' style='text-decoration: none'><font size=2 face=webdings>8</font></a> "
End If
%>
  </td>
  <td align="center"> <a href="#">Yukarı</a></td>
  <td width="50%">
     <P align="right">
       <%
          For sayfasayisi=10 To 30 Step 10
               If sayfasayisi=ss Then sayfasayisi=sayfasayisi+10
         %>
               <a href="?s=<%=s %>&ss=<%=SayfaSayisi %>" alt="Bu sayfada <%=SayfaSayisi %> tane soru göster"><%=SayfaSayisi %></a>  
       <% Next %>
     [ <%=Gosterilen %> / <%=objRS.Pagecount %> >
     </P>
  </td>
</tr>
</table>