Copie o código abaixo, substituindo os dados em vermelho pelos seus:
NomeDoSevidor: nome do servidor SQL Server
Usuario: Usuário
Senha: Senha do usuário
NomeDoBancoDeDados: Nome do Banco de Dados
<%
'Declarando variáveis
Dim adoCon, strCon
Dim servidor, banco, usuario, senha
'Definindo valores de acesso
servidor = "sqlsv.dominio.com.br"
banco = "nome_do_banco"
usuario = "nome_do_usuario"
senha = "senha"
'Definindo string de conexão
strCon = "Provider=sqloledb; Data Source="+ servidor +"; Initial Catalog="+ banco +"; User Id="+ usuario +";Password="+ senha +";"
'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")
'Abrindo conexão
adoCon.Open strCon
## Coloque aqui o código
'Fechando conexão
adoCon.Close
Set adoCon = Nothing
%>