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

代码如下：

<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，怎么还说缺少呢。。。。请各位大侠帮俺查查是哪的错！！先谢！