麻烦帮忙看下哪里写错了，显示不出分页信息！！
<!--#include file="Conn.asp"-->
<html>
<head>
<meta http-equiv="content-type" content="text/html;chaRSet=gb2312" >
<title>留言板</title>
<style type="text/css">
<!--
.style3 {font-size:12px; font-weight:bold}
a{
font-size:12px;
color:#000000;
text-decoration:none;
}
.style4{font-size:12px}
.style5{color:#FF0000}
-->
</style>
</head>
<body>
<p align="center" class="style3">菜园足迹</p>
<%
Set Rs = Server.Createobjet ("Adodb.RecordSet")
Rs.open "select * form lyb ", Coon, 1, 1
Rs.PageSize = 4
If Request.Querystring ("page")="" Then
page = 1
Else
page = cint(Request.Querystring ("page"))
End If
Rs AbsolutePage = page
If Not Rs.Eof Then
For i=1 To Rs.pageSize
If Not rs.eof then
%>
<table width="770" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#D7DADB">
<td width="534" height="25" bgcolor="#D7DADB"><div align="center"><span class="style3">标题: <%=Rs("Title")%></span></div></td>
<td width="213" height="25" bgcolor="#D7DADB"><div align="center"><div align="center"><span class="style3">日期: <%=Rs(DateTime")%></span></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"><font size="2"><%=rs("content")%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"><div align="right" class="style4">
<a href="AddContent.asp">继续留言 </a>
<a href="EditInfor.asp?id=<%=Rs("id")%>" class="style5">编辑留言</a> <a href="DelInfor.asp?id=<%=Rs("id")%>">删除本留言</a></div></td>
</tr>
</table>
<%
Rs.moveNext
End If
Next
End if
%>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40"><div align="right">
<div align="right">
<%
if page<>1 then
Response.Write("<font size=2>
<a href='ShowContent.asp?page=1'>[首页]</a>
<a href='ShowContent.asp?page="&(page-1)&"'>[上一页]</a></font>")
End if
if page<>Rs.pagecount then
Response.write("<font size=2>
<a href='ShowContent.asp?page="&(page+1)&"'>[下一页]</a>
<a href='ShowContent.asp?page="&Rs. Pagecount&"'>[尾页]</a></font>")
End if
%>
</div></td>
</tr>
</table>
</body>
</html>