<%
LISTA = ""
CODIGO = trim(request("codigo"))
if CODIGO <> "" and not isNull(CODIGO) then
LISTA = "select * from cedae where ID_CEDAE = " & CODIGO
else
LISTA = "select * from cedae order by DATA DESC LIMIT 1"
end if
set rsCEDAE = Conexao.execute(LISTA)
if not rsCEDAE.EOF then
response.Write "
" %>
<%
response.write "
<%
set rsAnexo = Conexao.execute("select * from cedae_anexo where ID_CEDAE = " & rsCEDAE("ID_CEDAE"))
if (trim(rsCEDAE("LINK")) <> "" and not isNull(rsCEDAE("LINK"))) or (not rsAnexo.eof) then
%>
<%
btPDF = ""
while not rsAnexo.eof
%>
<%
end if
%>
<%
end if
rsAnexo.close
rsCEDAE.close
%>
" & FormataDataImpressao(rsCEDAE("DATA")) & " - " & Left(Server.HtmlEncode(rsCEDAE("TITULO")),49) & "
" %>
<%
response.write "" & Server.HtmlEncode(rsCEDAE("TITULO")) & "
" response.write "" & cabecalho & replace(rsCEDAE("TEXTO"),vbcr,"
") & "
',target='_blank');"> |
" target="_blank" class="tit2"><%=Server.HtmlEncode(rsAnexo("NOME_ARQUIVO"))%> | |
',target='_blank');"> |
" target="_blank" class="tit2"> LINK DE REFERÊNCIA | |