<%@ Language=VBScript %>
<%option explicit%>
<!--#INCLUDE FILE = "../settings/connect_inc.asp"-->
<!--#INCLUDE FILE = "../settings/settingsjornal_inc.asp"-->

<!--#INCLUDE FILE = "../permissao/validpage_inc.asp"-->

<!--#INCLUDE VIRTUAL = "/library/utils_inc.asp"-->
<!--#INCLUDE VIRTUAL = "/library/visual_jorn_inc.asp" -->

<!--#INCLUDE VIRTUAL = "/library/file_inc.asp" -->

<!--#INCLUDE VIRTUAL = "/library/xml_inc.asp"-->

<!--#INCLUDE VIRTUAL = "/library/marcas_inc.asp"-->
<!--#INCLUDE VIRTUAL = "/library/edicao_inc.asp"-->

<!--#INCLUDE VIRTUAL = "/library/breakingnews/breankingnews_inc.asp"-->

<!--#INCLUDE VIRTUAL = "/library/contador_inc.asp"-->

<%

dim idnew
dim sModel
dim Titulo
dim IdEdicao
dim buffer

'Parameters
idnew = Request.QueryString("id")

' modelo
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")

' noticias
buffer = getlinkclass("Última Hora", "index.asp", "seccao")

buffer = buffer & showUHByIDXML(idnew, Titulo)

sModel = replace (sModel,c_Noticias_Marca, buffer)

'Edicão
idEdicao	= getEdicaoActual()

' dados existentes em todas as paginas
call ShowDadosPagina(sModel,   " Última Hora - " & Titulo , IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0)


Response.Write sModel

if  cCommon.ContadorUHNoticia = "true" then
		call AddContadorNot(idNew, 2)
end if 

%>