这是什么错误_____________________在线等！

[zcwmxn]

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 0x1c5c Thread 0x1cd8 DBC 0x28023c4 Jet'。
/mxnweb/pub_admin_system_update.asp，行31

[zcwmxn]

<% '用户管理 价格查询 价格添加 价格修改
' admin no01 no02 no03
'功能验证，rst("admin")为系统维护
if session("pass") <> "1" then
response.write "您还没有登录！<br><a href='index.asp'>登录</a>"
response.end
end if
username = session("user_login")
set Conn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")
if username <> "" then
strsql = "select * from r_function_2 where username='"&username&"'"
rst.Open strsql,conn
if rst("admin") = true then
rst.Close
else
response.write "您无权使用本功能，如有问题请联系管理员。"
rst.Close
response.end
end if
else
rst.Close
response.write "您还没有登录，请登录！"
response.end
end if
%>
<%
dim rst
set rst=server.createobject("adodb.recordset")
rst.activeconnection="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")'这里出错误了，紧急求救啊！！！原来是可以运行的，今天莫名其妙的不行了。
source1="select * from r_function_2 where id=" & request("id")
rst.open source1,rst.activeconnection,1,3
rst("user")=request("user")
rst("username")=request("username")
rst("password")=request("password")
rst("admin")=request("admin")
rst("no01")=request("no01")
rst("no02")=request("no02")
rst("no03")=request("no03")

rst.update
rst.close
set rst=nothing
response.redirect "pub_admin_system.asp"
rst.close()
set rst=nothing
%>

[dwxq]

这是几个错误,是iis错误,还是程序的错误.
是不是缺少end if
mxnweb/pub_admin_system_update.asp，行31,是哪一行的错误.

[zcwmxn]

为什么
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")
改为
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
就行了
他们有什么区别？

[zcwmxn]

问题的关键是以前用第一句是可以的，今天就莫名其妙的不行了，改为第二句又可以了

[dwxq]

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
你这样是通过odbc连接数据库的吧!

[zcwmxn]

不是，是ADO