<%
Yol=("C:\Inetpub\vhosts\xx.com\httpdocs\database.m db")
set Baglanti= server.CreateObject("ADODB.Connection")
with Baglanti
.ConnectionString = "provider=microsoft.Jet.oledb.4.0;data source=" &Yol
.ConnectionTimeout =60
.Open
end with
%>