% 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 set rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"") %>
|