哪位帮我添加分页代码！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %>
<!--#include file="conn.asp"-->
<!-- #include file="onlines.asp" --><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="论坛列表">
<p align='center'>
<br/><%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select id,form from form where formid="&request("id")&" order by list"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
Response.write "还没有版块<br/>"
else
do while not rs.eof
%><a href='list.asp?id=<%=rs("id")%>&shouji=<%=request("shouji")%>'><%=rs("form")%></a><br/>
<%
rs.movenext
loop
end if
%>===========<br/>
<a href='bbs.asp?shouji=<%=request("shouji")%>'>论坛首页</a><br/>
<a href='../index.asp'>网站首页</a><br/>
</p></card></wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
