[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。

[jisumin]

<%
dim conn, SerID, DbName, UserName, PassWord
SerID = "192.92.6.3"
DbName = "CLXH"
UserName = "11"
PassWord = "22"

sub ConnSqlSer
dim StrSqlConn
strsqlConn = "Provider=SQLOLEDB.1;Password=2736564;Persist Security Info=True;User ID=11;Initial Catalog=CLXH;Data Source=ta6ksql;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=BILLGATES;Use Encryption for Data=False;Tag with column collation when possible=False"
set conn = server.CreateObject("adodb.connection")
conn.open strsqlconn
end sub

function CloseConn
conn.close
set conn = nothing
end function
%>
运行的时候提示如下：
Microsoft OLE DB Provider for SQL Server 错误 '80004005'

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。

/kwxx/clxh/open.asp，行 12

请问大家是哪里写错了吗？应该如何修改？原来还好好的，sql 数据库重新安装以后就出现问题了！

[孟子E章]

看看服务是否启动，检查端口是否被防火墙堵住，若sql 2000，需要打sp4，检查用户名是否正确
另外，在企业管理器里连接下实施

[jisumin]

服务已经启动，1433端口是通的，在远程通过delphi也可以链接，就是asp程序出不来？企业管理器可以连上

[孟子E章]

strsqlConn = "Provider=SQLOLEDB.1;Password=2736564;User ID=11;Initial Catalog=CLXH;Data Source=ta6ksql;"

试试，注意检查拼写是否有问题