asp程序连接access数据库出错

[lpbottle]

Const SysRootDir = "/jinchuicopy/"
Const SiteDataPath = "../Database/Ameav_Site.mdb"
Const SiteDataBakPath = "../Database/Bak_ameav_Site.mdb"

Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(SiteDataPath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write "系统错误：数据库连接出错，请检查'系统管理>>站点常量设置',或者/Include/Const.asp文件!"
Response.End
end if

[lpbottle]

连接的代码有问题吗？如果有，会出在哪呢？

[lpbottle]

每次运行时都会出现“系统错误：数据库连接出错，请检查'系统管理>>站点常量设置',或者/Include/Const.asp文件!”

[sy_binbin]

On error resume next
这段代码去掉

看错误信息是什么

[sy_binbin]

一般都是数据库路径不对