Si la memoria no me traiciona... así se hace la conexión para SQL Server sin DSN
Código:
<%
Dim Conex
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=TU_SERVIDOR; database=NOMBRE_BASE; uid=sa;pwd="
%>
De todas formas tienes todas las cadenas de conexión a cualquier motor de BD en
www.connectionstrings.com