Está lista é atualizável, uma lista de conexões de diversos bancos de dados, tornado muito mais produtiva a dica.

CONEXÃO MySQL

CODE
<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=IP_DO_SERVIDOR;"_
& " DATABASE=NOME_DO_BANCO_DE_DADOS;"_
& "UID=USUÁRIO;PWD=SENHA; OPTION=3"
conexao.Open
%>



CONEXÃO ACCESS

CODE
<%
diver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("BANCO_DE_DADOS_NOME.mdb")
set conexao = CreateObject("ADODB.Connection")
conexao.open diver
%>



CONEXÃO PGSQL

CODE
<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "DRIVER={PostGreSQL};"_
& "SERVER=IP_DO_SERVIDOR;"_
& " DATABASE=NOME_DO_BANCO_DE_DADOS;"_
& "UID=USUÁRIO;PWD=SENHA; OPTION=3"
conexao.Open
%>




CONEXÃO SQL SERVER

CODE
<%
Dim banco_de_dados
banco_de_dados = "Provider=SQLOLEDB; Data Source=IP_DO_SERVIDOR;Network Library=DBMSSOCN; Initial Catalog=<NOME_DO_BANCO_DE_DADOS>; User Id=<USUÁRIO>; Password=<SENHA>"
set conexao = server.createobject ("adodb.connection")
conexao.open banco_de_dados
%>




CONEXÃO INTERBASE

CODE
<%
conexao.ConnectionString = "DRIVER={Firebird/Interbase(r) driver};"_
& "DBNAME=IP_DO_SERVIDOR:/DIRETÓRIO_FISÍCO/NOME_DO_BANCO_DE_DADOS.gdb;"_
& "UID=USUÁRIO;PWD=SENHA"
conexao.Open
%>