RE:Arboles
Publicado por
Alejandro (1 intervención) el 13/12/2000 00:00:00
Te mando un codigo puede que te sirva.
Pegalo y fijate como queda.
-----------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Menu Principal</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/3.03Gold (WinNT; I) [Netscape]">
</HEAD>
<script LANGUAGE="VBScript">
<!--
Sub MenuCargar()
Dim nodX
Const tvwChild = 4
Menu.Nodes.Clear
Set nodX = Menu.Nodes.Add(, , "ROOT", "SFB_NT")
Set nodX = Menu.Nodes.Add("ROOT", tvwChild, "DX130", "DX130")
Set nodX = Menu.Nodes.Add("DX130", tvwChild, "AOM00", "AOM00")
Set nodX = Menu.Nodes.Add("AOM00", tvwChild, "AOM10", "AOM10")
Set nodX = Menu.Nodes.Add("AOM10", tvwChild, "ASOM1", "ASOM1")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSMFI", "BSMFI")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSTFI", "BSTFI")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSTMK", "BSTMK")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSMDI", "BSMDI")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSTCA", "BSTCA")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSTCC", "BSTCC")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSMBA", "BSMBA")
Set nodX = Menu.Nodes.Add("ASOM1", tvwChild, "BSMJU", "BSMJU")