"
dim sqlChild,rsChild,rsChild2
sqlChild="select ClassID,ClassName,Child From SoftClass where ParentID=" & ClassID
Set rsChild= Server.CreateObject("ADODB.Recordset")
set rsChild2= Server.CreateObject("ADODB.Recordset")
rsChild.open sqlChild,conn,1,1
i=0
do while not rsChild.eof
response.Write "" & rsChild(1) & ""
if rsChild(2)>0 then
response.write "(" & rsChild(2) & ") "
sqlChild="select ClassID,ClassName,Child From SoftClass where ParentID=" & rsChild(0)
rsChild2.open sqlChild,conn,1,1
j=0
do while not rsChild2.eof
response.Write "" & rsChild2(1) & ""
if rsChild2(2)>0 then
response.write "(" & rsChild2(2) & ")"
end if
response.write " "
rsChild2.movenext
j=j+1
if j mod 5=0 then response.write " "
loop
rsChild2.close
else
if ChildID="" then
ChildID=Cstr(rsChild(0))
else
ChildID=ChildID & "," & Cstr(rsChild(0))
end if
end if
rsChild.movenext
i=i+1
response.write " | "
if i mod 2=0 then
response.write "