<%@ Language=VBScript %> <%nivel=0%> <%Function PintarImagen Select case rsAtras("MenuImagenAlineacion") case 1 ImagenAlineacion="Left" case 2 ImagenAlineacion="Center" case 3 ImagenAlineacion="Right" case else ImagenAlineacion="Left" end select 'PINTAMOS LA IMAGEN SI menuImagenVisible=1 'TB PINTAMOS EL TÍTULO SI NO TIENE IMAGEN if not rsImagen.eof and (rsAtras("menuImagenVisible")<=1 or isnull(rsAtras("menuImagenVisible"))) then if not isnull(rsImagen("ima_imagen")) then if rsImagen("ima_imagen")<>"" then if ucase(right(rsImagen("ima_imagen"),3)) <> "SWF" then if isnull(rsAtras("MenuTamImagen")) then TamanoImagen=90 else TamanoImagen=rsAtras("MenuTamImagen") end if %>
<%=miurl%><%=thumbnail("modulos/usuariosFtp/conexion/" & rsImagen("ima_imagen"),TamanoImagen,0,replace(rsImagen("ima_texto_alt")&"","""","""))%>
<%end if end if end if end if End function%> <%function PintarTitulo%> <%Select case rsAtras("MenuTituloAlineacion") case 1 TituloAlineacion="Left" case 2 TituloAlineacion="Center" case 3 TituloAlineacion="Right" case 4 TituloAlineacion="justify" case else TituloAlineacion="Left" end select %>
<%'PINTAMOS EL TÍTULO%> <%'Pintamos el título si MenuTituloVisible=1 if rsAtras("MenuTituloVisible")<=1 or isnull(rsAtras("MenuTituloVisible"))then%> <%=miurl%>   <%=registroscatalogo("nombrem")%> <%end if%> <%'PINTAMOS la fecha de publicacion %> <%if not RsAtras("MenuOrden") and RsAtras("NivelM")>0 then%> [<%=escribir_Fecha_Simple(registrosCatalogo("Fecha"))%>] <%end if%>
<%end function%> <%function PintarResumen%> <%Select case rsAtras("MenuResumenAlineacion") case 1 ResumenAlineacion="Left" case 2 ResumenAlineacion="Center" case 3 ResumenAlineacion="Right" case 4 ResumenAlineacion="Left" case else ResumenAlineacion="justify" end select %> <%'PINTAMOS LA DESCRIPCION si menuResumenVisible=1 if rsAtras("MenuResumenVisible")=1 or isnull(rsAtras("MenuResumenVisible")) then%>
<%'MODIFICADO PARA LAS DESCRIPCIONES CORTAS -- IVAN 17-12-2003 if trim(registrosCatalogo("DescripcionCortaM"))<>"" then 'Si hay descripción corta, la pinto Response.Write registrosCatalogo("DescripcionCortaM") else 'Pinto los primeros 200 caracteres de la descripción descripcionNodo = registrosCatalogo("Descrip") Response.Write CortarTexto(descripcionNodo,200) end if %>
<%end if%> <%End function%> <% set miTienda = new tienda miTienda.setUsuario session(denominacion & "_codcolegiado") %> <%=Titulo%>
<%'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%> <%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%> <%end if imagenesCatalogo.cerrar %> <%end if%>
<%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">
  publicar <%=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 %> <% sql = "SELECT top 1 MENUCARACVAL_SUCARACVAL FROM MENUS_CARACTERISTICAS_VALORES WHERE MENUCARACVAL_SUMENU = " & registroscatalogo("codm") Set rsCarac = conn.AbrirRecordset(sql,3,3) tieneCarac = not rsCarac.eof rsCarac.cerrar if tieneCarac then anchoCompra = "15px" else anchoCompra = "72px" end if %>
" method="post" action="modulos/tienda/alta.asp?nombre=<%=req_nombre%>&codm=<%=request("codm")%>" onsubmit="javascript:return verificar('fcompra<%=registroscatalogo("codm")%>');" id="fcompra"> <% precioBase = miTienda.getPrecio(registroscatalogo("codm")) precioConCar = miTienda.getPrecioConCaracteristicas(registroscatalogo("codm")) precioConCarSinDescuento = miTienda.getPrecioConCaracteristicasSinDescuento(registroscatalogo("codm")) if session(denominacion & "_extranet") = "si" and conPonderacion=1 then pvp = aplicardescuento(precioBase,session(denominacion & "_descuento"),registrosCatalogo("ponderacion"))%>  > <%if cdbl(precioConCarSinDescuento) > aplicardescuento(precioConCar,session(denominacion & "_descuento"),registrosCatalogo("ponderacion")) then%> <%=formatnumber(precioConCarSinDescuento,2,true)%>  € <%end if%> <%response.write " " & formatnumber(aplicardescuento(precioConCar,session(denominacion & "_descuento"),registrosCatalogo("ponderacion")) * aumentadorIva,2,true)%>  € (<%=textoIva%>) <%else pvp = precioBase %> > <%=formatnumber(precioConCar * aumentadorIva,2,true)%>  € (<%=textoIva%>) <%end if%>
<%if tieneCarac then%> <%=miUrl%> <%=traducir(802)%> <%else%> ');"><%=traducir(988)%>');"><%=traducir(989)%> <%end if%> " ID="Hidden1"> " ID="Hidden2"> " ID="Hidden4"> " ID="Hidden5">
<%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%>
<%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%>