|
|
@@ -21,8 +21,8 @@ dim DAL__Singleton : set DAL__Singleton = Nothing |
|
|
|
Function DAL() |
|
|
|
If DAL__Singleton is Nothing then |
|
|
|
set DAL__Singleton = new Database_Class |
|
|
|
' DAL__Singleton.Initialize "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\webdata - Copy.mdb;" |
|
|
|
DAL__Singleton.Initialize "Provider=SQLOLEDB;Server=danielsubuntu,15789;Database=tracking;UID=sa;PWD=SunBrightShine!;" |
|
|
|
DAL__Singleton.Initialize "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\webdata - Copy.mdb;" |
|
|
|
'DAL__Singleton.Initialize "Provider=SQLOLEDB;Server=danielsubuntu,15789;Database=tracking;UID=sa;PWD=SunBrightShine!;" |
|
|
|
End If |
|
|
|
set DAL = DAL__Singleton |
|
|
|
End Function |