求sql server连接代码

[etononline]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

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

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/web/conn.asp，行5

这是我的代码；帮忙看看错误在那。

<%
strconnection="uid=test;pwd=test;driver={SQLServer};SRVR=10.101.4.109;DB=GA;"
Set conn=server.createobject("adodb.connection")
conn.open strconnection
%>

[gaochen11]

Provider=SQLOLEDB.1;Password=13795;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=10.101.4.109

[qfacy]

<%
dim conn,connstr
connstr="Driver={sql server};uid=test;pwd=;database=GA;server=localhost"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
简单的

[zifenglingx]

你是不是没连接上数据库啊？