我用asp连接access数据库的一个表,并且带分页的如何写代码?

<%
set cnn=server.createObject("adodb.connection")
cnn.provider="Microsoft.jet.oledb.4.0"
cnn.connectionString="Data source=" & server.mappath("db.mdb")
cnn.open

dim sql
sql="select * from news order by indate desc"

set rs=server.createObject("adodb.recordset")
rs.open sql,cnn,1,1

rs.pageSize=4
dim pageNo
pageNo=cint(request.queryString("pageNo"))

if pageNo<1 or isnumeric(pageNo)=false then pageNO=1
if pageNo>rs.pageCount then pageNo=rs.pageCount

rs.absolutePage=pageNo
dim i
i=1

%>

<table border=1>
<tr>
<th>编号 <th>标题
<%
do while not rs.eof and i<=rs.pageSize
%>
<tr>
<td><% =rs(0)%> <td><a href=news/show.asp?id=<% =rs(0)%> target="_blank&q