<% ' colocar home secao para trazer banners set rshomesecao = server.CreateObject("adodb.Recordset") rshomesecao.open "select * from cad_secoes where nome_secao = 'Home Page'", Conexao if not rshomesecao.eof then Session("secao_banner") = rshomesecao("id_secao") rshomesecao.close set rshomesecao = nothing vet_destaques = array() redim vet_destaques(0) %> Correio do Litoral
 
 
 

Caro leitor

A partir de 15 de Julho de 2005, a Empresa Jornalística Correio do Litoral
encerrou suas atividades por tempo indeterminado.

Atenciosamente

A Direção
 
<% Function quebralinha(texto) texto2 = Replace(texto,Chr(13), "
") quebralinha = texto2 End Function %>