大家帮我看看那里错了

我从网上下载了个论坛，但是在我的电脑上测试的时候老是不成功。数据库连接错误。
conn.asp的代码如下：
<%
Option Explicit
Response.Buffer = True
Dim Conn,Db,StartTime,Timeset,SqlNum,ConnStr
Timeset=0
StartTime = Timer()
SqlNum=0
Db="bbs/DesignWindowData/DesignWindowData.Asa"

Sub ConnectionDatabase
    Set conn=Server.CreateObject("ADODB.Connection")
    ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
    On Error Resume Next
    Conn.Open ConnStr
    If Err Then
        err.Clear
        Set Conn = Nothing
        Response.Write "数据库更新中或数据库连接错误！"
        Response.End
    End If
End Sub
%>
是代码错了还是我的电脑设置有问题，路径我改过的，因为我改了数据库的路径和名称。