% 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 " Rs.open "select top 6 * from noticias order by id desc " %>
![]() |
![]() |
||||||||||||||||||||||
|
|||||||||||||||||||||||