<% dim objConn '============================================ '==========HELPER FUNCTIONS================== '============================================ function open_db (use_flag) Set objConn = Server.CreateObject("ADODB.Connection") select case use_flag case 0 'content management 'objConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=I:\Inetpub\wwwroot\NeustadtCreativeMarketing\data\Neustadt.accdb;Jet OLEDB:Global Bulk Transactions=1;User Id=Admin;Password=;" objConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & server.mapPath("../db/Neustadt.accdb") & ";Jet OLEDB:Global Bulk Transactions=1;User Id=Admin;Password=;" case 1 'site generation 'objConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=I:\Inetpub\wwwroot\NeustadtCreativeMarketing\data\Neustadt.accdb;Jet OLEDB:Global Bulk Transactions=1;User Id=Admin;Password=;" objConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & server.mapPath("../db/Neustadt.accdb") & ";Jet OLEDB:Global Bulk Transactions=1;User Id=Admin;Password=;" ' end select end function '============================================ function close_db () objConn.Close end function '============================================ %>