[求助]这个分页问题出错在哪啊

<%
sql="select * from 新闻表 where 分类='工作动态' order by 日期 desc"
PageSize = 2 '每页显示记录数
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,3,1<138行>
rs.PageSize=PageSize
If pageno="" or pageno<1 then pageno=1
rs.absolutepage=pageno
%>

<tr>
<td height="30" colspan="2" ><div align="center" class="style5">
<div align="left">共有
<% =rs.recordcount %>
条新闻，共有
<% =rs.pagecount %>
页，当前<%= pageno %>页，每页
15
条 </div>
</div></td>
</tr>
<%
rowcount=rs.pagesize
Do While Not rs.eof And rowcount>0
%>
<tr>
<td width="22"><div align="center" class="style4">■</div></td>
<td width="338" height="30"><p align="left" class="style3"><a href="show_news.asp?id=<%= rs("编号")%>" class="style4" ><%= rs("标题")%></a> [<%=rs("日期") %>]</p></td>
</tr>
<%
rowcount=rowcount-1
rs.movenext
LOOP

%>
<tr>
<td height="30" colspan="2">

<div align="right">│ <% if pageno>1 then%> <a href="check.asp?pageno=<%=pageno-1%>"><font color="#000000"> 上一页</font></a>
<%else%> <font color="#999999">上一页</font> <%end if%> │ <% if rowcount=0 then%>
<a href="check.asp?pageno=<%=pageno+1%>"><font color="#000000">下一页</font></a>
<%else%> <font color="#999999">下一页</font> <%end if%>│ </div></td>
</tr>
<% rs.close %>
出错提示是:

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/check.asp，行 138