在线等！有哪位高手帮我看下，在检索出记录后以后的分页显示出问题

检索功能和分页显示的功能都能实现，但是如果检索出来的有两页以上，点击第二页就马上出现以下信息

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
第 25 行

第25行　是if not rs3.eof then　


检索的表单
<table align="center">
<form name="search" action="" method="post">
<tr>
<td height="64" align="left"><img src="images/index_61.gif" width="120" height="37"></td>
<td align="center"> <font size="2">按类型检索：</font> <select name="chaxun">
<option value="menuname">文章标题</option>
<option value="content">文章内容</option>
</select> </td>
<td><input type="text" name="keyword" ></td>
<td><input type="submit" name="tijiao" value="提交"></td>
</tr>
</form>
</table>






　主要ASP代码　　　


chaxun=request.Form("chaxun")
keyword=request.form("keyword")

if keyword<>"" then
if chaxun= "menuname" then
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from menu where menuname like '%"&keyword&"%'"
rs3.open sql3,conn,1
end if

if chaxun= "content" then
set rs4=server.CreateObject("adodb.recordset")
sql4="select * from article where content like '%"&keyword&"%'"
rs4.open sql4,conn,1
id3=rs4("id")
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from menu where id="&id3
rs3.open sql3,conn,1
end if

else
response.write"请输入关键字后在进行检索！"
end if

if not rs3.eof then
response.Write "搜索结果如下"
response.Write "<table width='250' border='1' align='center' cellpadding='0' cellspacing='2' bordercolor='#A3A6CE' bordercolorlight='#A3A6CE' bordercolordark='#A3A6CE'>"
response.Write "<tr><td align='center' bgcolor='#A3A6CE' ><font size='2'>文章标题</font>"
response.Write "</td></tr>"
dim pageNo,i,j
if request.QueryString("pageNo")="" then
pageNO=1
else
pageNo=cint(request.QueryString("pageNo"))
end if
rs3.pageSize = 20
rs3.absolutepage=pageNo
I=rs3.pagesize
do while Not rs3.eof and I>0
I=I-1
response.Write"<tr><td>"&"<a href='"&rs3("url")&"'>"&rs3("menuname")&"</a></td>"
rs3.movenext
response.Write("</tr>")
loop
response.Write("<P align=center>"&"请选择数据页")
for I=1 to rs3.pagecount
if I=pageNo then
response.Write " "&I&" "
else
response.Write " "&"<a href='course_rs2.asp?pageNo=" & I& "&keyword="&keyword&"'>"& I &"</a> "
end if
next
else
response.Write("<p align=center>没有符合的文章</p> "&"<br>")
response.Write"<a href='ask_rs.asp'><p align=center>您可以通过我们网站提供的资源预定功能向管理员或者其他学习者寻求帮助</p></a>"
end if
response.Write "</table>"







哪位高手帮帮忙，谢了哦！