ASP分页问题，急，在线等

我想让下面循环的代码分页，怎么做，我开始做的分页倒是分了，但是只是重复的第一条数据库记录，其它记录不能显示，下面这个该怎么分页而且还循环读取数据库记录呢！

<% set rs=server.createobject("adodb.recordset")
sql="select * from Tx_Guest order by Guest_Id desc"
While Not Rs.Eof
rs.open sql,conn,1
lysh=rs("Guest_Flag")
lybm=rs("Guest_Pass")
lyimg=rs("Guest_Face")
lymz=rs("Guest_Add")
lydh=rs("Guest_Tel")
lyyx=rs("Guest_Email")
lybt=rs("Guest_Title")
lysj=rs("Guest_Date")
lynr=rs("Guest_Content")
lyglsj=rs("Guest_AdminDate")
lyglnr=rs("Guest_AdminContent")
%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="zgbk">
<tr>
<td width="193" height="188" rowspan="2" align="center" valig

问题那么长

<%set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("database.mdb")
%>
<% set rs=server.createobject("adodb.recordset")
sql="select * from Tx_Guest order by Guest_Id desc"
rs.open sql,conn,1 ,1
rs.pagesize=1
count=rs.pagecount '有多少条记录
rs.pagesize=5 '一页有五条记录
size=5
pagecount=rs.pagecount
page=cint(request("page"))
if page=0 then
page=1
end if
rs.absolutepage=page
While Not Rs.Eof and size>0
lysh=rs("Guest_Flag")
lybm=rs("Guest_Pass")
lyimg=rs("Guest_Face")
lymz=rs("Guest_Add")
lydh=rs("Guest_Tel")
lyyx=rs("Guest_Email")
lybt=rs("Guest_Title")
lysj=rs("Guest_Date")
lynr=rs("Guest_Content")