<%
if not rs.eof then
rs.pagesize = 10
if request.querystring("s") <> "" then
Sayfa = Cint(Request.QueryString("s"))
else
Sayfa = 1
end if
rs.AbsolutePage = Sayfa
end if
i=0
Do while not rs.eof and i < rs.pagesize
%>

<%=rs.veri%>

<%
i=i+1
rs.MoveNext
Loop
%><br /><table width="464" border="0" align="center" cellpadding="0" cellspacing="0"><tr><td width="379"><div align="right">
<% if rs.pagecount = 0 then
response.write ""
else%>
Sayfa :
<%
if rs.pagecount > 0 then
For s=1 to rs.pagecount
response.write "<a href=""?sayfa="& s &"&s=" & s & """>" & s & " </a>"
next
end if
%><%end if%></span></div></td></tr></table>



rs olan alanları kendi recordset isminzile değiştirin.Üstten ikinci satırdaki rs.pagesize = 10 bu rakamı kaç yaparsanız o kadar veri listelenir,