[求助]错误的“Next”问题

[QUOTE]大家好，我想让图片显示3行3列，下面是部分主要代码，总是提示错误的 'Next',line 55 我不知道错在哪里了，请大家帮帮忙！[/QUOTE]
少写了个NEXT
一个FOR配一个NEXT

<% for m=1 to 3 %>
<tr>
<%if rs.eof then %>
暂时还没有。
<%else%>
<% for n=1 to 3
if not rs.eof then
%>
这行显示的是图片及图片名称
<% end if
rs.movenext
next
%>
</tr>
<% next
rs.close
set rs=nothing
%>

还少2个END IF

[此贴子已经被作者于2007-9-15 12:39:02编辑过]

<% set rs=server.CreateObject("adodb.recordset")
strsql="select * from web_pic where Classid=2 order by id desc"
rs.open strsql,conn,3,3
if rs.bof and rs.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">&nbsp;&nbsp;&nbsp;&nbsp;对不起,该类暂时没有任何信息!</td>
</tr>
</table>
<p>
<%else
rs.pagesize=12
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
i=1
%>
</p><br>
<% do while not rs.eof %>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><a href="jyzx.asp?action=look&ID=<%=rs("ID")%>"><img src="admin/image/<%=rs("pic")%>" width="100" border="0" alt="<%=rs("Topic")%>"></a></td>
</tr>
<tr>
<td height="30" align="center"><%=rs("Topic")%></td>
</tr>
</table></td>
<%
i=i+1
rs.movenext
if not rs.eof then
%>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><a href="jyzx.asp?action=look&ID=<%=rs("ID")%>"><img src="admin/image/<%=rs("pic")%>" width="100" border="0" alt="<%=rs("Topic")%>"></a></td>
</tr>
<tr>
<td height="30" align="center"><%=rs("Topic")%></td>
</tr>
</table></td>
<%
i=i+1
rs.movenext
if not rs.eof then
%>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><a href="jyzx.asp?action=look&ID=<%=rs("ID")%>"><img src="admin/image/<%=rs("pic")%>" width="100" border="0" alt="<%=rs("Topic")%>"></a></td>
</tr>
<tr>
<td height="30" align="center"><%=rs("Topic")%></td>
</tr>
</table></td>
<%
i=i+1
rs.movenext
if not rs.eof then
%>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize+1 then exit do
end if
end if
end if
loop
%>

这是我个人的做法