Question

请帮忙修改一下asp代码

以下是我的查询分页代码，正确的查询没有问题，但是当查询错误时，也能显示“对不起，没有您要查询的信息！”但后面跟着的错误提示却看不懂（对不起，没有您要查询的信息！
ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。 /shiyan/searchtel.asp，行89
），本人就是看不出错在哪里，请帮忙。<%
mykey=request("keywords")
set rs=server.createobject("adodb.recordset")
dim k
ReDim text(1)
k=0
sql="select * from where gjc like '%"&mykey&"%' or "
for i=0 to 100
k=k+1
if (i+1)*2<Len(mykey)then
sql=sql+" gjc like '%"& Mid(mykey, i*2+1, 2) &"%' and "
text(k)= Mid(mykey, i*2+1, 2)
ReDim Preserve text(k+1)
else
if(i+1)*2=Len(mykey)then
sql=sql+" gjc like '%"& Mid(mykey, i*2+1, 2) &"%'"
text(k)= Mid(mykey, i*2+1, 2)
i=1000
else
sql=sql+" gjc like '%"& Mid(mykey, i*2+1, 1) &"%'"
text(k)= Mid(mykey, i*2+1, 1)
i=1000
end if
end if
next
rs.open sql,conn,1,1
%>

<%
rs.PageSize=20 '每页记录条数
page=CLng(Request.QueryString("page")) '将URL参数page传给page变量
if page<1 then
page = 1
end if
if page>rs.PageCount Then
page=rs.PageCount
end if
If rs.EOF Then
Response.Write("对不起，没有您要查询的信息！")
End If
rs.absolutepage=page '将本页设为page设置的页数
%>

<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs("dw")%><br>
<%
rs.movenext
next
%>

<br>

<div>当前第<%=page%>页，共有<%=rs.pagecount%>页，共有：<%=rs.recordcount%>条记录</div>
<%
if page=1 then
Response.Write("首页 ")
else
Response.Write("<a href=searchtel.asp?page=1&keywords="&mykey&">首页</a> ")
end if

if page=1 then
Response.Write("上一页 ")
else
Response.Write("<a href=searchtel.asp?page="&page-1&"&keywords="&mykey&">上一页</a> ")
end if

if page=rs.PageCount then
Response.Write("下一页 ")
else
Response.Write("<a href=searchtel.asp?page="&page+1&"&keywords="&mykey&">下一页</a> ")
end if

if page=rs.PageCount then
Response.Write("尾页")
else
Response.Write("<a href=searchtel.asp?page="&rs.pagecount&"&keywords="&mykey&">尾页</a>")
end if %>
<% Conn.Close
Set Conn=nothing
%>
错误提示中的“行89”，就是指“rs.absolutepage=page '将本页设为page设置的页数”。
请帮忙，如何正确显示错误信息，即数据库里没有该记录时，显示的提示信息。

Answer 1

If rs.EOF Then
Response.Write("对不起，没有您要查询的信息！")
Response.end '如果没有让程序结事运行
End If