<% cnpath="DBQ=d:\www.bsline.com.br\novo\colunas\colunas.mdb;Driver={Microsoft Access Driver (*.mdb)};3,3" DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset 'Set RS = Server.CreateObject( "ADODB.Recordset" ) 'RS.MaxRecords = 1 'RS.ActiveConnection = conn 'RS.open "SELECT * FROM Noticias WHERE fotodestaque <> '" & ("NÃO") & "' order by id desc" 'Abre o Recordset2 Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.MaxRecords = 12 RS.ActiveConnection = conn RS.open "SELECT * FROM colunas order by id desc" RS.Move 2 %>

<% if not rs.eof then while not rs.eof %> " target="_parent"><%=rs("categoria")%> <%=rs("manchete")%>  <% rs.Movenext wend end if %>