Yazdırılabilir Sayfa

<% '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'Güzel fonksiyonumuz Function ConnectDB(DBPath) Set ConnectDB = Server.CreateObject("ADODB.Connection" ) ConnectStr = "Provider='Microsoft.Jet.OLEDB.4.0';" _ & "Data Source='" & Server.MapPath(DBPath) & "';" ConnectDB.Open ConnectStr End Function '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< %> <% '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'Gittikçe gider Set oConNew = ConnectDB("/db/NewDB.mdb" ) Set oConLink = ConnectDB("/db/LinkDB.mdb" ) '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< %>