求助.缺少 'Loop'

<%set rs=server.createobject("adodb.recordset")
sql="select top10 from qy_zhiliao order by qy_id desc"
rs.open sql,conn,1,1
do while not rs.eof %>
<tr>
<td height="20" bgcolor="#F7F7F7">
<a href="cdetail.asp?id=<%=rs("qy_dwmc")%>" class="a1" target="_blank">
<%=rs("Qy_dwmc")%>
<%set rsz=server.createobject("adodb.recordset")
sql="select * from zp_xinxi where zp_qyname="&rs("Qy_dwmc")&" order by id desc"
rsz.open sql,conn,1,1
do while not rsz.eof
response.write(rsz("zp_gwmc"))
rsz.movenext
rsz.close
%>
</a>
</td>
</tr>
<%rs.movenext
rs.close
%>
提示错误
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

改成下面的，注意:只是多了两个loop

<%set rs=server.createobject("adodb.recordset")
sql="select top10 from qy_zhiliao order by qy_id desc"
rs.open sql,conn,1,1
do while not rs.eof %>
<tr>
<td height="20" bgcolor="#F7F7F7">
<a href="cdetail.asp?id=<%=rs("qy_dwmc")%>" class="a1" target="_blank">
<%=rs("Qy_dwmc")%>
<%set rsz=server.createobject("adodb.recordset")
sql="select * from zp_xinxi where zp_qyname="&rs("Qy_dwmc")&" order by id desc"
rsz.open sql,conn,1,1
do while not rsz.eof
response.write(rsz("zp_gwmc"))
rsz.movenext
loop
rsz.close
%>
</a>
</td>
</tr>
<%rs.movenext
loop
rs.close
%>

求助.缺少 'Loop' 缺少 'Loop' 求助帮助,非常感谢!!编译器错误 (0x800A03FB) 缺少 'Loop' ASP代码提示缺少 'Loop' [求助]为什么提示我的loop语句缺少DO ?? 错误 : loop 缺少 do 'loop' 语句缺少 'do' asp 'loop' 语句缺少 'do' 'loop' 语句缺少 'do' 最后的地方 求助c语言loop问题