Menu con asp

[pali_wichis]

Hola!
muy buena tu acotación...
yo tb lo hice... pero con xml para que sea mas rápido y liviano:

Código:

<script type="text/javascript">
var id = '<%=strPerfil%>';
<!--

stm_bm(["menu0a7f",820,"","blank.gif",0,"","",0,0,250,50,1000,1,0,0,"","",0,0,1,1,"default","hand",""],this);
stm_bp("p0",[1,4,0,0,1,2,13,16,100,"progid:DXImageTransform.Microsoft.Fade(overlap=.5,enabled=0,Duration=0.40)",-2,"",-2,70,0,0,"#7F7F7F","#F2F2F2","",3,0,0,"#666666"]);
stm_ai("p0i0",[0,"Sistema Documentación","","",-1,-1,0,"","_self","","","","",13,0,0,"","",0,0,0,0,1,"#8AAEC6",0,"#8AAEC6",0,"","",3,3,0,0,"#FFFFFF","#FFFFFF","#003366","#003366","bold 8pt Arial","bold 8pt Arial",0,0],155,20);

<%dim objCom
  dim objXSL
  dim objXML,objXML1
  dim strXML,strXML1
  dim ObjSegment,ObjSegment1  
 

  set objCom = server.CreateObject("DocSarina.clsDocumentacion")
  set objXML = Server.CreateObject("MSXML2.DOMDocument")
  set objXML1 = Server.CreateObject("MSXML2.DOMDocument")

  strXML = objCom.ArmaMenu()
  objXML.loadXML(strXML) 

  strXML1 = objCom.ArmaSubMenu()
  objXML1.loadXML(strXML1) 

  dim nombreapp,nombresubapp
  '........................................................
  'response.Write("objXML1:" & objXML1.xml & "<br>")
  'response.End 
  '........................................................
  
FOR Each ObjSegment in objXML.selectNodes("cmd_storeproc/output/rootxml/spxml/row")
    nombreapp = ObjSegment.selectSingleNode("@nombresub").text
    'response.Write "nombreapp:" & nombreapp & "<br>"
    
      if (Trim(ObjSegment.selectSingleNode("@subapp").text)= "SI") then %>
        
       stm_aix("p0i1","p0i0",[0,"<%=ObjSegment.selectSingleNode("@nombresub").text%>","","",-1,-1,0,"","_self","","","","",0,0,0,"fadearrow1.gif","fadearrow2.gif",16,9,0,0,0,"#FFFFFF",1,"#B7CEE2",0,"fade.gif","",3,3,0,0,"#CCCCCC","#FFFFFF","#999999","#000000","8pt Arial","8pt Arial"],155,0);  
       stm_bp("p1",[1,4,0,0,1,1,16,0,100,"stEffect(\"slip\")",-2,"",-2,85,1,3,"#7F7F7F","transparent","",3,1,1,"#999999","",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"","","","",0,0,0,0,0,0,0,0]);
     
       stm_bpx("p2","p1",[]);
      <%FOR Each ObjSegment1 in objXML1.selectNodes("cmd_storeproc/output/rootxml/spxml/row")%>
        
            <% nombresubapp = ObjSegment1.selectSingleNode("@subaplicacion").text
                if (Trim(nombreapp) = Trim(nombresubapp)) then%> 
                   
                    stm_aix("p2i0","p1i0",[0,"<%=ObjSegment1.selectSingleNode("@sub2aplicacion").text%>","","",0,-1,0,"<%=ObjSegment1.selectSingleNode("@sspaginainicio").text & "?"& "strPerfil="& strPerfil & "&" &"strAccion=" & ObjSegment1.selectSingleNode("@sub2aplicacion").text%>","frm_right","","","","fadearrow2.gif",16,9,0,"","",0,0,0,0,1,"#B3D3E8",0,"#0000FF",1,"","fade.gif",3,3,0,0,"#CCCCCC","#FFFFFF","#999999","#000000","8pt Arial","8pt Arial"],155,0);
                 
        <%      end if
      
       'nombresubapp = ObjSegment1.selectSingleNode("@subaplicacion").text
       NEXT
       %>
         
        stm_ep(); 
     <% else%>
            stm_aix("p0i1","p0i0",[0,"<%=ObjSegment.selectSingleNode("@nombresub").text%>","","",-1,-1,0,"<%=ObjSegment.selectSingleNode("@paginainicio").text%>","frm_right","","","","",0,0,0,"","",16,9,0,0,0,"#FFFFFF",1,"#B7CEE2",0,"","",3,3,0,0,"#CCCCCC","#FFFFFF","#999999","#000000","8pt Arial","8pt Arial"],155,0);
            stm_bp("p1",[1,4,0,0,1,1,16,0,100,"stEffect(\"slip\")",-2,"",-2,85,1,3,"#7F7F7F","transparent","",3,1,1,"#999999","",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"","","","",0,0,0,0,0,0,0,0]);
            stm_ep();
            
           
    <%end if 
    
    NEXT
 
   set objCom = nothing
   set objXML = nothing
   set objXSL = nothing %>
           
        
 stm_aix("p0i6","p0i0",[0,"Datos de Usuario"],155,20); 
 stm_aix("p0i7","p0i1",[0,"DatosUsuario","","",-1,-1,0,"DatosUsuarios.asp?strAccion=inicio&rut=<%=rut%>","frm_right","","","","",0,0,0,"","",0,0],155,0);
if (id == 1)
{

    stm_aix("p0i8","p0i0",[0,"Perfiles"],155,20);
    stm_aix("p0i9","p0i7",[0,"Adm. Perfiles","","",-1,-1,0,"Perfiles/AdmPerfil.asp","frm_right","","","","",0,0,0,"","",0,0],155,0);
    stm_aix("p0i10","p0i7",[0,"Adm. Usuario","","",-1,-1,0,"Mantenedor/mantenedor_usuario.asp","frm_right","","","","",0,0,0,"","",0,0],155,0);
    stm_aix("p0i11","p0i0",[0,"Mant. Aplicaciones"],155,20);
    stm_aix("p0i12","p0i7",[0,"Aplicaciones","","",-1,-1,0,"Aplicaciones/AdmAplicacion.asp","frm_right","","","","",0,0,0,"","",0,0],155,0);
    stm_aix("p0i13","p0i7",[0,"Sub-Aplicaciones","","",-1,-1,0,"Aplicaciones/AdmSubAplicacion.asp","frm_right","","","","",0,0,0,"","",0,0],155,0);
    stm_aix("p0i14","p0i7",[0,"Sub-Aplicaciones n2","","",-1,-1,0,"Aplicaciones/AdmSSAplicacion.asp","frm_right","","","","",0,0,0,"","",0,0],155,0);
    stm_ep();
}
stm_sc(1,["transparent","transparent","","",3,3,0,0,"#FFFFF7","#000000","up_disabled.gif","up_enabled.gif",7,9,0,"down_disabled.gif","down_enabled.gif",7,9,0,0,1]);
stm_em();
//-->
</script>

espero que les sirva y los ayude en la creación de menus mas vistosos... el modelo esta en 3 capas, por lo que si quieren saber como modele la componente y los sp solo escribanme aca y se los envio por correo :D
saludos!!!!