请高手帮我看下这里为什么会出现在这个错误
<table border=0 cellspacing=0 cellpadding=0 width=100% class=main_tab><%
cla=cint(replace(request("cla"),"'",""))
%>
<tbody>
<tr>
<td align=center valign=top>
<table width="703">
<tr>
<td width="695" align="center">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from jcl_photo where P_type="&cla&" order by id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write "暂无该类图片或没有找到此类别"
else
'分页'
proCount=rs.recordcount
rs.PageSize=8
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
%>
<TABLE width="105%" height="154" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#E7E7E7" class="tebfont1">
<TR align="center" valign="middle" bgcolor="#F7F7F7">
<TD width="22%" rowspan="2" >
<table width="130" height="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="133" height="115"><img src="img/<%=rs("p_url")%>" width="133" height="103"> </td>
</tr>
<tr>
<td align="center" valign="middle"><%=rs("title")%></td>
</tr>
</table></TD>
<TD width="45%" rowspan="2" align="left" valign="top"><p><a href="../newsdisp.asp?id=<%=rs("id")%>" target="_blank"><span class="unnamed2">
</span></a>
<table width="285" height="75" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>相关说明:<br>
<%=left(rs("contnet"),300)%> </td>
</tr>
</table></TD>
<TD width="21%" rowspan="2"><table width="130" height="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25">上传时间:<%=rs("uptime")%></td>
</tr>
<tr>
<td height="38">价格:<%=rs("p_money")%></td>
</tr>
<tr>
<td height="51">
所在类型:
<%set rs1=server.createobject("adodb.recordset")
sql="select * products_cla where midcls<>'' and id="&rs("p_lca")
rs1.eof sql,conn,1,1
do while not rs1.eof
%><%=rs1("midds")%><%
rs1.movenext
LOOP
rs1.close
set rs1=nothing
%></td>
</tr>
</table></TD>
<TD width="12%" height="56" colspan="2"><a href="javascript:doempty(admin_products.asp?work=delproducts&cla=<%=cla%>&id=<%=rs("id")%>)">删除</a></TD>
</TR>
<% dim i,procount,topage,intcurpage
set rsl=server.createobject("adodb.recordset")
sql="select * from products where P_type="&cla&" order by id desc"
rsl.open sql,conn,1,1
if rsl.eof then
Response.Write "暂无产品内容或没有找到产品类别"
else
proCount=rsl.recordcount
rsl.PageSize=8
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rsl.PageCount then
rsl.AbsolutePage=rsl.PageCount
intCurPage=rsl.PageCount
elseif ToPage<=0 then
rsl.AbsolutePage=1
intCurPage=1
else
rsl.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rsl.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
[bo]For i = 1 to rsl.PageSize[/bo]
if rsl.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<TR bgcolor="#FFFFFF" align="center" valign="middle">
<TD width="12%" height="60" colspan="2"><a href="admin_products.asp?work=editproducts&id=<%=rs("id")%>">编辑</a></TD>
</TR>
<%
rsl.MoveNext
next
%>
<form name="form1" method="post" action="?cla=<%=cla%>">
<span class="tebfont1">总共:<font color="#ff0000"><%=rs.PageCount%></font>页, <font color="#ff0000"><%=proCount%></font>条新闻, 当前页:<font color="#ff0000"><%=intCurPage%> </font><%if intCurPage<>1 then
%><a href="?cla=<%=cla%>">首页</a>|<a href="?cla=<%=cla%>&ToPage=<%=intCurPage-1%>">上一页</a>|<% end if
if intCurPage<>rs.PageCount then %><a href="?cla=<%=cla%>&ToPage=<%=intCurPage+1%>">下一页</a>|<a href="?cla=<%=cla%>&ToPage=<%=rs.PageCount%>"> 最后页</a>|
<% end if%>跳转:</span><input name="topage" type="text" size="2" value="<%=intCurPage%>"> <input type="submit" name="go" value="转到"></form>
<%
rsl.close
Set rsl = Nothing
end if
%></table>
<div align="center"></div></td></tr></table>
</td>
</tr>
</tbody>
</table>
这里提示
错误类型:
Microsoft VBScript 编译器错误 (0x800A0410)
循环控制变量 'for' 无效
/f/后台制作/admin_products.asp, line 378, column 6
For i = 1 to rsl.PageSize
-----^
这是为什么???