<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% id = request.querystring("id") sql = "UPDATE Noticias SET NumLeido = NumLeido + 1 WHERE Noticias.idNoticia = "& id connOpen conn conn.Execute(sql) connClose conn sql = "SELECT Noticias.idNoticia, Noticias.Fecha, Noticias.Titular, Noticias.Noticia, Noticias.Fuente, NoticiasCategorias.NoticiaCategoria, Noticias.Foto FROM Noticias INNER JOIN NoticiasCategorias ON NoticiasCategorias.idNoticiaCategoria = Noticias.idNoticiaCategoria WHERE Noticias.OK = 1 AND Noticias.idNoticia = "& id &" ORDER BY Noticias.Fecha" idNoticia = 0 Fecha = 1 Titular = 2 Noticia = 3 Fuente = 4 NoticiaCategoria = 5 Foto = 6 connOpen conn set rsProductos = conn.Execute(sql) if not rsProductos.EOF then ArrProductos = rsProductos.GetRows consulta = true else consulta = false end if rsProductos.close set rsProductos = nothing connClose conn if consulta = true then google_title = ArrProductos(Titular,0) else google_title = "los mejores seguros" end if %> <% Response.Write(google_title) %> -  <% 'miramos si tiene foto para poner la etiqueta que nos permite que funcionen las fotos grandes en Facebook if consulta = true then if ArrProductos(Foto,0) <> "" then %> <% end if end if %>

Noticias

En este apartado podrás encontrar las últimas noticias del mundo de los seguros.

<%if consulta = true then%>
<% social_url = "http://"& Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") &"?"& Request.ServerVariables("Query_String") %>

<%=ArrProductos(Titular,i)%>

<%if ArrProductos(Foto,i) <> "" then%> <%=ArrProductos(Titular,i)%>

<%end if%> <%=ArrProductos(Fecha,i)%> - <%=ArrProductos(NoticiaCategoria,i)%>
<%=FormatStr(ArrProductos(Noticia,i))%>

<%if ArrProductos(Fuente,i) <> "" then %> Fuente: <%=ArrProductos(Fuente,i)%> <%end if %> <%end if%>

volver