Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
| Kod Alanı: |
<% 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" ) %> |