<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><div align="center"></div></td>
</tr>
<tr>
<td><img src="../imagenes/fondos/px.gif" width="30" height="10"></td>
<td><img src="../imagenes/comercial/internacional/botones.gif" width="239" height="17" border="0" usemap="#Map"></td>
</tr>
<tr>
<td height="55" colspan="2"><img src="../imagenes/fondos/px.gif" width="10" height="58">
<div id="delegaciones" style="position:absolute; width:120px; height:52px; z-index:1; left: 196px; top: 351px; visibility: hidden;" class="menuarriba">
<div align="left" onClick="MM_showHideLayers(')%>','','show')">
<%
set rs=Server.CreateObject("ADODB.Recordset")
strAccessDB = "../internacional/inter"
Conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(strAccessDB)
SQL="SELECT * FROM Delegaciones"
rs.Open SQL, Conn
response.write "<table width=120 border=0 cellspacing=0 cellpadding=0><td>"
while not rs.EOF
response.write "<a href=""javascript:;"" class=menuarriba><font color=""#669999"" onClick=""MM_openBrWindow('delegaciones.asp?ID="&r s("ID")&"','delegaciones','width=270,height=300')" ">"&rs.Fields("Lugar")& "</font><br>"
rs.MoveNext
wend
response.write "</td></table>"
%>
</div>
</div>
<div id="distribuidores" style="position:absolute; width:68px; height:94px; z-index:2; left: 437px; top: 317px; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000; visibility: hidden;" class="menuarriba">
<div align="left">
<%
set rs2=Server.CreateObject("ADODB.Recordset")
SQL2="SELECT * FROM Distribuidores"
rs2.Open SQL2, Conn
while not rs2.EOF
%>
<a href="javascript:;" class="menuarriba"><FONT
color=#669999
onmouseover="MM_showHideLayers('<%=rs2.Fields("Con tinente")%>','','show')"><%=rs2.Fields("Continente ")%></font></a><br>
<%
set rs3=Server.CreateObject("ADODB.Recordset")
SQL3="SELECT * FROM Distribuidores2 where IDdistrib = "&rs2("ID")
rs3.Open SQL3, Conn
%>
<div id=<%=rs2.Fields("Continente")%> style="position:absolute; width:110px; height:37px; z-index:3; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000; left: 90px; top: -1px; visibility: hidden;">
<%
while not rs3.EOF
%>
<a href="javascript:;" class="menuarriba"><font color="#669999"><%=rs3.Fields("Pais")%></font></a><br>
<%
rs3.MoveNext
wend
%>
</div>
<%
rs2.MoveNext
wend
%>
</div>
</div>
<div id="Layer1" style="position:absolute; width:164px; height:80px; z-index:3; left: 192px; top: 331px; visibility: visible;" onMouseOut="MM_showHideLayers('delegaciones','','h ide')"></div>
<%
set rs4=Server.CreateObject("ADODB.Recordset")
SQL4="SELECT * FROM Distribuidores"
rs4.Open SQL4, Conn
set rs5=Server.CreateObject("ADODB.Recordset")
SQL5="SELECT * FROM Distribuidores2 where IDdistrib = "&rs4("ID")
rs5.Open SQL5, Conn
%>
<%
while not rs4.EOF
%>
<div id="<%=rs4.Fields("Continente")%>2" style="position:absolute; width:211px; height:101px; z-index:4; left: 434px; top: 312px; visibility: visible;" onMouseOut="MM_showHideLayers('<%=rs4.Fields("Cont inente")%>','','hide')"></div>
<%
rs4.MoveNext
wend
%>
</td>
</tr>
</table><map name="Map">
<area shape="rect" coords="0,0,113,22" href="#" onMouseOver="MM_showHideLayers('delegaciones','',' show','distribuidores','','hide',')%>','','hide ')">
<area shape="rect" coords="124,2,242,33" href="#" onMouseOver="MM_showHideLayers('delegaciones','',' hide','distribuidores','','show',')%>','','hide ')">
</map>
Haber si alguien me dice como hacer un menu de este tipo o me da algún ejemplo, no se lo que sea, pero no uno de esos que se autogeneran con algún programa, que esos luego no los entiendo y no se como funcionan.
Un saludo
