<% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Dados, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else
date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
link = "" & date1 & ""
description = name1
%>
.jpg)
.JPG)
A Secretaria de Agricultura da Bahia anunciou a assinatura do novo contrato de gestão e três convênios com a Biofábrica, garantindo a ampliação das atividades do órgão , que vai reforçar a atuação na produção de mudas de vários cultivos em larga esca....JPG)
