Conexion ASP con una BD de Access

[jperezce]

Adjunto el codigo por si alguien quiere verlo y dar una posible solución.

<% ' Definición de las constantes ADO
const adOpenForwardOnly = 0
const adOpenKeyset = 1
const adOpenDynamic = 2
const adOpenStatic = 3

const adLockReadOnly = 1
const adLockPessimistic = 2
const adLockOptimistic = 3
const adLockBatchOptimistic = 4

set connection = server.createobject("adodb.connection")
connection.Open "dominio.com.noticias","",""

' Abrir recordset de noticias
set rsNoticias = server.createobject("adodb.recordset")
strConsulta = "SELECT * FROM noticias WHERE (historico <> 's' AND historico <> 'S') ORDER BY id DESC"
rsNoticias.open strConsulta, connection, adopenkeyset, adlockoptimistic

do while not rsNoticias.EOF %>