<% Set conexao_empresa =Server.CreateObject("ADODB.RecordSet") msql = "SELECT * FROM empresa" Set conexao_empresa = Conn.Execute(msql) %>

<% 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")%>   - A EMPRESA <%=conexao_empresa("conteudo")%>