<%
Set bag = Server.CreateObject("ADODB.Connection")
vt_yol = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
bag.Open vt_yol
%>