<%@ Language=VBScript %> <%nivel=0%> <%=Titulo%>
<% set miTienda = new tienda miTienda.setUsuario session(denominacion & "_codcolegiado") precioBase = miTienda.getPrecio(request("Cod")) sqlMenu="select * from Menus Left join usuarios on Menus.Autor=Usuarios.usu_codigo where codM=" & request("Cod") & " order by posicion" Set rsMenu = conn.AbrirRecordset(sqlMenu,3,3) padre=rsMenu("padreM") %> <%if espacio_cabecera then response.Write "
"%>
<%'Hallamos las imágenes asociadas al nodo terminal ' sqlImagenes="select * from Imagenes_web where IMA_SUMENU=" & request("Cod") ' sqlImagenes=sqlImagenes & " and ucase(right(IMA_IMAGEN,3))<>'SWF'" ' sqlImagenes=sqlImagenes & " order by ima_codigo " 'Modificado Alberto 11/07/2006 sqlImagenes="select * from imagenes_web where (ima_sutipoimagen<>1 or isnull(ima_sutipoimagen)) and IMA_SUMENU=" & request("Cod") sqlImagenes=sqlImagenes & " order by ima_codigo " Set rsImagenes = conn.AbrirRecordset(sqlImagenes,3,3) NumImagenes=rsImagenes.RecordCount 'Modificado Alberto: 'Seleccionamos la imagen asociada al menu de la tabla IMAGENES sql="select * from Menus LEFT JOIN imagenes_web on Menus.CodM=imagenes_web.ima_sumenu where codM="&request("Nombre")& "and hco=0 " Set RsAtras = conn.AbrirRecordset(sql,3,3) 'CABECERA (antes de hacer el include se preparan los parámetros) 'imagen = "" nombre = UCASE(RsAtras("nombreM")) 'descripcion = ""%> <%RsAtras.cerrar()%> <%'Si el nodo elemento tiene la característica de la 1ª foto grande if rsMenu("ImagenGrande")=-1 then%> <%end if%>
<%if not rsImagenes.EOF then if gfxspex(server.mappath (nivelBD&"modulos/usuariosFtp/conexion/" & rsimagenes("ima_imagen")), width, height, depth, strimagetype) then 'si es de tipo imagen 'Si la foto es muy grande, vamos a limitarla para que no se desencuadre la página if width > 460 then limitar = "Width=460" Else limitar = "" End if end if%> <%if Pintarfotoderecha(rsMenu("descripM"),rsImagenes("IMA_IMAGEN"))=0 then'la foto no esta incluida%> " border="0" src="<%=nivelbd%>modulos/usuariosFtp/conexion/<%=rsimagenes("ima_imagen")%>" <%=limitar%> alt="<%=rsimagenes("ima_texto_alt")%>">
<%end if%> <%end if%>
<%if not rsImagenes.EOF then%> <%if Pintarfotoderecha(rsMenu("descripM"),rsImagenes("IMA_IMAGEN"))=0 then'la foto no esta incluida%> <%if tamano(server.mappath(nivelBD&"modulos/usuariosFtp/conexion/" & rsimagenes("ima_imagen")),alto,ancho) then%> " alt="imagen" onclick="openpicture('<%=nivelbd%>modulos/usuariosFtp/conexion/<%=rsimagenes("ima_imagen")%>',<%=ancho%>,<%=alto%>,'<%=rsimagenes("ima_descripcion")%>','15','15'); return false;"> <%=rsImagenes("ima_Descripcion")%>          <%end if%> <%end if%>

<%rsImagenes.MoveNext 'Pasamos ya a la segunda imagen end if%>
<% 'Alberto.- 26/2/2007 'Añadimos los módulos insertados en la descripción del elemento. buscamos [* y recogemos el string hasta el *] 'FIN: cuando no existe "[*" SustitucionModulosHome(rsMenu("descripM"))%>
  <% if esTienda = 1 and rsMenu("comprable") = True then 'Si es tienda y es un elemento comprable, ponemos su precio. %>
<% if ivaIncluido = 1 then aumentadorIva = (rsMenu("iva")/100)+1 textoIva = traducir(985) else aumentadorIva = 1 textoIva = traducir(845) end if if session(denominacion & "_extranet") = "si" then pvp = aplicardescuento(preciobase,session(denominacion & "_descuento"),rsmenu("ponderacion")) response.Write Traducir(800) & " " & preciobase & " €" response.Write " " & formatnumber(pvp*aumentadorIva,2,true,true,true) & " € (" & textoIva & ")" else pvp = preciobase response.Write Traducir(800) & " " & formatnumber(pvp*aumentadorIva,2,true,true,true) & " € (" & textoIva & ")" end if %>
<%end if 'esTienda = 1%>
<%while (not rsImagenes.eof) and (rsMenu("ImagenGrande")<1)%> <%if Pintarfotoderecha(rsMenu("descripM"),rsImagenes("IMA_IMAGEN"))=0 then'la foto no esta incluida%> <%if tamano(server.mappath(nivelBD&"modulos/usuariosFtp/conexion/" & rsimagenes("ima_imagen")),alto,ancho) then%> " alt="imagen" onclick="openpicture('<%=nivelbd%>modulos/usuariosFtp/conexion/<%=rsimagenes("ima_imagen")%>',<%=ancho%>,<%=alto%>,'<%=rsimagenes("ima_descripcion")%>','15','15'); return false;"> " border="0" width="75" src="<%=nivelbd%>modulos/usuariosFtp/conexion/<%=rsimagenes("ima_imagen")%>" alt="<%=rsimagenes("ima_texto_alt")%>">
<%=rsImagenes("ima_descripcion")%>
<%end if%> <%end if%>

<%rsImagenes.MoveNext wend%>
<%if rsMenu("ImagenGrande")>0 then %> <%end if%> <% sqlArchivos="select * from Archivos inner join formatos on Archivos.Arc_SuFormato=Formatos.for_codigo where arc_sumenu=" & request("Cod") Set rsArchivos = conn.AbrirRecordset(sqlArchivos,3,3) if not rsArchivos.eof then%>
<%=Traducir(556)%>
  <%while not rsArchivos.EOF%>
" alt="archivo"> <%=ucase(rsArchivos("ARC_DESCRIPCION"))%> " alt="icono"> [ <% set con_FSO = createObject("scripting.filesystemobject") set fich = con_fso.getfile (strlocal & "modulos/usuariosFtp/conexion/" & rsarchivos("for_icono")) response.Write (fich.Size) %> ]

<%rsArchivos.MoveNext %> <%wend rsArchivos.cerrar()%>
<%end if%> <%if rsMenu("usu_nombre")<>"" then%>

<%=Traducir(557)%> <%=rsMenu("usu_nombre") & " " & rsMenu("usu_apellido1")%>  [<%=escribir_Fecha_Simple(rsMenu("Fecha"))%>]
<%end if%>