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