ASP ile Veriyi Sayfalara Ayırmak

[Silverday]

<%
SQLSORGUSU = "SELECT * FROM tbl_urunler ORDER BY idno DESC;"
rs.Open SQLSORGUSU,ConnectionKOD,1

page = CInt(Request("page"))

    If (page ="" or page = 0) Then page = 1 Else page=page
  // Sayfada gösterilecek veri miktarı
    rs.pageSize = 10
    rs.absolutePage=page

Do While Not rs.Eof and i<rs.pagesize
    i=i+1
%>

'Burada Gösterilecek olan sütunlar v.b



'Movenext Loop
<%
rs.Movenext
Loop
%>


'Sayfalama kodları
<%
If page = 1 Then
Response.Write " "
Else
a = page -1
Response.Write "<a  href=?page=" & a & qstring &"><<  Önceki    </a> "
End If

    If page + 5 > rs.pagecount Then
    b = rs.pagecount
    Else
    b = page + 5
    End If
    
If page < 5 Then
c = 1
Else
c = page - 5
End If


    
    For j = c To b

If j = page Then
Response.Write "[<b>" & j & "</b>]  "
Else
Response.Write "<a href=?page=" & j & qstring &">" & j & "</a>  "
End If
Next

    If page = rs.pagecount Then
    Response.Write " "
    Else
    a = page + 1
    Response.Write "<a href=?page=" & a & qstring &">    Sonraki >></a> "
    End If

rs.close
set rs = Nothing
%>

sayfalara 1-2-3 şeklinde çıkacaktır.. :clap