<%@ Language=VBScript %>
<%option explicit%>
<%
'Main
dim idEdicao
dim sModel
dim texto
dim ano
'Modelo
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
'texto introdutório
texto= "Arquivo
"
texto = texto & "Consulte as edições em arquivo clicando na respectiva data de publicação.
"
texto = texto & "Se desejar encontrar determinado artigo arquivado pode também utilizar a nossa pesquisa avançada.
"
ano = 2005
sModel = replace(sModel, c_Noticias_Marca, texto & c_Noticias_Marca)
sModel = replace(sModel, c_Noticias_Marca, ShowCabecalho(ano) & showEdicaoArquivoMultiplas(ano))
'Edicão
idEdicao = getEdicaoActual()
' validacoes
sModel = replace(sModel, c_FichJavaScript_Marca, "")
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, "Arquivo", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0)
Response.Write sModel
%>