谁能帮我把这个给分页了

现在是每行六个，由于数据太多，我想做个分页程序。

<table width="849" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" align="center">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select id,title from dj order by hits desc",conn,1,1
i=0
do while not rs.eof
i=i+1
%>
<tr>
<td><a href="song.asp?id=<%=rs("id")%>" ><%=rs("title")%></a></td>
<% rs.movenext
if rs.eof then exit do %>
<td><a href="song.asp?id=<%=rs("id")%>" ><%=rs("title")%></a></td>
<% rs.movenext
if rs.eof then exit do %>
<td><a href="song.asp?id=<%=rs("id")%>" ><%=rs("title")%><

自己在网上找个存储过程,再调用,调用就是con.Execute("EXECUTE 存储过程名 '"& 字符串参数1 &"'" & " " & ......);

<table width="849" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" align="center">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select id,title from dj order by hits desc",conn,1,1
dim page
rs.pagesize=20
page=request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
if request("page")<>"" then
page=cint(request("page"))
end if
if page < 1 then
page = 1
elseif page > rs.pagecount then
page = rs.pagecount
end if
if not rs.EOF and not rs.bof then
rs.absolutepage=page
end if
count=rs.pagesize
i=0
for p=1 to rs.pagesize