<%@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 %> OQ - Observatorio Quilombola - Revista OQ

Índice

Editorial

<%= Resumo %> | Leia Mais



Artigos

<% ssql = "SELECT cod_conteudo,titulo,resumo FROM adm_conteudo WHERE publicar = 1 and revista = "& cod_revista &" ORDER BY str_to_date(data_cad,'%Y-%m-%d') DESC, cod_conteudo DESC;" Set RsS = Server.CreateObject("ADODB.RecordSet") RsS.open ssql, conn while not RsS.EOF titulo = RsS("titulo") resumo = RsS("resumo") cod_conteudo = RsS("cod_conteudo") %>

<%= titulo %>
<%= resumo %>

<% Rss.movenext wend Rss.close Set Rss = nothing %>