problema con abrir y cerrar menu en asp NO LES VOY A MENTIR
YA ESTOY BIEN HARTA DE ESTA COSA KE NO FUNCIONA
LES DEJO COGIDO
ES UNA OPCION VIENE SACADAS DE UNA BASE DE DATOS
TIPO
+DIRECCION
+ 2008
+ ENERO
+ FEBRERO
+ 2009
+ ENERO
+ 2010
+ ENERO
+ FEBRERO
+ 2011
+ ENERO
SI SE ME DESPLIEGAN LOS CAMPOS
PERO EN EL 2008
NO ME DESPLIEGAN LAS OPCIONES QUE TIENE!!!!
NO SE PORQUE!!!
YA LE DI MUCHAS VUELTAS
TENGO UNA FUNCION JAVASCRITP
ME SALE UN ERROR DE ESTE TIPO
SUBMENU DISPLAY ES NULO O REQUIERE UN OBJETO
LINEA 1692
CAR 1
DEJO CODIGO
<SCRIPT language=JavaScript>
MenuAnterior =2;
inline = 'inline';
none='none';
function CerrarOpciones(n)
{
menu = ('submenu'+n);
img = ('imagen'+n);
if (document.all)
{
submenu = document.all(menu).style;
}
else
{
submenu = document.layers[menu];
}
if (submenu.display==none)
{
submenu.display=inline;
changeOpen(n);
if (MenuAnterior!=n)
{
alert('Menu Anterior ' + MenuAnterior)
changeClose(MenuAnterior);
MenuAnterior = n;
}
}
else
{
submenu.display=none;
changeClose(MenuAnterior);
}
}
function changeOpen(n)
{
if (n!=2)
{
alert('Abriendo Imagen' + n)
document.all('imagen'+n).src="../img/ic_menos.gif";
}
}
function changeClose(n)
{
if (n!=2)
{
alert('Cerrando imagen ' + n)
document.all('imagen'+n).src="../img/ic_mas.gif";
}
}
function close(n)
{
if (n!=2)
{
menu = ('submenu'+n);
if (document.all)
submenu = document.all(menu).style;
else
submenu = document.layers[menu];
submenu.display=none;
}
}
function toggleSub2(n) {
menu = ('submenu'+n);
if (document.all)
submenu = document.all(menu).style;
else
submenu = document.layers[menu];
if (submenu.display==inline)
{
submenu.display=none;
}else
{
submenu.display=inline;
}
}
</SCRIPT>
Y EL ASP ES MAS O MENOS ASI
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="0" style="BORDER-COLLAPSE: collapse" bordercolor="#c0c0c0">
<%Set DLLDeptos = Server.CreateObject("DLLAdmCat.CAdmCat")
Set rsN1=DLLDeptos.getOpcionesArbol (1, "0")
'**** Inicia con Nivel 1 ****
If Not rsN1.EOF And Not rsN1.BOF Then
N1Menu=101
Do While Not rsN1.EOF%>
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="1" style="BORDER-COLLAPSE: collapse" bordercolor="#c0c0c0" >
<TR>
<TD ALIGN="right" bordercolor="#999999" width="16" style="BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP: #808080 1px solid" bgcolor="#eeeeee">
<IMG alt="" border=0 name="imagen<%=N1Menu%>" onclick=javascript:CerrarOpciones(<%=N1Menu%>); src="../img/ic_mas.gif"></TD>
<TD CLASS="txtcontenido" bordercolor="#999999" width="361" style="BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP: #808080 1px solid" bgcolor ="#eeeeee" colspan="4"> <%=rsN1.Fields(1)%>.</TD>
</TR>
</TABLE>
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<!-- EMPIEZA NIVEL 2 -->
<TR width="377" id=submenu<%=N1Menu%> style="DISPLAY: none">
<TD>
<%Dependencia=rsN1.Fields(0)
Set rsN2=DLLDeptos.getOpcionesArbol (2, Dependencia)
If Not rsN2.EOF And Not rsN2.BOF Then
N2Menu=201%>
<%Do While Not rsN2.EOF%>
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="20"> </TD>
<TD WIDTH="8" bordercolor="#999999">
<IMG alt="" border=0 name="imagen<%=N2Menu%>" onclick=javascript:toggleSub2(<%=N2Menu%>); src="../img/ic_mas.gif"></TD>
<TD CLASS="txtcontenido" bordercolor="#999999" width="344" style="BORDER-BOTTOM: #999999 1px solid; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px"> <%=rsN2.Fields(1)%></TD>
</TR>
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<tr><td>
<!-- EMPIEZA NIVEL 3 -->
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR width="377" id=submenu<%=N2Menu%> style="DISPLAY: none">
<TD>
<%Dependencia=rsN2.Fields(0)
Set rsN3=DLLDeptos.getOpcionesArbol (3, Dependencia)
If Not rsN3.EOF And Not rsN3.BOF Then
N3Menu=301%>
<TABLE WIDTH="377" BORDER="0" CELLSPACING="0" CELLPADDING="1" style="BORDER-COLLAPSE: collapse" bordercolor="#c0c0c0" >
<%Do While Not rsN3.EOF%>
<TR>
<TD WIDTH="40"> </TD>
<TD WIDTH="8" bordercolor="#999999">
<IMG alt="" border=0 name="imagen<%=N2Menu%>" onclick=javascript:toggleSub2(<%=N2Menu%>); src="../img/ic_mas.gif">
</TD>
<TD CLASS="txtcontenido" bordercolor="#999999" width="320" style="BORDER-BOTTOM: #999999 1px solid; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px"> <%=rsN3.Fields(1)%></TD>
</TR>
<%rsN3.Movenext
N3Menu=N3Menu+1
Loop%>
</TABLE>
<%End if%>
</TD>
</TR>
</TABLE>
</td></tr>
</table>
<!-- TERMINA NIVEL 3 -->
<%rsN2.Movenext
N2Menu=N2Menu+1%>
<%Loop%>
<%End if%>
</TABLE>
<!-- Aqui termina el 2do Nivel -->
<%rsN1.movenext
N1Menu=N1Menu+1 %>
<%Loop%>
<%End if%>
</TABLE>
