<% cnpath="DBQ=" & Server.MapPath("Noticias/noticias.mdb") 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.ActiveConnection = conn RS.open "SELECT * FROM Noticias" %> Untitled Document



<% if not rs.eof then while not rs.eof %> <% rs.Movenext wend end if %>
<%=rs("manchete")%>
" target="_top" class="noticias"><%=rs("fonte")%>