我想把论坛和风讯整合在一起!!结果在设置外部表整合参数时,怎么设置都不能连接上!!请高手帮下我!!怎么整合!!!!

'=========================================外部表整合参数设置开始=======================================================
isoutuser=1 '如果此项为0那么用户名，密码不使用外部数据库或表，如果为1,表示整合到其它系统，用户名和密码采用其它系统的表

if isoutuser=1 then '如果使用外部连接表
    Dim OutDataType,UserName_out,PassWord_out,User_out,reg_out,userinfo_out,userlogin_out
   
    OutDataType=0 '如果此项为0.那么表示使用access数据库，如果此项为1，那么表示采用mssql数据库
   
    User_out="fs_members"  '外部数据库表名
    UserName_out="menname"  '外部数据库用户表，用户字段
    PassWord_out="password"  '外部数据库用户表，密码字段
   
    reg_out="http://www.****.com/users/Register.asp"  '外部用户名注册地址
    userinfo_out="http://www.****com/users/User_GetPassword.asp" '外部密码修改地址
    userlogin_out="http://www.****.com/users/login.asp" '外部帐号登陆地址

    If OutDataType = 1 Then
        '必修改设置二：========================sql数据库设置============================================================
        'sql数据库连接参数：数据库名(sqlDatabaseName)、用户密码(sqlPassword)、用户名(sqlUsername)、
        '连接名(sqlLocalName)（本地用local，外地用IP）
        Const OutsqlDatabaseName = "bbsgood"
        Const OutsqlPassword = "sa"
        Const OutsqlUsername = "sa"
        Const OutsqlLocalName = "(local)"
    Else
        '必修改设置三：========================access数据库设置=========================================================
        '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将bbsgood_speed.mdb修改为bbsgood_speed.asp
        dim Outdb
        OutDb="../FooSun_Data/tmsjuserUser.asp" '数据库路径
    End IF
end if

'==========================================外部表整合参数设置结束=======================================================

Sub OutLinkData() '连接外部表函数
    Dim ConnStr
    If OutDataType=1 Then
        ConnStr = "Provider = sqloledb; User ID = " & OutsqlUsername & "; Password = " & OutsqlPassword & "; Initial Catalog = " & OutsqlDatabaseName & "; Data Source = " & OutsqlLocalName & ";"
    Else
     ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(OutDb)
    End If
    On Error Resume Next
    Set OutConn = Server.CreateObject("ADODB.Connection")
    OutConn.open ConnStr
    If Err Then
     err.Clear
     Set OutConn = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If

End Sub

Sub CloseData()
    if IsObject(conn) then
        conn.Close
        set conn=nothing
    end if
End Sub
%>

User_out="fs_members"  '外部数据库表名
    UserName_out="menname"  '外部数据库用户表，用户字段
    PassWord_out="password"  '外部数据库用户表，密码字段

这里错了UserName_out="menname"这里设置风讯用户名数据库用户名字段名

password-out=一样,都要用风讯这边的密码字段名

 '必修改设置二：========================sql数据库设置============================================================
        'sql数据库连接参数：数据库名(sqlDatabaseName)、用户密码(sqlPassword)、用户名(sqlUsername)、
        '连接名(sqlLocalName)（本地用local，外地用IP）
        Const OutsqlDatabaseName = "bbsgood"
        Const OutsqlPassword = "sa"
        Const OutsqlUsername = "sa"
        Const OutsqlLocalName = "(local)"

---------------

这个是填写风讯会员表的信息，而不是填写BBSGOOD的。