<%
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\guiadocolubande\dados\noticias.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
Set Registros = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Noticias WHERE paginaprincipal = 'S' AND categoria = 'LOCAIS' order by codigo desc"
Set RS = Conn.Execute(sql)
Cont = 0
%> <%Do While (Not RS.EOF) AND (Cont < 5)%>