OLE DB Provider for ODBC Drivers 错误 求救！！！！在线等

[chg1981]

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 0x7ec Thread 0x878 DBC 0x167eff4 Jet'。

/conn.asp，行12
这是完全的报错，是不是数据库的事呀，要不要设odbc数据源呀，ole db不是不用设么？

[liuyangxuan]

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("")

[webrobot]

connstr="DBQ=" & db & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd="
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

[chg1981]

<%@LANGUAGE="VBSCRIPT"%>
<%
dim conn
dim connstr
dim db,startime
startime=timer()
db="database/roha.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

conn.Open connstr
%>这是我的代码，怎么还出错呢

[gu1dai]

dbpath=server.mappath("你的数据库目录名称")////目录(网站目录)
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath

就打开你的数据库了

[chg1981]

网站机器人，DefaultDir是什么

[chg1981]

dbpath=server.mappath("database/roha.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath
这样还是报错：
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 0x7ec Thread 0x888 DBC 0x16bf024 Jet'。

/conn.asp，行7
帮帮忙！！！

[gu1dai]

缺少end这个错误我已经碰到很多了
基本上都是if语句用的太多而又不知道在哪加end if造成的
建议你查一下你的if 语句