如何制作循环读取数据库的折叠菜单

一下是我读取产品分类的ASP代码

function WebMenu(ParentID,i,level)
dim rs,sql,j,m
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID ASC"
rs.open sql,conn,1,1
if conn.execute("select ID from NwebCn_ProductSort Where ViewFlag and ParentID=0").eof then
response.write "暂无相关信息"
end if%>
<%do while not rs.eof
if ParentID=0 then
response.write " "&rs("SortName")&"
"
else
response.write string(i," ")&""&rs("SortName")&"
"
end if
i=i+1
if i i=i-1
rs.movenext
loop
rs.close
set rs=nothing
end function

我想用JS来控制隐藏和显示层，达到点击一级分类，显示下属子分类的效果，默认只显示一级分类的名字。尝试了很多方法都没有效果，因为是循环读出的分类名字，使用div后会重复，定义了一些变量作为div的ID，好像也不太好使用，郁闷了很多天，请高手来支招！

修改循环读取的方式