<% 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")%>
 

- CONTATO

  - Fale Conosco

   Adriano Franco da Silveira

   planegeo@planegeo.com.br
   
   Pirassununga/SP
   Rua Aristides Silva, 476 - Jardim Itália  - CEP: 13.630-710
   Fones: (19) 3562-6485 / 3562-6356

Nome
E-mail
Assunto
Mensagem