Campos de banco de dados: id (número automático), classe_name (nome do menu), parentid (ID do menu pai)
A cópia do código é a seguinte:
<%
Dimm
M = 0
callshowtree (0)%>
<%
SubShowtree (Parentid)
dims
M = M+1
Dimrs
Setrs = server.createObject ("adodb.recordset")
sql = "SelectClass_Id, Class_NameFrom [WMS_CLASS] Whereclass_father_id =" & cint (parentid)
Rs.opensql, Conn, 1,1
ifrs.eofandm = 1then
Response.Write ("Não há coluna para este canal")
endif
Dowhilenotrs.eof
Response.Writers (0)
forn = 1tom
ifn = mandm = 1hen
Response.Write ("╋")
elseifn = 1hen
Response.Write ("")
elseifn = mthen
Response.Write ("├")
outro
Response.Write ("│")
endif
próximo
Response.writers (1) e "<br>"
Callshowtree (rs (0))
M = M-1
rs.movenext
Laço