et objDBConn = Server.CreateObject("ADODB.Connection")

objDBConn.ConnectionString="driver={SQL Server};" _
& "server=myserver;" _
& "uid=mywebuser;" _
& "pwd="verysecretindeed;"

objDBConn.Open
objDBConn.DefaultDatabase = "mydatabase"



<%
dim strSQL
set Global_DBConnection=Server.CreateObject("ADODB.Connection")
DSN="Driver={SQL Server};Server=000.000.000.000;Database=DATABASENAME;UID=USERNAME;PWD=PASSWORD"
Global_DBConnection.Open(DSN)
%>