Let’s look at a sample script to get an idea how to connect to MS SQL Server database without DSN:

<%
' declare the variables
Dim Connection
Dim ConnString
Dim Recordset
Dim SQL

' define the connection string, specify database driver
ConnString="DRIVER={SQLServer};SERVER=yourServerIP;UID=yourUsername;"&_ "PWD=yourPassword;DATABASE=yourDatabasename"

' declare the SQL statement that will query the database
SQL = "SELECT * FROM TABLE_NAME"

' create an instance of the ADO connection and recordset objects
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")

' Open the connection to the database
Connection.Open ConnString

' Open the recordset object executing the SQL statement and return records
Recordset.Open SQL,Connection

' first of all determine whether there are any records
If Recordset.EOF Then
Response.Write("No records returned.")
Else
' if there are records then loop through the fields
Do While NOT Recordset.Eof
Response.write Recordset("FIRST_FIELD_NAME")
Response.write Recordset("SECOND_FIELD_NAME")
Response.write Recordset("THIRD_FIELD_NAME")
Response.write "<br>"
Recordset.MoveNext
Loop
End If

' close the connection and recordset objects to free up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing
%>

Note: Don't forget to replace the constants (TABLE_NAME, FIELD_NAME) with real names of tables and fields in your database.