<%
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%>
<%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%>
|
<%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%>
<%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%>
|