Connect String to test ASP and MSSQL

<%
DIM strDataSourceName, objConn

Set objConn = Server.CreateObject("ADODB.Connection")

strDataSourceName="Provider=sqloledb;Data Source=YOURDATABASESERVER;Initial Catalog=DBNAME;User Id=USERNAME;Password= YOUR PASSWORD;"

objConn.connectionstring = strDataSourceName
objConn.Open

%>