oblog sql外部连接出错

<!--#include file="config.asp"-->
<!--#include file="Inc/Inc_Functions.asp"-->
<!--#include file="API/Api_Config.asp"-->
<%
'-----------------------------------------
'conn.asp
'数据库参数设置
'-----------------------------------------

'数据库类型:0-Access,1-Sql Server
Const Is_Sqldata = 1

'使用外部数据库：0-不使用，1-使用
Const Is_ot_User = 0

'数据库连接参数变量定义
Dim G_Sql_DelChar,G_Sql_Now,G_Sql_d_Char
Dim G_Sql_y,G_Sql_m,G_Sql_d,G_Sql_h,G_Sql_mi,G_Sql_s
Dim connstr,conn,db

'外部数据库参数变量定义
Dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password
Dim ot_regurl,ot_lostpasswordurl,ot_modIfypass1,ot_modIfypass2

'检验系统状态
Call SystemState

'连接数据库
Sub link_database()
If Is_Sqldata = 0 Then
  'Access数据库连接参数
  '此处必须为以根目录开始,最前面必须为/号
  '免费用户初次安装务必修改DATA目录的数据库名称
  db =    "/Data/oblog.asp"

  '-----------------------------------------------------------------------------------------------------
  '以下参数请勿修改，否则可能导致系统无法运行
  ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
  G_Sql_d_Char ="#"
  G_Sql_y   ="'yyyy'"
  G_Sql_m   ="'m'"
  G_Sql_d   ="'d'"
  G_Sql_h   ="'h'"
  G_Sql_mi  ="'n'"
  G_Sql_s   ="'s'"
  G_Sql_Now  ="Now()"
  '-----------------------------------------------------------------------------------------------------
Else
  'Sql Server数据库连接参数
  Dim Sql_DBServer,Sql_DBName,Sql_User,Sql_Password
  Sql_DBServer = "192.168.0.104" '连接名(本地用(local),外地用IP如：127.0.0.1)
  Sql_DBName  = "Oblog"  '数据库名
  Sql_User  = "sa"   '访问数据的用户名
  Sql_Password = "sa"  '访问数据的密码

  '-----------------------------------------------------------------------------------------------------
  '以下参数请勿修改，否则可能导致系统无法运行
  ConnStr   = "Provider = Sqloledb; User ID = " & Sql_User & "; Password = " & Sql_Password & "; Initial Catalog = " & Sql_DBName & "; Data Source = " & Sql_DBServer & ";"
  G_Sql_d_Char ="'"
  G_Sql_y   ="Year"
  G_Sql_m   ="Month"
  G_Sql_d   ="Day"
  G_Sql_h   ="Hour"
  G_Sql_mi  ="Minute"
  G_Sql_s   ="Second"
  G_Sql_Now  ="GetDate()"
  '-----------------------------------------------------------------------------------------------------
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

'若使用外部数据库表请自行修改下面的变量值
If Is_ot_User=1 And InStr(LCase(Request.ServerVariables("HTTP_REFERER")),"admin_")=0 Then

  'access外部数据库连接字符串(默认连接方式)
  'ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/dvbbs7.mdb")

  'sql外部数据库连接字符串(sql server数据库请注释上边ACCESS数据库的连接字符串，取消注释SQL Server数据库连接字符串)
  ot_connstr = "Provider = SqlServer; User ID = sa; Password = sa; Initial Catalog = Oblog; Data Source = 192.168.0.104\\caile;"

  '创建外部数据库连接
  Set ot_conn = Server.CreateObject("ADODB.Connection")
  ot_conn.open ot_connStr        '外部数据库连接
  ot_usertable  = "oblog_user"     '外部数据库用户表名
  ot_username   = "username"     '外部数据库用户名字段
  ot_password   = "password"    '外部数据库密码字段
  ot_regurl   = "../reg.asp"   '外部数据库注册用户链接
  ot_modIfypass1  = "../user_setting.asp?action=userpassword&div=22" '外部数据库修改密码连接
  ot_modIfypass2  = "../user_setting.asp?action=userpassword&div=23" '外部数据库修改密码提示问题连接
  ot_lostpasswordurl = "../LostPassword.asp"  '外部数据库找回密码链接
End If

If Err Then
  Err.clear
  Set conn = Nothing
  Response.Write "数据库连接出错，请检查连接字串。"
  Response.End
End If
End Sub
%>



高手帮忙解决下