<%'la siguiente marca no se debe borrar!! Es para cachear. %>
<%
pintarCodigoCentral = true
if request("sincache") = "" and conCache = 1 then
set cacheCatalogo = new cache
url = "http://" & request.ServerVariables("SERVER_NAME") & request.ServerVariables("URL") & "?" & request.QueryString
nodo = req_nombre
if cacheCatalogo.setPagina("CATALOGO", url, nodo) then
pintarCodigoCentral = not cacheCatalogo.cargar
end if
end if
req_nombre = request("nombre")
req_hoja = request("hoja")
if pintarCodigoCentral then%>
<%'para poner las imágenes a la derecha%>
<%session(denominacion & "_tabla")=0
'##################### Saco los menus para los que tengo permiso de lectura ##############################
sql="select CodM,NombreM,DescripM,DescripcioncortaM,PadreM,NivelM,MenuOrden,MenuColumnas,MenuTamImagen,MenuTituloVisible,MenuTituloPosicion,MenuTituloAlineacion,MenuImagenVisible,MenuImagenAlineacion,MenuResumenVisible,MenuResumenAlineacion,MenuResumenPosicion,MenuNumPaginacion,MenuDerecha,Ima_Imagen,IMA_Texto_Alt,ima_sutipoimagen,DMPosicionamiento, rutaPosicionamiento, hoja from Menus LEFT JOIN imagenes on Menus.CodM=Imagenes.ima_sumenu where codM="&req_nombre& " and hco=0 "
if req_nombre<>"" then Set RsAtras = conn.AbrirRecordset(sql,3,3)
'COMPONGO LA SQL DE HIJOS DEL NODO MENU ACTUAL ---'Modificado por Nahikari 05/12/06
padreElementos = cint(req_nombre)
'para que con el menú horizontal no salgan los hijos cuando es primer nivel.
if padreElementos = raizMenus then
padreElementos = 0
end if
SQL = "SELECT codM, url, interna FROM Menus" &_
" WHERE visible AND"
if req_nombre<>"" then
SQL = SQL & " padreM=" & padreElementos
else
SQL = SQL & " padreM=-1"
end if
'SI TENGO QUE OCULTAR LOS PRIVADOS PONGO LA CONDICION
IF OcultarPrivados = 1 THEN
IF LCASE(session(denominacion & "_extranet"))="si" THEN
if RsAtras("Extranet") then
busquedaPor = "padreM"
else
busquedaPor = "codM"
end if
SQL=SQL & " AND (EXTRANET=0 OR (EXTRANET=-1 AND " & busquedaPor & " IN ("
SQL=SQL & " SELECT MEPE_SUMENU FROM MENUS_PERMISOS WHERE MEPE_SUTIPO=1 AND ((MEPE_SUUSUARIO=" & session(denominacion & "_codcolegiado") & " ) OR (MEPE_SUGRUPO IN (SELECT USG_SUGRUPO FROM USUARIOS_GRUPOS WHERE USG_SUUSUARIO=" & session(denominacion & "_codcolegiado") & ")))"
SQL=SQL & " )))"
ELSE
SQL=SQL & " AND EXTRANET=0"
END IF
END IF
if req_nombre<>"" and RsAtras("NivelM")>0 then
if RsAtras("MenuOrden")=false then
sql = sql & " order by fecha DESC "
else
sql = sql & " order by posicion "
end if
else
sql = sql & " order by posicion"
end if
Set registrosCatalogoCodigos = conn.AbrirRecordset(sql,3,3)
'#####################################################################################################
'*******************************
'PAGINACIÓN: alberto 01/03/2002
'CONTROL DE PAGINAS
'si existen más de 150 elementos obligamos a tener sólo 15 páginas
numRegistros = registrosCatalogoCodigos.recordcount
if numRegistros > 150 then
Tampag=numRegistros \ 15 'Variable para controlar el número de elementos que se muestran en cada página
else
numPaginacionMenu = rsAtras("MenuNumPaginacion")
if isnull(numPaginacionMenu) then
TamPag=numElementosPaginacion
else
'Por si acaso compruebo que no sea 0, en ese caso le pongo numElementosPaginacion
if numPaginacionMenu=0 then
TamPag=numElementosPaginacion
else
TamPag=numPaginacionMenu
end if
end if
end if
if not registrosCatalogoCodigos.EOF then
' NumPaginas denota el número de páginas que hay
' PosPagina lleva el número de pág en que estamos
registrosCatalogoCodigos.PageSize=tamPag
NumPaginas=registrosCatalogoCodigos.PageCount
if request("pagina")="" then
registrosCatalogoCodigos.AbsolutePage=1
PosPagina=1
else
registrosCatalogoCodigos.AbsolutePage=request("pagina")
PosPagina=request("pagina")
end if
end if
codigosCatalogo = "-1"
indElement = 0
codigosCatalogoImagenes = "-1"
do while not registrosCatalogoCodigos.eof and indElement < tamPag
codigosCatalogo = codigosCatalogo & "," & registrosCatalogoCodigos(0)
if registrosCatalogoCodigos("interna") then
urlInterna = registrosCatalogoCodigos("url")
codInterna = obtenerCodigo (urlInterna)
if isnumeric(codInterna) then
codigosCatalogoImagenes = codigosCatalogoImagenes & "," & codInterna
end if
end if
codigosCatalogoImagenes = codigosCatalogoImagenes & "," & registrosCatalogoCodigos(0)
registrosCatalogoCodigos.movenext
indElement = indElement + 1
loop
registrosCatalogoCodigos.cerrar
SQL="SELECT CodM,PadreM,url,hoja,nombreM,left(descripM,400) as descrip,descripcionCortaM,dmposicionamiento,comprable,imagenGrande,posicion,Autor,fecha,Usu_Nombre,Usu_Apellido1, precioM, iva, ponderacion, peso, interna, rutaPosicionamiento" &_
" from Menus left join users on Menus.Autor=Users.usu_codigo" &_
" WHERE codM IN (" & codigosCatalogo & ")"
if req_nombre<>"" and RsAtras("NivelM")>0 then
if RsAtras("MenuOrden")=false then
sql = sql & " order by MENUS.fecha DESC "
else
sql = sql & " order by MENUS.posicion "
end if
else
sql = sql & " order by posicion"
end if
Set registrosCatalogo = conn.AbrirRecordset(sql,3,3)
function EscribirCabeceraPaginacion()
end function
'fin paginación alberto
'**********************
'elimino la cabecera si vengo de la home
if desde_home = "" then
'CABECERA (antes de hacer el include se preparan los parámetros)
'Pintamos la imagen si corresponde
if rsAtras("ima_sutipoimagen")<>1 or isnull(rsAtras("ima_sutipoimagen")) then
imagen = rsAtras("ima_imagen")
altImagen = rsAtras("IMA_Texto_Alt")
else
imagen=""
altImagen = ""
end if
nombre = RsAtras("nombreM")
descripcion = RsAtras("DescripM")
if resaltar then
nombre = resaltador.convertir(nombre)
descripcion = resaltador.convertir(descripcion)
end if
nombre = UCASE(nombre)
if not isnull(descripcion) then descripcion = replace(descripcion,pathLocal,pathAbsoluto)
%>
<%else
response.write replace(RsAtras("DescripM"),pathLocal,pathAbsoluto)
end if%>
|
<%
if not registrosCatalogo.eof or req_hoja=1 then
'****************************************************************************
'****** COMIENZO DE LISTADO *************************************************
'****************************************************************************
%>
<%session(denominacion & "_padre")=req_nombre%>
<% a = 0 %>
<%
'ALBERTO: 20/05/2002
'Si nos piden presentar en 2 columnas creamos la tabla
if isnull(rsAtras("Menucolumnas")) or rsAtras("Menucolumnas") = 0 then
NumCol=1
else
NumCol = rsAtras("MenuColumnas")
end if
'Abrimos la tabla principal de columnas
%>
<%
Col=1 'COLUMNA ACTUAL
sql="select IMA_Imagen,Ima_texto_alt,ima_sutipoimagen, ima_sumenu " &_
" from Imagenes" &_
" WHERE ima_sumenu in (" & codigosCatalogoImagenes & ")" &_
" AND ima_sutipoimagen=1 or ima_sutipoimagen=3 or isnull(ima_sutipoimagen)" &_
" order by Ima_sutipoimagen, Ima_codigo"
Set rsImagen = conn.AbrirRecordset(sql,3,3)
sql="SELECT arc_codigo,Arc_Descripcion,Arc_Archivo,For_Icono, for_descripcion, arc_sumenu" &_
" FROM Archivos inner join formatos on Archivos.Arc_SuFormato=Formatos.for_codigo" &_
" WHERE arc_sumenu in (" & codigosCatalogo & ")"
set rsArchivos= conn.AbrirRecordset(sql,3,3)
while registro
<%'ponemos el campo fecha comprobando campo URL...
'HALLAMOS EL STRING DE HREF %>
<%if registrosCatalogo("url") <> "" then%>
<%if registrosCatalogo("interna") then%>
<%'Si el link es interno y ya tiene el parametro "nombre" no lo introducimos de nuevo. Esto nos
'sirve para linkar un submenú a otro submenú por ejemplo de otro idioma
'si el elemnto actual no tiene imágenes pintaremos las del elemento enlazado.
CodigoDelNodoInterno = obtenerCodigo(registrosCatalogo("url"))
if isnumeric(CodigoDelNodoInterno) then
'si no sabemos encontrar el elemento enlazado no vale la pena preguntar más...
sql = " SELECT top 1 ima_codigo FROM imagenes_web" &_
" WHERE ima_sumenu = " & CodigoDelNodo
set rsTieneImagenes = Conn.abrirRecordset(sql,3,3)
if rsTieneImagenes.eof then
'no tiene imágenes, nos quedamos con las del elemento enlazado.
CodigoDelNodoImagen = CodigoDelNodoInterno
end if
rsTieneImagenes.cerrar
end if
if instr(lcase(registrosCatalogo("url")),"")=0 then
enlaceNodo = "&nodo=" & request("nodo")
else
enlaceNodo = ""
end if
if instr(1,lcase(registrosCatalogo("url")),"nombre=")=0 then
'Si es una URL interna puede que estemos llamando con parámetros.
if instr(1,registrosCatalogo("url"),"?")>0 then%>
<%miurl=""%>
<%else%>
<%miurl=""%>
<%end if%>
<%else%>
<%miurl=""%>
<%end if%>
<%else%>
<%miurl=""%>
<%end if%>
<%else
'al no tener pongo el texto con el link a buspre%>
<%if registrosCatalogo("Hoja")=false then%>
<%miurl=""%>
<%else
'si es b2b tiene que estar registrado. Iñaki 23/5/05
if esTienda = 1 and registrosCatalogo("comprable") = True and (TipoTienda>1 OR session(denominacion & "_extranet")="si") then%>
<%miurl=""%>
<%else%>
<%miurl=""%>
<%end if
end if%>
<%end if
rsImagen.filter="ima_sumenu=" & CodigoDelNodoImagen
'Inicio tabla principal de un REGISTRO Alberto 3/7/06%>
<%if rsAtras("MenuTituloPosicion")=1 then
PintarTitulo
end if%>
<%if rsAtras("MenuResumenPosicion")=1 then
PintarResumen
end if%>
|
width="100%"<%end if%>>
<%if rsAtras("MenuTituloPosicion")=2 then
PintarTitulo
end if%>
<%if rsAtras("MenuResumenPosicion")=2 then
PintarResumen
end if%>
|
<%PintarImagen%>
|
width="100%"<%end if%>>
<%if rsAtras("MenuTituloPosicion")=3 or isnull(rsAtras("MenuTituloPosicion")) then
PintarTitulo
end if%>
<%if rsAtras("MenuResumenPosicion")=3 or isnull(rsAtras("MenuResumenPosicion")) then
PintarResumen
end if%>
|
<%if rsAtras("MenuTituloPosicion")=4 then
PintarTitulo
end if%>
<%if rsAtras("MenuResumenPosicion")=4 then
PintarResumen
end if%>
|
<%'A partir de aquí añadimos archvios adjuntos, publicador y temas de tienda%>
<%
'########################### MODIFICADO ALBERTO 31/05/2006
'si el nodo es ELEMENTO FINAL pinto su CREADOR y los ARCHIVOS ADJUNTOS que tenga
'Si es menú no hago nada, ya que no puede tener creador ni archivos adjuntos
'PINTAMOS la fecha de publicacion
if registrosCatalogo("hoja")=1 then%>
<%
'########################### MODIFICADO IVAN '11-12-2003
micadenatmp=""
rsArchivos.filter = "arc_sumenu=" & registrosCatalogo("CodM")
if not rsArchivos.EOF then
if registrosCatalogo("autor")<>"-1" then
micadenatmp=micadenatmp & ": "
end if
if rsArchivos.recordCount=1 then 'un archivo. Enlace al archivo
micadenatmp=micadenatmp & ""
micadenatmp=micadenatmp & rsarchivos("arc_descripcion") & " "
else 'Mas de un archivo. Enlace a buspre
micadenatmp=micadenatmp & miUrl & ""
end if
end if
'########################### FIN MODIFICADO IVAN '11-12-2003
if registrosCatalogo("autor")<>"-1" then%>
ID="Table9">
|
<%=registrosCatalogo("usu_nombre") & " " & registrosCatalogo("usu_apellido1")%>
[<%=escribir_Fecha_Simple(registrosCatalogo("Fecha"))%>]
<%=micadenatmp%>
|
|
<%else
if micadenatmp<>"" then%>
ID="Table11">
|
<%=micadenatmp%> |
|
<%end if%>
<%end if%>
|
<%end if 'Pinto AUTOR y ARCHIVOS si es elemento final%>
<%'PINTAMOS EL PRECIO
'############# MODIFICADO IÑIGO 30-12-2002 ###########
'if esTienda = 1 and registrosCatalogo("comprable") = True and trim("" & registrosCatalogo("url")) = "" and ConCaracteristicas = 0 then
'####### modificado por Iñaki 23/5/05 Si el tipo tienda es b2b debe estar registrado
'PINTAMOS los aspectos de la tienda
if esTienda = 1 and (TipoTienda>1 OR session(denominacion & "_extranet")="si") and registrosCatalogo("comprable") = True and trim("" & registrosCatalogo("url")) = "" then
if ivaIncluido = 1 then
aumentadorIva = (registrosCatalogo("iva")/100)+1
textoIva = traducir(985)
else
aumentadorIva = 1
textoIva = traducir(845)
end if
%>
<%end if%>
<%'FIN tabla principal de un REGISTRO Alberto 3/7/06%>
|
<%
elem=Cint(CodigoDelNodo)
' end if 'ControlPublicacion
'############# COMENTADO IVAN 6/10/2004. NO SE USA EL CONTROL DE PUBLICACION Y LA RÉPLICA ###########
' if restablecerDatos then
'Restablecemos los datos del nodo
' registrosCatalogo("url") = copiaUrl
' registrosCatalogo("interna") = copiaInterna
' registrosCatalogo("nombreM") = copiaNombreM
' registrosCatalogo("Fecha") = copiaFecha
' registrosCatalogo("Hoja") = copiaHoja
' registrosCatalogo("comprable") = copiaComprable
' registrosCatalogo("precioM") = copiaPrecioM
' registrosCatalogo("ponderacion") = copiaPonderacion
' registrosCatalogo("descripM") = copiaDescripM
' registrosCatalogo("DescripcionCortaM") = copiaDescripcionCortaM
'end if
registro=registro+1
registrosCatalogo.movenext()
'ALBERTO 20/05/2002
'Creo las columnas
if Col=NumCol and not registrosCatalogo.eof then
Col=1 'AUMENTAMOS EL NUMERO DE COLUMNAS PINTADAS%>
|
<%else
Col=Col+1
end if
if registrosCatalogo.eof then
Col=Col-1
For ContadorColumnas=Col to NumCol-1
%>
<%
next
else
%>
|
<%
end if
wend
rsImagen.cerrar()
rsArchivos.Cerrar
set rsImagen=nothing
set rsArchivos=nothing
'ALBERTO 20/05/2002
'Cerramos la tabla principal de columnas
%>
|
<%
Atras= RsAtras("padreM")
%>
<%end if 'fin de la condición registrosCatalogo.eof
registrosCatalogo.Cerrar ()
set registrosCatalogo=nothing
'Antes de cerrar el cursor hallo si necesito presentar el menú derecho o no
MenuDerecha=rsAtras("MenuDerecha")
RsAtras.cerrar()
set RsAtras=nothing
%>
|
<%end if 'pintarCodigoCentral%>
|
<%if catalogoVariasImagenes = 1 then
sql = "SELECT ima_imagen, ima_descripcion, ima_texto_alt FROM imagenes_web WHERE ima_sutipoimagen>1 AND Ima_sumenu = " & nodoActual
set imagenesCatalogo = Conn.abrirRecordset(sql, 3, 3)
if not imagenesCatalogo.eof then%>
<%do while not imagenesCatalogo.eof
if tamano(server.mappath(nivelBD & "modulos/usuariosFtp/conexion/" & imagenesCatalogo("ima_imagen")),alto,ancho) then
%>
&varalt=<%=replace(replace(imagenesCatalogo("ima_texto_alt"),"""","""),"&","&")%>" target="_blank" onclick="openPicture('<%=nivelBD%>modulos/usuariosFtp/conexion/<%=replace(imagenesCatalogo("ima_imagen")," ","%20")%>',<%=ancho%>,<%=alto%>,'<%=replace(replace(imagenesCatalogo("ima_texto_alt"),"""","""),"'","\'")%>','15','15');">
<%=thumbnail("modulos/usuariosFtp/conexion/" & imagenesCatalogo("ima_imagen"),catalogoAnchoImagenes,0, imagenesCatalogo("ima_texto_alt"))%>
<%if catalogoDescripcionImagenes > 0 then%>
<%=imagenesCatalogo("ima_descripcion")%>
<%end if%>
<%
end if
imagenesCatalogo.movenext
loop%>
|
<%end if
imagenesCatalogo.cerrar
%>
<%end if%>
|