<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% revista = request.QueryString("revista") if revista = "" then sql = "SELECT * FROM adm_revista WHERE publicar = 1 ORDER BY str_to_date(data_cad,'%Y-%m-%d') DESC limit 1;" else sql = "SELECT * FROM adm_revista WHERE cod_revista="& revista &" and publicar = 1 ORDER BY str_to_date(data_cad,'%Y-%m-%d') DESC limit 1;" end if Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn cod_revista = RS("cod_revista") data_cad = RS("data_cad") ano = RS("ano") periodo = RS("periodo") numero = RS("numero") titulo = RS("titulo") resumo = RS("resumo") arquivo = RS("arquivo") Rs.close Set RS = nothing cod = request.QueryString("cod") sql = "SELECT * FROM adm_conteudo WHERE cod_conteudo = "& cod &"" Set RS = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn arr_palavra_chave = RS("palavra_chave") titulo_artigo = rs("titulo") %> <%= titulo_artigo %> - Artigos - Revista OQ - Observatorio Quilombola

Artigos

<%if RS("UF") <> "" then%> <%= RS("UF")%> - <%end if%> <%= titulo_artigo %>

<% fonte = RS("fonte") autor = RS("autor") if fonte <> "" or autor <> "" then %> <% if fonte <> "" then %>
<%= fonte %> <% end if %> <% if autor <> "" then %>
<%= autor %> <% end if %> <% end if %>

<%= rs("data_cad")%> <% url = rs("url") if url <> "" then%>

<% end if%>

<%= rs("conteudo")%>

<% autor_resumo = rs("autor_resumo") if autor_resumo <> "" then%>

<%= autor %> - <%= autor_resumo %>

<% end if%> <% videos = rs("videos") if videos <> "" then%>

<%= videos %>

<% end if %>

<% Rs.close Set RS = nothing %>