Aqui hos dejo el codigo, muchas gracias
<%
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";"
'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM Noticias ORDER BY id DESC"
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
' Muestra la fila actual
Response.Write "<table width=600 cellSpacing=1 cellPadding=3 bgcolor=""#000000""><tr><td bgcolor=""#eeeeee""><font size=1 face=verdana color=""#000000""><b>"&result.Fields("titulo")&"</b><br><br><img src=actualidad/"&result.Fields("imagen")&" align=left>" &result.Fields("noticia") & "<br><br><i>" &result.Fields("copete") & "</i></font></td></tr></table><br>"
'Pasa a la siguiente fila
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
