Bueno he hecho el siguiente código para poder realizar el menú desplegable dinámico pero no consigo que funcione si me podeis echar un mano y si sabéis de otra forma de hacerlo me gustaría que me la explicarais.
Muchas gracias.
Código PHP:
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="botonera.ascx.vb" Inherits="include_botonera" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<title>Glossy Accordion Menu</title>
<link rel="stylesheet" type="text/css" href="css/mainstyle.css"/>
<script type="text/javascript" src = "js/jquery.js"></script>
<script type="text/javascript" src="js/ddaccordion.js">
</script>
<script type="text/javascript">
ddaccordion.init({
headerclass: "submenuheader", //Shared CSS class name of headers group
contentclass: "submenu", //Shared CSS class name of contents group
revealtype: "click", //Reveal content when user clicks or onmouseover the header? Valid value: "click" or "mouseover
collapseprev: true, //Collapse previous content (so only one open at any time)? true/false
defaultexpanded: [], //index of content(s) open by default [index1, index2, etc] [] denotes no content
onemustopen: false, //Specify whether at least one header should be open always (so never all headers closed)
animatedefault: false, //Should contents open by default be animated into view?
persiststate: true, //persist state of opened contents within browser session?
toggleclass: ["", ""], //Two CSS classes to be applied to the header when it's collapsed and expanded, respectively ["class1", "class2"]
togglehtml: ["suffix", "<img src='plus.gif' class='statusicon' />", "<img src='minus.gif' class='statusicon' />"], //Additional HTML added to the header when it's collapsed and expanded, respectively ["position", "html1", "html2"] (see docs)
animatespeed: "normal", //speed of animation: "fast", "normal", or "slow"
oninit:function(headers, expandedindices){ //custom code to run when headers have initalized
myiframe=window.frames["myiframe"]
if (expandedindices.length>0 && expandedindices[expandedindices.length-1]>=2)
myiframe.location.replace(headers[expandedindices.pop()].getAttribute('href')) //Get "href" attribute of final expanded header to load into IFRAME
},
onopenclose:function(header, index, state, isuseractivated){ //custom code to run whenever a header is opened or closed
if (state=="block" && isuseractivated==true && index>=2){ //if header is expanded and as the result of the user initiated action
myiframe.location.replace(header.getAttribute('href'))
}
}
})
</script><style type="text/css">
.submenu{display: none}
</style>
<style type="text/css">
.glossymenu{
margin: 5px 0;
padding: 0;
width: 170px; /*width of menu*/
border: 1px solid #9A9A9A;
border-bottom-width: 0;
}
.glossymenu a.menuitem{
background: blue url(img/glossyback.gif) repeat-x bottom left;
font: bold 14px "Lucida Grande", "Trebuchet MS", Verdana, Helvetica, sans-serif;
color: white;
display: block;
position: relative;
width: auto;
padding: 4px 0;
padding-left: 10px;
text-decoration: none;
}
.glossymenu a.menuitem:visited, .glossymenu .menuitem:active{
color: white;
}
.glossymenu a.menuitem .statusicon{ /*CSS for icon image that gets dynamically added to headers*/
position: absolute;
top: 5px;
right: 5px;
border: none;
}
.glossymenu a.menuitem:hover{
background-image: url(glossyback2.gif);
}
.glossymenu div.submenu{ /*DIV that contains each sub menu*/
background: white;
}
.glossymenu div.submenu ul{ /*UL of each sub menu*/
list-style-type: none;
margin: 0;
padding: 0;
}
.glossymenu div.submenu ul li{
border-bottom: 1px solid blue;
}
.glossymenu div.submenu ul li a{
display: block;
font: normal 13px "Lucida Grande", "Trebuchet MS", Verdana, Helvetica, sans-serif;
color: black;
text-decoration: none;
padding: 2px 0;
padding-left: 10px;
}
.glossymenu div.submenu ul li a:hover{
background: #DFDCCB;
colorz: white;
}
</style>
<link media="all" href="../css/widget04.css" type="text/css" rel="stylesheet"/></head><body>
<script type="text/javascript">
if (showincontentheader)
document.write('<div id="topbanner" align="left">'+revised_ranban[ran_num]+'</div>')
</script>
<!--webbot bot="HTMLMarkup" startspan -->
<div class="glossymenu">
<a class="menuitem" href="http://www.dynamicdrive.com/">Dynamic Drive</a>
<a class="menuitem submenuheader" href="http://www.dynamicdrive.com/style/"><span class="accordprefix"></span>CSS Examples<span class="accordsuffix"><img alt="" src="../img/plus.gif" class="statusicon" id="IMG1"/></span></a>
<div style="display: none;" class="submenu">
<ul>
<%
set ob_conn=server.createobject("ADODB.connection")
Ob_conn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../Base_Datos/Kroma_bd.mdb") & ";")
ob_rs = ob_conn.Execute("SELECT * FROM T_claseproducto INNER JOIN t_tipoproducto ON t_claseproducto.c_idtipo=cstr(T_tipoproducto.c_idtipo) where t_claseproducto.c_idtipo='" & clase & "'")
'set ob_rs=ob_conn.Execute("SELECT * FROM T_producto INNER JOIN t_claseproducto ON t_producto.c_idclase=cstr(T_claseproducto.c_idclase) where t_claseproducto.c_idtipo='" & clase & "'")
if ob_rs.eof then%>
nada
<%else %>
<%
do while not ob_rs.eof
set ob_rs2=ob_conn.Execute("SELECT * FROM T_subclase where c_idclase='" & ob_rs("c_idclase") & "'")
%>
<li><a href="file:///D|/coma/Html/new/sp-productos2.asp?idclase=<%=ob_rs("c_idclase")%>&idtipo=1" class="subexpandable"><%=ob_rs("c_clase")%></a></li>
<ul class="subcategoryitems" style="margin-left: 15px">
<%do while not ob_rs2.eof%>
<li><a href="file:///D|/coma/Html/new/sp-productos2.asp?idclase=<%=ob_rs("c_idclase")%>&idsubclase=<%=ob_rs2("c_idsubclase")%>"><%=ob_rs2("c_subclase")%></a></li>
<%ob_rs2.movenext
loop%>
</ul>
<%
ob_rs.movenext
loop%>
</ul>
<%ob_rs.close
ob_rs2.close
%>
<%end if%>
<% clase="1"
set ob_conn=server.createobject("ADODB.connection")
Ob_conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../Data/Kroma_bd.mdb") & ";"
set ob_rs=ob_conn.Execute("SELECT * FROM T_claseproducto INNER JOIN t_tipoproducto ON t_claseproducto.c_idtipo=cstr(T_tipoproducto.c_idtipo) where t_claseproducto.c_idtipo='" & clase & "'")
'set ob_rs=ob_conn.Execute("SELECT * FROM T_producto INNER JOIN t_claseproducto ON t_producto.c_idclase=cstr(T_claseproducto.c_idclase) where t_claseproducto.c_idtipo='" & clase & "'")
if ob_rs.eof then%>
nada
<%else %>
<%
do while not ob_rs.eof
set ob_rs2=ob_conn.Execute("SELECT * FROM T_subclase where c_idclase='" & ob_rs("c_idclase") & "'")
%>
<li><a href="file:///D|/KromaTelecom/Html/new/sp-productos2.asp?idclase=<%=ob_rs("c_idclase")%>&idtipo=1" class="subexpandable"><%=ob_rs("c_clase")%></a></li>
<ul class="subcategoryitems" style="margin-left: 15px">
<%do while not ob_rs2.eof%>
<li><a href="file:///D|/KromaTelecom/Html/new/sp-productos2.asp?idclase=<%=ob_rs("c_idclase")%>&idsubclase=<%=ob_rs2("c_idsubclase")%>"><%=ob_rs2("c_subclase")%></a></li>
<%ob_rs2.movenext
loop%>
</ul>
<%
ob_rs.movenext
loop%>
</ul>
<%ob_rs.close
ob_rs2.close
%>
<%end if%>
<h3 class="menuheader"><a href="file:///D|/KromaTelecom/Html/new/sp-productos3.asp"><font face="trebuchet ms" color="#666666">Intercom</font></a></h3>
</div>
</html>