Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x75c Thread 0x844 DBC 0x1334f8c Jet'。

/ziliao/MRShop/datacon/conn.asp，行4
我在运行conn.asp是没有问题,但运行首页就出现了这个问题,改怎么解决啊

<%
set conn=server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("database/shop.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open(connstr)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Cursortype=adOpenStatic
%>