%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
id = Request("id")
if id = "" then
Response.Redirect("default.asp")
end if
%>
PORTAL DE AUDITORIA | Notícias
<%sql = "SELECT titulo, subtitulo, texto, dataNoticia FROM noticia where publicada=true and idNoticia=" & id
set rs = conSQL.Execute(sql)
if rs.EOF then%>
Nenhuma notícia encontrada!
<%else
titulo = trim(rs(0))
subtitulo = trim(rs(1))
texto = trim(rs(2))
dataDia = day(rs(3))
if len(dataDia)<2 then
dataDia = "0" & dataDia
end if
dataMes = month(rs(3))
if len(dataMes)<2 then
dataMes = "0" & dataMes
end if
data = dataDia&"/"&dataMes&"/"&year(rs(3))%>