[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝

inc/dbconn.asp，行 17

程序代码为：
<%
dim conn
dim connstr
'///////////////////////////////////////////////////////////////////////////////////////////////////////////
SqlLocalName="(local)"
SqlDatabaseName="Lb_b2b2"
SqlUsername="sa"
SqlPassword="HACK*ytwj"
'//////////////////////////////////////////////////////////////////////////////////////////////////////////
'connstr="DBQ="+server.mappath("treeback/$cude8$#0ld$de.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
connstr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"
set conn=server.createobject("ADODB.CONNECTION")
'////////////////////////////////////////////////////////////////////////
'暂时关闭asp错误检查
'on error resume next
'////////////////////////////////////////////////////////////////////////
conn.open connstr
'////////////////////////////////////////////////////////////////////////
Dim constring,connnews
constring = "Driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database=Lbnews;"
Set connnews = Server.Createobject("ADODB.Connection")
connnews.open constring

'////////////////////////////////////////////////////////////////////////bbs
Dim bbs_constring,connbbs
bbs_constring = "Driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database=disucz;"
Set connbbs = Server.Createobject("ADODB.Connection")
connbbs.open bbs_constring

'////////////////////////////////////////////////////////////////////////bbs2
'Dim bbs_constring2,connbbs2
'bbs_constring2 = "Driver={SQL Server};server=(local);uid="&SqlUsername&";pwd="&SqlPassword&";database=disucz25;"
'Set connbbs2 = Server.Createobject("ADODB.Connection")
'connbbs2.open bbs_constring2

麻烦帮看下是什么问题