纸包怎么叠步骤图:ASP数据库连接问题

代码如下，
这是一个flash通过ASP连接数据库的代码，
执行的时候浏览器显示这样的错误提示

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/lcw/guestsave.asp, 第 17 行

经过测试。。其他文件连接数据库没有问题。。用的是同样的代码连接方法，只有这个是这样
望高人解答。。。
代码如下，

<!--#include file="adovbs.inc" -->
<%
Function ChangeStr (data)
ChangeStr="'" & Replace (data,"'","''") & "'"
End Function

Name=Request.Form("txtname")
Email=Request.Form("txtEmail")
Subject=Request.Form("txtsubject")
Content=Request.Form("txtcontent")
Name=Left (Name,80)
Email=Left (Email,80)
Subject=Left (Subject,80)

Set conn=Server.CreateObject ("ADODB.Connection")
DBPath=Server.MapPath("gtbook.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb) };dbq=" & DBPath

sql="Insert Into guestbook (name,Email,subject,content) Values ("
sql=sql & ChangeStr (Name) & ","
sql=sql & ChangeStr (Email) & ","
sql=sql & ChangeStr (Subject) & ","
sql=sql & ChangeStr (Content) & ")"

conn.Execute(sql)

conn.close

Set conn=Nothing
message="save success"
ReturnValue="txtcontent=" & message
response.write (ReturnValue)

%>