% cnpath="DBQ=" & Server.MapPath("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" %>
_
|
||||||||||||||||
| _ _ _ _ |
|
|||||||||||||||
|
||||||||||||||||