<%@LANGUAGE="VBScript.Encode" CODEPAGE="1252"%>
<%
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM NOTICIA ORDER BY COD_NOTICIA DESC", connString, 2, 3
Set rs_parametro = Server.CreateObject("adodb.recordset")
rs_parametro.Open "SELECT NM1_PARAMETRO, NM2_PARAMETRO, NM3_PARAMETRO FROM PARAMETRO WHERE SIG_PARAMETRO = 'SI' AND GRU_PARAMETRO = '001' AND NUM_PARAMETRO = 'NOTICIA'",connString, 2, 3
if not rs_parametro.eof then
cor_fundo = rs_parametro("NM1_PARAMETRO")
cor_fonte = rs_parametro("NM2_PARAMETRO")
else
cor_fundo = "#FFFFFF"
cor_fonte = "#000000"
end if
%>
Notícias
