Recuerda que con el MapPath se indica la ruta virtual mas no la física
tienes:
set Agen=Server.CreateObject("ADODB.connection&qu ot;)
Agen.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("C:\asp\foros.mdb")
cambiala por:
set Agen=Server.CreateObject("ADODB.connection&qu ot;)
Agen.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("foros.mdb")
...
...
donde foros.mdb debe estar en tu directorio
c:\intetpub\wwwroot\foros.mdb
Saludos y Suerte...!!
<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html>