Holas tengo una aplicacion web ASP para la cual tengo un menu en Jscript, al realizar unas modificaciones de normalizacion en la modelo de BD (no en el codigo) me sale el shute error: el cual no puedo resolver:
"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...
