ACCESS busca recursivamente todos los nodos descendientes de la estructura de árbol....

hoja de datos bmclass

id int (número automático)

parentid int (id del nodo principal)

name varchar (nombre de categoría)

lt;

'Conexión de base de datos

set conn=Server.CreateObject("ADODB.Connection")

conn.open "controlador ={SQL Server};server=.;DATABASE=test;UID=sa;PWD="

'Abrir todos los datos principales

set rs=Server.CreateObject("ADODB. Recordset")

rs.open "select*from bmclass donde parentid=0 order by rid", conn, 1, 3

'El número de niveles para asignar valores iniciales a variables de tabla

format_i=1

'Listar segmentos principales del programa

hacer mientras no rs.eof

'Imprimir información sobre las datos principales

' respuesta.write "lt; a href='list.asp?SelfID=" amp; rs("id") amp "amp; parentid=" rs("parentid" ) amp; "'gt;" amp; rs("nombre") amp; "amp;/agt;" amp; Response.write "lt; brgt;"

'Llamada a subrutina, procesamiento de datos de subcapa

Llamada a ListSub(rs("id"))

rs.movvenext

bucle

'Cerrar el conjunto de datos principal

rs.close

set rs=nada

' Subrutina de procesamiento de datos de subcapa

Sub ListSub(id)

'Abre información sobre todos los subniveles que pertenecen al id superior

set rs_sub=Servidor .ListSub(id)