<% Set conexao_des_not =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM noticia ORDER BY data DESC" Set conexao_des_not = Conn.Execute(msql) %> Notícias | PlaneGEO
 
<% Set conexao_link =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM link_lateral" Set conexao_link = Conn.Execute(msql) %> <%Do While not conexao_link.EOF%> <%conexao_link.movenext loop%>
" target="_blank">" width="160" height="120" border="0" title="<%=conexao_link("nome")%>">
 
<% Set conexao_not_lateral =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM noticia WHERE destaque_lateral = 'Sim' ORDER BY codigo DESC" Set conexao_not_lateral = Conn.Execute(msql) %> <%Do While not conexao_not_lateral.EOF%> <%conexao_not_lateral.movenext loop%>
">" width="159" height="120" border="0" title="<%=conexao_not_lateral("titulo")%>">
"><%=conexao_not_lateral("titulo")%>
 

- NOTÍCIAS

<%Do While not conexao_des_not.EOF%>

<%conexao_des_not.movenext loop%>