Hay dos opciones para solucionar el posible problema. La primera añadir simplemante lo qeu está en negrita a la conexión:
Código:
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")
Ojo es un sólo punto, es decir que no sube un nivel en los directorios.
La otra opción, según el error que te lanza, es que no estés haciendo la conexión a la base de datos en modo de escritura. Para eso hay una serie de números que indican que se va a escribir. Te dejo un ejemplo:
Código:
SET base = Server.CreateObject("ADODB.Connection")
base.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./foro.mdb")
sql = "SELECT * FROM visitas WHERE seccion = '"& seccion &"'"
SET RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, base, 2,3 Aunque aquí la sentencia SQL es distinta a la tuya, lo importante son los numeritos que te marco en rojo.
A ver si hay suerte y lo podemos solucionar.
Un saludo.