后台能正常显示数据，翻页后报错类型不匹配: '[string: ""]'

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: ""]'
/admin/admin_new.asp, 第 297 行


检查了下代码，没发现错误，请高手指点，不胜感激
<%
kinds=replace(request("kinds"),"'","")
picUrl=replace(request("picUrl"),"'","")
tj=replace(request("tj"),"'","")
set rs=server.createobject("adodb.recordset") 
if Request("kinds")<>"" then
sql="select * from HN_news where class="&cla&" and kinds="&kinds&" order by id desc" 
elseif Request("picUrl")<>"" then
sql="select * from HN_news where class="&cla&" and picUrl<>"" order by id desc" 
elseif Request("tj")=1 then
sql="select * from HN_news where class="&cla&" and tj=1 order by id desc" 
else
sql="select * from HN_news where class="&cla&" order by id desc" 
end if
rs.open sql,conn,1,1
if rs.eof then 
Response.Write "暂无新闻内容或没有找到新闻类别"
else

proCount=rs.recordcount
rs.PageSize=20
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rs.PageSize
if rs.EOF then  
Exit For 
end if '利用for next 循环依次读出记录
%>

297是哪行？