在线等~~这个错误是什么情况？Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
我从网上下了个留言板源代码 用iis打开其index.asp之后，浏览器上就出现这个错误。
完整的错误提示如下：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/downloadtest/aspliuyanban/aspliuyanban/aspliuyanban/guestbook/conn.asp，行 19

conn.asp 内容如下：
<%
dim conn
dim connstr
'on error resume next
call conn_init()

sub conn_init()
'on error resume next

connstr = "DBQ=" + server.mappath("#gbook.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
'response.write connstr
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if
end sub


Dim Ft_Post,Ft_Get,Ft_In,Ft_Inf,Ft_Xh,Ft_db,Ft_dbstr,Kill_IP,WriteSql
Ft_In = "'|exec |insert |delete |count |chr |mid |truncate |char |declare "
Kill_IP=True
WriteSql=True
Ft_Inf = split(Ft_In,"|")
If Request.Form<>"" Then
For Each Ft_Post In Request.Form
For Ft_Xh=0 To Ubound(Ft_Inf)
If Instr(LCase(Request.Form(Ft_Post)),Ft_Inf(Ft_Xh))<>0 Then
If WriteSql=True Then
Response.Write "<Script Language=JavaScript>alert('请不要在参数中包含非法字符尝试注入！');</Script>"
Response.Write "<Script Language=JavaScript>history.go(-1);</Script>"
Response.End
End If
End If
Next
Next
End If
If Request.QueryString<>"" Then
For Each Ft_Get In Request.QueryString
For Ft_Xh=0 To Ubound(Ft_Inf)
If Instr(replace(LCase(Request.QueryString(Ft_Get)),"<br><li>",""),Ft_Inf(Ft_Xh))<>0 Then
If WriteSql=True Then
Response.Write "<Script Language=JavaScript>alert('请不要在参数中包含非法字符尝试注入！');</Script>"
Response.Write "<Script Language=JavaScript>history.go(-1);</Script>"
Response.End
End If
End If
Next
Next
End If


sub endConnection()
conn.close
set conn=nothing

end sub

%>
请问这是什么地方出了错啊？
[解决办法]
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

直接搜索这个把