<%MnuNoticias = request("mnunot"): vdia = mid(edicion, 1, 2): vmes = mid(edicion, 4, 2): vano = mid(edicion, 9, 2): vpath = "/" & vano & "/" & vmes & "/" & vdia & "/"
dim estaSecccion()
dim mnuSectorUrl
dim mnuopt
mnuSectorUrl=request.servervariables("URL")
'FUNCION QUE VERIFICA SI ALGUNA DE LAS SECCIONES
'CONTENIDAS EN EL ARRAY EXISTEN EN LA URL
function isItemInUrl(byRef arrObj,url)
for n=0 to ubound(arrObj)
if instr(1,lcase(url),lcase(arrObj(n)))>0 then
isItemInUrl=true
exit function
end if
next
isItemInUrl=false
end function
%>
|
|
<%
'CONTROL PARA MOSTRAR NOTICIAS
'if pathUltimaEdicion<>"" then
if vpath=mid(mnuSectorUrl,1,10) then
if (publicacion_tipo=1) then
response.write " | "
server.execute("/Includes/EP2_Menu_NoticiasAlt.asp")
else
server.execute("/Includes/EP2_Menu_Noticias.asp")
end if
else
%>
| Noticias |
 |
<%
end if
'end if
%>
| |
|
<%
'CONTROL PARA MOSTRAR SUPLEMENTOS
redim estaSecccion(12)
estaSecccion(0)="/Agropecuario/"
estaSecccion(1)="/CocinemosConAmor/"
estaSecccion(2)="/Cultural/"
estaSecccion(3)="/DeLosDomingos/"
estaSecccion(4)="/EntrevistasDeDicandia/"
estaSecccion(5)="/EconomiaYMercado/"
estaSecccion(6)="/QuePasa/"
estaSecccion(7)="/SabadoShow/"
estaSecccion(8)="/Jardines/"
estaSecccion(9)="/Suple/index.asp"
estaSecccion(10)="/ProDig/TIC/"
estaSecccion(11)="/Suple/DS/"
estaSecccion(12)="/Suple/Empresario/"
if isItemInUrl(estaSecccion,mnuSectorUrl) then
server.execute("/Includes/EP2_Menu_Suplementos.asp")
else
%>
| Suplementos |
|
<% end if %>
<%
'CONTROL PARA MOSTRAR ESPECIALES
redim estaSecccion(7)
estaSecccion(0)="/Carnaval/"
estaSecccion(1)="/Carnaval2004/"
estaSecccion(2)="/Carnaval2003/"
estaSecccion(3)="/UE/"
estaSecccion(4)="/irak_eeuu/"
estaSecccion(5)="/cumbredelatierra/"
estaSecccion(6)="/rodo/"
estaSecccion(7)="/Especiales/index.asp"
if isItemInUrl(estaSecccion,mnuSectorUrl) then
server.execute("/Includes/EP2_Menu_Especiales.asp")
else
%>
| Especiales |
|
<% end if %>
<%
'CONTROL PARA MOSTRAR SERCVICIOS
redim estaSecccion(2)
estaSecccion(0)="/Carteleras/"
estaSecccion(1)="/Buscador/"
estaSecccion(2)="/Servicios/index.asp"
if isItemInUrl(estaSecccion,mnuSectorUrl) then
server.execute("/Includes/EP2_Menu_Servicios.asp")
else
%>
| Servicios |
|
<% end if %>
<%
'CONTROL PARA MOSTRAR CANALES
redim estaSecccion(8)
estaSecccion(0)="/Alianzas/educacion.html"
estaSecccion(1)="/Alianzas/inversiones.html"
estaSecccion(2)="/Alianzas/salud.html"
estaSecccion(3)="/Alianzas/cocina.html"
estaSecccion(4)="/Alianzas/eventos.html"
estaSecccion(5)="/Alianzas/teledoce.html"
estaSecccion(6)="http://metropolis.elpais.com.uy/metrowindow.htm"
estaSecccion(7)="/Alianzas/aviacion.html"
estaSecccion(8)="/Alianzas/autoanuario.html"
if isItemInUrl(estaSecccion,mnuSectorUrl) or (vpath=mid(mnuSectorUrl,1,10)) then
server.execute("/Includes/EP2_Menu_Canales.asp")
else
%>
| Canales |
|
<% end if %>
<%
'CONTROL PARA MOSTRAR PRODUCCION DIGITAL
redim estaSecccion(9)
estaSecccion(0)="/AmericaDelSur/Anuarios/"
estaSecccion(1)="/AmericaDelSur/"
estaSecccion(2)="/Anuarios/"
estaSecccion(3)="/LaSemanaEnElPais/"
estaSecccion(4)="/TiempoLibre/"
estaSecccion(5)="/Uruguayos/"
estaSecccion(6)="/DiariosDelMundo/"
estaSecccion(7)="/Biblioteca/"
estaSecccion(8)="/ProduccionDigital/index.asp"
estaSecccion(9)="/ProDig/EmpDig/"
if isItemInUrl(estaSecccion,mnuSectorUrl) then
server.execute("/Includes/EP2_Menu_ProduccionDigital.asp")
else
%>
| Producción Digital |
|
<% end if %>
<%
'CONTROL PARA MOSTRAR PARTICIPACION
redim estaSecccion(4)
estaSecccion(0)="/Foros/"
estaSecccion(1)="/Ecos/"
estaSecccion(2)="/Ajederez/"
estaSecccion(3)="/Correo.asp"
estaSecccion(4)="/Participacion/index.asp"
if isItemInUrl(estaSecccion,mnuSectorUrl) then
if (publicacion_tipo=1) then
server.execute("/Includes/EP2_Menu_ParticipacionAlt.asp")
else
server.execute("/Includes/EP2_Menu_Participacion.asp")
end if
else
%>
| Participaci�n |
|
<% end if %>
|
name="menu0" id="menu0" onMouseOver="showMenu(event)" onMouseOut="hideMenu(event)" <% end if%>>
