asp数据库连接出错，找不出问题所在，请高手们帮忙看看

代码如下：
<%
'Option Explicit
Response.Buffer = True

'全局变量
Dim showye,page
Dim SqlNowString
Dim SqlBoolStringTrue
Dim SqlBoolStringFalse

Dim Startime
Dim Conn

'定义数据库类别，1为SQL数据库，0为Access数据库
Const CityAdminCSS="<link rel=""stylesheet"" type=""text/css"" href=""/CSS/main.css"">"
Const IsSqlDataBase = 0

'定义运行模式，测试的时候设置1，正常运行的时候设置为0,不输出错误信息有利于安全，
'========================================================
'程序调试开关,为true 输出错误提示，为false 不输出错误提示
'========================================================
Const IsDeBug = 1
Startime = Timer()

'SQL获取时间函数
If IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
SqlBoolStringTrue="1"
SqlBoolStringFalse="0"
Else
SqlNowString = "Now()"

Asp数据库连接出错是什么原因？ Asp数据库连接出错是什么原因? ASP 数据库连接出错！ ASP+ACCESSS数据库连接出错! ASP+ACCESS数据库连接出错! ASP 数据库连接出错 ACCESS的 我的ASP数据库连接出错在哪里? asp与数据库连接总是出错,求助!!! ASP+ACCESSS数据库连接出错!在线等待！！ 数据库连接出错