Política sobre cookies

Utilizamos cookies propias y de terceros, así como los datos de la conexión del usuario para identificarle. Estas cookies serán utilizadas con la finalidad de gestionar el portal, recabar información sobre la utilización del mismo, mejorar nuestros servicios y mostrarte publicidad personalizada relacionada con tus preferencias en base a un perfil elaborado a partir de tus hábitos y el análisis de tu navegación (por ejemplo, páginas visitadas, consultas realizadas o links visitados).

Puedes configurar o rechazar la utilización de cookies haciendo click en "Configuración e información" o si deseas obtener información detallada sobre cómo utilizamos las cookies, o conocer cómo deshabilitarlas.

Configuración e información Ver Política de Cookies

Buscar Productos

 NOTICIAS DE INTERÉS  

<%=titulo%>

<%=autor%> / <%=fechaescrita%>
<%=desc_imagen%>

<%=resumen%>

<% end if consulta_noticias.close idpral = id_noticia 'izquierda idizq = 0 set consulta_noticias = Server.CreateObject("ADODB.Recordset") sql = "select TOP 1 n.id_noticia, n.fecha , n.autor, n.fechaescrita, n.tipo_not,t."&tra_idi(idioma)&" as titulo,c."&tra_idi(idioma)&" as contenido,c.resumen_"&tra_idi(idioma)&" as resumen from Noticia n inner join tituloNoticia t on n.id_noticia=t.id_noticia "&_ "inner join contenidoNoticia c on n.id_noticia=c.id_noticia "&_ "where n.tipo_not='I' order by fecha desc" consulta_noticias.open sql, BD if not consulta_noticias.eof then id_noticia = consulta_noticias("id_noticia") autor = trim(consulta_noticias("autor")) fechaescrita = trim(consulta_noticias("fechaescrita")) tipo_not = trim(consulta_noticias("tipo_not")) titulo = trim(consulta_noticias("titulo")) contenido = trim(consulta_noticias("contenido")) resumen = trim(consulta_noticias("resumen")) ' Imagen set stmt = Server.CreateObject("ADODB.Recordset") sql = "select nombre_fichero, descripcion "&_ "from imagenNoticia "&_ "where id_noticia = "&id_noticia stmt.open sql, BD if not stmt.eof then imagen = stmt("nombre_fichero") desc_imagen = stmt("descripcion") end if stmt.close %>
<%=desc_imagen%>

<%=titulo%>

<%=autor%> / <%=fechaescrita%>

<%=resumen%>

<% end if consulta_noticias.close idizq = id_noticia %>
<% 'derecha iddere = 0 set consulta_noticias = Server.CreateObject("ADODB.Recordset") sql = "select TOP 1 n.id_noticia, n.fecha , n.autor, n.fechaescrita, n.tipo_not,t."&tra_idi(idioma)&" as titulo,c."&tra_idi(idioma)&" as contenido,c.resumen_"&tra_idi(idioma)&" as resumen from Noticia n inner join tituloNoticia t on n.id_noticia=t.id_noticia "&_ "inner join contenidoNoticia c on n.id_noticia=c.id_noticia "&_ "where n.tipo_not='D' order by fecha desc" consulta_noticias.open sql, BD if not consulta_noticias.eof then id_noticia = consulta_noticias("id_noticia") autor = trim(consulta_noticias("autor")) fechaescrita = trim(consulta_noticias("fechaescrita")) tipo_not = trim(consulta_noticias("tipo_not")) titulo = trim(consulta_noticias("titulo")) contenido = trim(consulta_noticias("contenido")) resumen = trim(consulta_noticias("resumen")) ' Imagen set stmt = Server.CreateObject("ADODB.Recordset") sql = "select nombre_fichero, descripcion "&_ "from imagenNoticia "&_ "where id_noticia = "&id_noticia stmt.open sql, BD if not stmt.eof then imagen = stmt("nombre_fichero") desc_imagen = stmt("descripcion") end if stmt.close %>
<%=desc_imagen%>

<%=titulo%>

<%=autor%> / <%=fechaescrita%>

<%=resumen%>

<% end if consulta_noticias.close iddere = id_noticia %>
<% set consulta_noticias = Server.CreateObject("ADODB.Recordset") sql = "select n.id_noticia, n.fecha , n.autor, n.fechaescrita, n.tipo_not,t."&tra_idi(idioma)&" as titulo,c."&tra_idi(idioma)&" as contenido,c.resumen_"&tra_idi(idioma)&" as resumen from Noticia n inner join tituloNoticia t on n.id_noticia=t.id_noticia "&_ "inner join contenidoNoticia c on n.id_noticia=c.id_noticia "&_ "where (n.id_noticia<>"&idpral&" AND n.id_noticia<>"&idizq&" AND n.id_noticia <>"&iddere&") order by fecha desc" consulta_noticias.open sql, BD do while not consulta_noticias.eof id_noticia = consulta_noticias("id_noticia") autor = trim(consulta_noticias("autor")) fechaescrita = trim(consulta_noticias("fechaescrita")) tipo_not = trim(consulta_noticias("tipo_not")) titulo = trim(consulta_noticias("titulo")) contenido = trim(consulta_noticias("contenido")) resumen = trim(consulta_noticias("resumen")) ' Imagen set stmt = Server.CreateObject("ADODB.Recordset") sql = "select nombre_fichero, descripcion "&_ "from imagenNoticia "&_ "where id_noticia = "&id_noticia stmt.open sql, BD if not stmt.eof then imagen = stmt("nombre_fichero") desc_imagen = stmt("descripcion") end if stmt.close %>

<%=titulo%>

<%=autor%> / <%=fechaescrita%>
<%=desc_imagen%>

<%=resumen%>

<% consulta_noticias.movenext loop consulta_noticias.close %>