<%@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%> <%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))%> <%if subtitulo <> "" then%> <%end if%> <%end if%>

Nenhuma notícia encontrada!
<%=data%> - <%=titulo%>
<%=replace(subtitulo,chr(10),"
")%>
 
<%=replace(texto,chr(10),"
")%>



<% set conSQL=nothing Set rs = Nothing %>