<%
sql = "SELECT * FROM adm_revista WHERE publicar = 1 ORDER BY str_to_date(data_cad,'%Y-%m-%d') DESC;"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.open sql, conn
while not rs.eof
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")
%>
<% if titulo <> "" then%><%= titulo %> | <% end if %> Ano <%= ano %> - Número <%= numero %> |
<%= periodo %>
<%= resumo%>
<%
rs.movenext
wend
Rs.close
Set RS = nothing
%>
