急救！关于Microsoft VBScript 编译器错误 (0x800A0400) 缺少语句 end if的问题！！！

[net86]

代码如下：

<table border="0" cellpadding="0" cellspacing="0">
                              <%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from brand where id="&rs("ppid")&" order by pingpaiorder",conn,1,1
if rs_s.recordcount=0 then 
%>
                              <tr>
                                <td height="20" align="center" colspan="8">暂无内容</td>
                              </tr>
                              <%
else
i=0
while not rs_s.eof
%>
                              <tr style="BORDER-bottom:#CC0033 1px solid;">
                                <td width="116"  height="24" align="left"><div align="left">
                                  <img src="img/d1.jpg" width="15" height="16" align="absmiddle">  <a href="brand.asp?ppid=<%=rs("pingpai")%>"><%=rs_s("pingpainame")%></a>
                                        <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>                                </td>
                                <td width="116" align="left" ><img src="img/d1.jpg" width="15" height="16" align="absmiddle"> <a href="brand.asp?ppid=<%=rs("pingpai")%>"><%=rs_s("pingpainame")%></a>
                                        <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>                                </td>
                                <td width="116" align="left" ><img src="img/d1.jpg" width="15" height="16" align="absmiddle">  <a href="brand.asp?ppid=<%=rs("pingpai")%>"><%=rs_s("pingpainame")%></a>
                                        <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>                                </td>
                                <td width="116" align="left" ><img src="img/d1.jpg" width="15" height="16" align="absmiddle">  <a href="brand.asp?ppid=<%=rs("pingpai")%>"><%=rs_s("pingpainame")%></a>
                                        <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>                                </td>
                                <td width="131" align="left" ><div align="left">
                                  <img src="img/d1.jpg" width="15" height="16" align="absmiddle">  <a href="brand.asp?ppid=<%=rs("pingpai")%>"><%=rs_s("pingpainame")%></a> </td>
                                <%
rs_s.movenext
end if
end if
end if
end if

wend
end if
end if
end if
%>
                              </tr>
                          </table>

以上是代码，急救！

显示：
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/brand.asp, line 162
end if

--------

162行就是end if，怎么还说缺少呢。。。。请各位大侠帮俺查查是哪的错！！先谢！

[jastby]

我看你 5个if 却有 6个 end if

[jastby]

从最 里面的 一个 if else 开始检查

看看 哪里多了个 end if 或者 少了 end if ， 不局匹

[jastby]

好像 最后2个 end if 是多余的

[net86]

嗯。正是楼上的原因。谢谢大家了