有关商品目录显示问题！

[liyunlong]

我的数据库是
主类别表
categoryies
idcategory
subcategorydesc
次类表
subcategories
idsubcategory
subcategorydesc
idcategory
我想让他像这样显示
主类别
次类别
。
。。
主类别
次类别
。。。
附源代码！

现在要问的问题是！在次类别显示出现了问题！请高手帮我修改指正啊！

<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("database/#ydleshop.mdb")& ";PASSWORD=ydl98168"
sql = "select * from categories order by idcategory"
set rs=conn.execute(sql)
%>

<%do while not rs.eof%>

<table><tr><td>
<a href='ydlgroup_listsubcategories.asp?idcategory=<%=rs("idcategory")%>&categoryDesc=<%=rs("categorydesc")%>'>
<%=rs("categorydesc")%>
</a></td></tr></table> <br>

<%
sqlsubcategory = "select * from subcategories where idcategory=8"
set rssubcategory=conn.execute(sqlsubcategory)
%>

<%do while not rssubcategory.eof%>
<table><tr><td>
<a href="ydlgroup_listproductsbysubcategory.asp?idsubcategory=<%=rssubcategory("idsubcategory")%>""><%=rssubcategory("subcategorydesc")%></a></td></tr></table><br>


<%
rssubcategory.movenext
loop
rssubcategory.close
set rssubcategory=nothing
%>


<%
rs.movenext
loop
rs.close
set rs=nothing
%>

[liyunlong]

我自已回一下啊！具体效果请看！
www.ydlgroup.com/en/shop/

[liyunlong]

大哥！帮我一下吧！

[minghui000]

HO NO。。帮你UP一下 ：）

[airzen]

我也想知道。帮你顶一下

[zz124]

set rs=conn.execute(sql)
set rssubcategory=conn.execute(sqlsubcategory)
把上面两句 改为，现在数据库连接语句后添加两个定义
set rs=server.createobject("adodb.recordset")
set rssubcategory=server.createobject("adodb.recordset")
然后在上面两局的位置改为：
rs.open sql,conn
rsssubcategory.open sqlsubcategory,conn

[ronanlin]

sqlsubcategory = "select * from subcategories where idcategory=8"
改为
sqlsubcategory = "select * from subcategories where idcategory=" & rs("idcategory")

你的代码错在哪里了？？