<% 'ESTABLECEMOS LA CONEXIÓN CON LA BD Set conn = Server.CreateObject("ADOdb.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ="&Server.Mappath("fpdb/noticias.mdb") ' ABRIMOS EL OBJETO CON EL DRIVER ESPECÍFICADO Set rs = CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM noticias ORDER BY Fecha" rs.Open sSQL, conn, 3,3 %>

DISCULPEN LAS MOLESTIAS

ESTAMOS ACTUALIZANDO NUESTRO SITIO WEB

<% rs.close() Set rs=nothing conn.close() Set conn=Nothing %>