<%@ 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 = 2006 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 %>