小弟我第一次打开的时候，可以打开，现在却出现异常！为什么呢

我第一次打开的时候，可以打开，现在却出现错误！为什么呢？
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x8e4 Thread 0xf84 DBC 0x1851f0c Jet'。
/admin_admin/sys_conn.asp, 第 4 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 

网页：
POST 49 ??? /admin_admin/sys_check_login.asp

POST Data:
uid=admin&pwd=admin&imageField.x=0&imageField.y=0 

VBScript code

<%  connstr="DBQ="+server.mappath("data/#saiyi_system#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  set conn=server.createobject("ADODB.CONNECTION")  conn.open connstr   Dim WebName,webcopyright,webaddress,webtel,websupportset rs=server.createobject("adodb.recordset")sql="select * from sys_company order by id desc"rs.open sql,conn,3,3WebName = rs("company")Webcopyright = rs("copyright")Webaddress = rs("address")Webtel = rs("tel")Websupport = rs("support")function nosql(str)if not isnull(str) thenstr=trim(str)str=replace(str,";","&#59;")        '分号str=replace(str,"'","&#39;")        '单引号str=replace(str,"""","&quot;")        '双引号str=replace(str,"chr(9)","&nbsp;")    '空格str=replace(str,"chr(10)","<br>")    '回车str=replace(str,"chr(13)","<br>")    '回车str=replace(str,"chr(32)","&nbsp;")    '空格str=replace(str,"chr(34)","&quot;")    '双引号str=replace(str,"chr(39)","&#39;")    '单引号str=Replace(str, "script", "&#115cript")'jscriptstr=replace(str,"<","&lt;")            '左<str=replace(str,">","&gt;")            '右>str=replace(str,"(","&#40;")            '左(str=replace(str,")","&#41;")            '右)str=replace(str,"--","&#45;&#45;")    'SQL注释符nosql=strend ifend function%>