阳向沙也加:网页代码

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
'定义数据库类别，1为SQL数据库，0为Access数据库
Const isSqlDataBase = 0
Const CacheName = "newasp"
Dim NowString
Dim ConnStr
If IsSqlDataBase = 1 Then
'-----------------------SQL数据库连接参数---------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
NowString = "GetDate()"
SqlDatabaseName = "newasp" '数据库名
SqlPassword = "newasp" '用户密码
SqlUsername = "sa" '用户名
SqlLocalName = "(local)" '连接名（本地用local，外地用IP）
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'-------------------------------------------------------------------------------
Else
'-----------------------ACCESS数据库连接----------------------------------------
NowString = "Now()"
'ACCESS数据库连接,请使用根路径或者绝对路径（注意：不要用相对路径）
db = "\Database\newasp.Asa"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果用绝对路径连接数据库,请把下面Connstr...前面的注释“'”去掉,把上面的Connstr...注释掉
'Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
'-------------------------------------------------------------------------------
End If
Application.Lock
Application("NC_ConnectionDatabase") = Connstr
Application("NC_isSqlDataBase") = isSqlDataBase
Application("CreationType") = 0
Application.Unlock
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

Sub CloseConn()
On Error Resume Next
If IsObject(Newasp) Then
Set Newasp = Nothing
End If
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Sub
%>

数据路连接 一种为sql 一种为acc请问这整个的意思是？？
网页出现这种情况：数据库连接出错，请检查连接字串。

我是本机测试 需要用acc版 谢谢高手指点迷经！！