Peksoft adlı üyeden alıntı: mesajı görüntüle 
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=mysqlkullaniciadi; pwd=sifre; database=mysqdbadi;"
%>
mysqlkullaniciadi, sifre, mysqldbadi buraları kendi veritabanına göre düzenlersin.
hocam aşağıda bağlantı yapılmış zaten
NetMoSfer adlı üyeden alıntı: mesajı görüntüle 
<%
set ensarcn=Server.CreateObject("ADODB.Connection")
dsn="Driver={MySQL ODBC 3.51 Driver}; Port=3306; Option=3; Server="& host &";Database="& db &";Uid="& kullanici &";Pwd="& parola &";"
ensarcn.open dsn
%>