SQL 2000

<%
Dim  conn
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={SQL Server};Server=69.0.232.236;Database=databasename;UID=username;PWD=password;"
%>