Question

asp网站二级产品分类修改为展开模式，求高人指点

<table width="230" border="0" cellpadding="0" cellspacing="0" id="left_class">
<tr>
<td><h6>产品分类</h6></td>
</tr>
<tr>
<td><%
set rs=server.createobject("adodb.recordset")
sql="select * from jsblbz_big_class ORDER BY sort asc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<center>没有数据</center>"
else
do while not rs.eof
big_id=rs("big_id")
name=rs("name")
if request("big_id")<>"" then
big_id_now=int(request("big_id"))
else
big_id_now=0
end if
%>
<ul><li>
<a href="<%=webfolder%>c_products/?big_id=<%=big_id%>" title="<%=name%>" class="big_class_bg"><strong><% if big_id_now=big_id then%><font color="#FF0000"><%=name%></font><%else%><%=name%><%end if%></strong><br /></a></li>

<%
if request("big_id")<>"" then

if request("big_id")<>"" and int(request("big_id"))=rs("big_id") then
anclassid=request("anclassid")
set rss=server.createobject("adodb.recordset")
sql="select * from jsblbz_small_class where big_id="&rs("big_id")&" order by sort asc"
rss.open sql,conn,1,3
if rss.eof then
%>
<%
else
do while not rss.eof
small_id=rss("small_id")
name=rss("name")
if request("big_id")<>"" and request("small_id") <>"" then
small_id_now=int(request("small_id"))
else
small_id_now=0
end if
%>
<ul>
<li>
<a href="<%=webfolder%>c_products/?big_id=<%=big_id%>&small_id=<%=small_id%>" title="<%=name%>" class="small_class_bg"> • <% if small_id_now=small_id then%><font color="#FF0000"><%=name%></font><%else%><%=name%><%end if%><br /></a> </li></ul>
<%
rss.movenext
loop
end if
rss.close
set rss=nothing
%>
<%
else
end if
end if
%>
</ul>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%> </td>
</tr>
</table>
没人会吗？

Answer 1

<div>
<%
set rs=server.createobject("adodb.recordset")
exec="select * from bigclass order by id asc"
rs.open exec,conn,1,1
do whie not rs.eof
response.write"<h2>"&rs("name")&"</h2>"
set rss=server.createobject("adodb.recordset")
mysql="select * from smallClass order by id asc"
rss.open mysql,conn,1,1
response.write"<ul>"
do while not rss.eof
response.write"<li>"&rss("name")&"</li>"
rss.movenext
loop
rss.close
set rss=nothig
response.write"</ul>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</div>

追问

谢谢这位热心的朋友。但是这个问题依然是没有解决，我把代码替换进去以后，打开网站提示如下：

Microsoft VBScript 编译器错误 错误 '800a0404'

缺少 'While' 和 'Until'或语句未结束

/pub/c_left.asp，行 11

do whie not rs.eof

---^

在Dreamweaver中查看代码，截图如下：

我是菜鸟，请朋友再指点一下怎么修改，非常感谢！