Foros del Web » Programando para Internet » ASP Clásico »

Este menu me está volviendo loco Ayudaaa!!

Estas en el tema de Este menu me está volviendo loco Ayudaaa!! en el foro de ASP Clásico en Foros del Web. Hola a todos, estoy programando una web que tiene un poco de todo, calendario, foro, Bd de productos, y me está costando mucho menos hacer ...
  #1 (permalink)  
Antiguo 18/09/2003, 11:33
 
Fecha de Ingreso: febrero-2002
Ubicación: Navarra
Mensajes: 701
Antigüedad: 23 años, 3 meses
Puntos: 2
Este menu me está volviendo loco Ayudaaa!!

Hola a todos, estoy programando una web que tiene un poco de todo, calendario, foro, Bd de productos, y me está costando mucho menos hacer todo esto que los dichosos menus, que no se que no me salen, o mejor dicho no se me ocultan, y no tengo ni idea porque es, le pongo la propiedad del dreamweaver para ocultar capas pero no sale bien, haber si alguien me puede hechar una mano, los menus están hechos con capas y recogen los datos de la Bd, este es el código:


<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(')%&gt;','','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',')%&gt;','','hide ')">
<area shape="rect" coords="124,2,242,33" href="#" onMouseOver="MM_showHideLayers('delegaciones','',' hide','distribuidores','','show',')%&gt;','','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
__________________
asp, php, .net, adaptandose a las necesidades
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:56.