Asp'de sayfalama yapmak.

Databasenizde yüzlerce kayıt var diyelim. Aşağıdaki kodlar ile 10'ar 10'ar sayfalara ayırabilirsiniz. En altta koyu renkle yazan sayfa.asp yerine kullandığınız asp dosyasının ismini yazınız.

<!--#include file="databaseyolu.asp"-->
<%
s = Request.QueryString("s")
If s = "" Then s = "1"
rs.PageSize = 10
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To rs.PageSize
If rs.EOF Then Exit For %>

<table border="0"><tr><td>
Ad:</td><td><%=rs("ad") %></td></tr><tr><td>
Soyad:</td><td><%=rs("soyad") %>
</td></tr></table>

<% rs.MoveNext
Next %>
<br><font size="1" face="verdana">
<%
Response.Write "<b>Sayfa:</b>"
For g = 1 To ss
If g = CInt(s) Then
Response.Write "<b>" & g & "</b> "
Else
Response.Write "<b><a style=""text-decoration: none"" href=""sayfa.asp?s=" & g & """>" & g & "</a></b> "
End If
Next
%></font>