"ERROR 'this.awBMnbSpm.0.AWBmnbSPm' no es un objeto"
y la sentencia en le codigo es:
AWBmnbSPm=this.awBMnbSpm[0].AWBmnbSPm;
el cual esta en un archivo menu_apli.js
En mi pagina menu.asp referencio este archivo menu_apli.js y tiene el codigo sgute....
*****************************************
//menu del sistema
var awbMNBSpm=new awbmnbspm();
awjsmngold10 = new TJSMenuType2("awjsmngold10","intran et",1,0,2,2,3,0,0,1000,1,"serif",10 ,1,1,2,"#778899",130,20,1,6,1,"prog id:DXImageTransform.Microsoft.GradientWipe(duratio n=0.5,wipeStyle=1)");
<%
Dim rst ,i, strConexion , Id_clase, obj, objRS
Id_clase = session("clase_usu")
strConexion = Application("conexion")
Set obj = CreateObject("COMMBDAT.MenuBD")
Set rst= obj.ConsultaMenu(strConexion,Id_clase)
%>
<% rst.Filter="nivel>" & 0 %>
<%Do While Not rst.EOF %>
ls_ident = "<% Response.Write rst(0) %>"
ls_parent = "<% Response.Write rst(1) %>"
ls_descr = "<% Response.Write rst(2) %>"
ls_enlace = "<% Response.Write rst(4) %>"
ls_permiso = "<% Response.Write rst(6) %>"
//restriccion solo hasta el nivel 2...
<%if rst(3)= 3 Then exit Do%>
//restriccion de desdoble
<% If rst(7)= "N" Then %>
ls_tipo = "_self"
<%Else%>
ls_tipo = "intranet"
<%End If%>
//condicion para el menu de primer nivel
<% If rst(3)= 1 Then ls_parent = ""%>
//**********funcion principal no modificar!!!)************************************* *
awjsmngold10.awBmnbspM(ls_ident,ls_parent,ls_descr ,ls_enlace,ls_tipo,130,20,"","" ;,"#d3d3d3","#b22222","#d c143c","#66ff33","");
//************************************************** *********************************
<%rst.MoveNext%>
<%Loop%>
awjsmngold10.awBmNBspm();
//fin de menu de sistema
**********Gracias por su atencion...
