sorgu="select * from hebe order by hebeee"
rs.open sorgu,ct,3,3
if not rs.eof or not rs.bof then
Rs.PageSize = 10
If Request.QueryString("page") <> "" Then
Sayfa = CInt(Request.QueryString("page"))
Else
Sayfa = 1
End If
arkasay=0
Rs.AbsolutePage = Sayfa
hebe=0
Do While Not Rs.EOF And hebe<Rs.PageSize
' burada dönen veriyi işle
hebe=hebe+1
rs.movenext
loop
if not Sayfa=1 then
response.write "<a href=""hebe.asp?page=" & CInt(Sayfa-1) & """>« Önceki</a> "
end if
altsatir=0
If Rs.PageCount > 0 Then
altsatir=altsatir+1
For s=1 To Rs.PageCount
if s=Sayfa then
Response.Write "<a href=""hebe.asp?page=" & s & """><font color=""#000000""><b>" & s & "</b></font></a>"
if not s=Rs.Pagecount then
response.write " "
end if
else
Response.Write "<a href=""hebe.asp?page=" & s & """>" & s & "</a>"
if not s=Rs.Pagecount then
response.write " "
end if
end if
if altsatir=5 then ' burada kaçıncı sayfa yazısından sonra alt satıra geçecek 5
response.write "<br>"
altsatir=0
end if
Next
End If
if not Sayfa=rs.PageCount then
response.write " <a href=""hebe.asp?page=" & CInt(Sayfa+1) & """>Sonraki »</a>"
end if
else
Response.write "Kayıt bulunamadı."
end if
rs.close