BDG Scenario 3

global.asa

<!--==Visual InterDev Generated - startspan==-->
<!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX Data Objects 2.1 Library" UUID="{00000201-0000-0010-8000-00AA006D2EA4}" VERSION="2.1"-->
<!--==Visual InterDev Generated - endspan==-->
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

'You can add special event handlers in this file that will get run automatically when
'special Active Server Pages events occur. To create these handlers, just create a
'subroutine with a name from the list below that corresponds to the event you want to
'use. For example, to create an event handler for Session_OnStart, you would put the
'following code into this file (without the comments):

'Sub Session_OnStart
'**Put your code here **
'End Sub

'EventName              Description
'Session_OnStart        Runs the first time a user runs any page in your application
'Session_OnEnd          Runs when a user's session times out or quits your application
'Application_OnStart    Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd      Runs once when the web server shuts down

</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    '==Visual InterDev Generated - startspan==
    '--Project Data Connection
        Application("Eval_ConnectionString") = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Eval;Data Source=(local);Server=(local);DataBase=Eval;Connect Timeout=15;Current Language=us_english;QueryLogFile=yes;APP=Microsoft Development Environment"
        Application("Eval_ConnectionTimeout") = 15
        Application("Eval_CommandTimeout") = 30
        Application("Eval_CursorLocation") = 3
        Application("Eval_RuntimeUserName") = ""
        Application("Eval_RuntimePassword") = ""
    '-- Project Data Environment
        'Set DE = Server.CreateObject("DERuntime.DERuntime")
        'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
    '==Visual InterDev Generated - endspan==
   Application("DefaultLanguage") = "en-us"
End Sub
</SCRIPT>