分类显示问题

[不耐烦]

参考网上的：
数据库设计

sortID sortName parentID sortPath
1 分类1 0 0,1,
2 分类2 0 0,2,
3 分类3 0 0,3,
4 分类4 0 0,4,
5 分类11 1 0,1,5,
6 分类12 1 0,1,6,
7 分类121 6 0,1,6,7,
8 分类21 2 0,2,8,
9 分类111 5 0,1,5,9,

程序

<table width="500" border="1" cellspacing="0" cellpadding="0">
<%
db = "db.mdb"
SET conn = Server.CREATEOBJECT("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.OPEN connstr

sub Memu(id)
set rs=conn.execute("select * from [Class] where parentID='"&id&"'")
do while not rs.eof
%>
<tr>
<td><%response.Write rs("sortName")%></td>
</tr>
<%
id=rs("sortID")
call Memu(id)
rs.movenext
loop
set rs=nothing
end sub
call memu(0)
%>
</table>
显示是
分类1
分类11
分类111
分类12
分类121
分类2
分类21
分类3
分类4
如何才能
分类1
－分类11
－－分类111
－分类12
－－分类121
分类2
－分类21
分类3
分类4
这么显示
我这里没有用到sortPath，如果运用sortPath　改什么显示呢？？

[不耐烦]

up~~~~~~~~

[不耐烦]

显示的问题我已经解决了 那么

如果运用sortPath

该怎么实现

分类1
－分类11
－－分类111
－分类12
－－分类121
分类2
－分类21
分类3
分类4

这种效果

[不耐烦]

~~~~~up