<% Set conexao_not =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM noticia ORDER BY codigo DESC LIMIT 5" Set conexao_not = Conn.Execute(msql) %> <% Set conexao_des_not =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM noticia WHERE destaque = 'Sim' ORDER BY codigo DESC LIMIT 1" Set conexao_des_not = Conn.Execute(msql) %> PlaneGEO - Consultoria e Diagnóstico Ambiental, Projeto e Serviços Geológicos
 
<% 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")%>
 
       
  "><%=conexao_des_not("titulo")%>  
  ">" width="332" height="177" border="0"> "><%=conexao_des_not("chamada")%>  
  Últimas notícias    
  <%Do While not conexao_not.EOF%> <%conexao_not.movenext loop%>