<%
Set degisken = server.CreateObject("Adodb.Connection")
%>

Adodb.Connection nesnesini oluşturduktan sonra Access veritabanı kodunu yazıyoruz.

<%
degisken.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & server.MapPath("vt1.mdb")
%>

"Provider=Microsoft.Jet.Oledb.4.0;Data Source" Bu bizim access veritabanı için kullandıgımız baglantı kodumuzdur. dekisken olarak ifade ettigim ise baglantimizin adıdır. Adı üstünde degisebilir, degistirebilirsiniz.
"server.MapPath("vt1.mdb")" olarak ifade ettiğimiz kısım ise Access veritabanının bulundugu alanı ve adını belirttiğimiz kısımdır. Bulundugu alan bir klasörün içinde ise isminden önce "/" işaretini kullanarak önüne bulundugu klasörün adını yazınız. Şu şekilde:

<%
server.MapPath("Klasor_Adi/vt1.mdb")
%>

Son hali ise:

<%
set degisken = server.CreateObject("Adodb.Connection")
degisken.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & server.MapPath("vt1.mdb")
%>

Access veri tabanı baglanti işlemi bu şekildedir.

Aspde Mysql veritabanı baglantısı ise aynı Adodb.Connection nesnesini oluşturduktan sonra;

<%
degisken.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=mysql_user; pwd=mysql_pass; db=mysql_db;"
%>

Bu kodumuzda ise "SERVER" kismi localhost olarak kalmalıdır. Kendi veritabanı kendi sunucumuzda oldugu için.
"UID" kismi Mysql veritabanı için oluşturulan kullanıcı adıdır.
"pwd" kismi Mysql veritabanı için oluşturulan şifredir.
ve en son olarakta Mysql veritabanı adını "DB" olarak adlandırız. Veritabanı adınıda bu kısma yazarız.
Kodumuzun Son hali;

<%
Set degisken= Server.createObject("Adodb.Connection")
degisken.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=mysql_user; pwd=mysql_pass; db=mysql_db;"
%>

Sıra Mssql veritabanı baglantısına geldi bu veritabanında da aynı işlev geçerlidir. İlk olarak Adodb.Connection nesnesini oluştururuz.
Mssql veritabanı kodu ise;

<%
degisken.Open "Provider=SQLOLEDB;Server=localhost;User ID=kulladi;Password=sifre;Database=dataadi;"
%>

Bu kodumuzda ise yine "Server" kısmı localhost olarak kalıcaktır.
"User ID" kismi ise Mssql veritabanı için oluşturulan kullanıcı adını yazdıgımız yerdir.
"Password" kismida Mssql veritabanı için şifredir.
yine en son olarak "Database" olarak adlandırılan veritabanı adı kısmıdır.
Myssql veritabanı baglantısı için kodumuzun son hali;

<%
Set degisken = Server.CreateObject("Adodb.Connection")
degisken.Open "Provider=SQLOLEDB;Server=localhost;User ID=kulladi;Password=sifre;Database=dataadi;"
%>

Hepinize Kolay gelsin :)