<!--==Visual InterDev Generated - startspan==-->
<!--METADATA TYPE="TypeLib" NAME="Lilly Software 6x Data Management Library 1.0" UUID="{1050EBB1-9441-11D3-8A63-00104BF1915F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="Lilly Software Data Management Library 1.0" UUID="{74C704A1-0AB3-11D3-B9C3-BB23FD298935}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="VMFG Global Business Logic Library" UUID="{4A0EE891-6142-11D3-8A01-00104BF1915F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="VMFG Inventory Business Logic Library" UUID="{37F3C561-6A0C-11D3-8A0A-00104BF1915F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="VMFG Sales Business Logic Library" UUID="{49431731-80F5-11D3-8A36-00104BF1915F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="VMFG Financials Business Logic Library" UUID="{43B56231-886C-11D3-8A47-00104BF1915F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="VMFG Shopfloor Business Logic Library" UUID="{E5B8B671-6D0F-11D3-8A0F-00104BF1915F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="Vweb Sales Business Logic Library 1.0" UUID="{221A4931-A4FC-11D3-8045-00104BF133E6}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="Vweb Shared Business Logic Library 1.0" UUID="{BE3D7F3B-1304-49ED-A63F-C2DCBBC7776F}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="Vweb Inventory Business Logic Library 1.0" UUID="{F6CD3036-9EB4-4529-9703-9FBC45E29BFB}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX Data Objects 2.6 Library" UUID="{00000206-0000-0010-8000-00AA006D2EA4}" VERSION="2.6"-->
<!--METADATA TYPE="TypeLib" NAME="Microsoft CDO for Windows 2000 Library" UUID="{CD000000-8B95-11D1-82DB-00C04FB1625D}" VERSION="1.0"-->
<!--METADATA TYPE="TypeLib" NAME="Microsoft CDO for NTS 1.2 Library" UUID="{0E064ADD-9D99-11D0-ABE5-00AA0064D470}" VERSION="1.2"-->
<!--==Visual InterDev Generated - endspan==-->
<!--This object is used in tracking, don't touch'-->
<OBJECT RUNAT=SERVER SCOPE=Session ID = bc PROGID ="MSWC.BrowserType"></OBJECT>
<!--#include file="Shared/init.asp"-->
<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
Sub Application_OnStart
Application("bDatabaseOpened") = False
' Client Login
' Determines whether business objects will load will be run by the client (web server) or
' by an application server (MTS).
' Set bVMfgClientLogin or bVWebClientLogin = True to run without MTS
' Set bVMfgClientLogin or bVWebClientLogin = False to run with MTS
Application("bVMFGClientLogin") = True
Application("bVWebClientLogin") = True
'Database related variables
Application("VMfgDb") = Null
Application("VWebDb") = Null
Application("VWEB_Instance") = "VWEB"
Application("VMFG_Instance") = "VMFG"
Application("VM_UserID") = "SYSADM"
Application("VM_Password") = "SYSADM"
Application("VWEB_UserID") = "VWEB"
Application("VWEB_Password") = "VWEB"
'Product Categories variables
Application("ProductList") = ""
Application("ProductDescriptions") = ""
'Open the Database Connections
DbmsOpen()
'Create the list of Product Categories
Load_ProductCategories()
'version control
Application("SiteVersion") = false
'Load the variables via the database
Load_ApplicationVariables()
Application("LoadCounter") = 0
End Sub
Sub Session_OnStart
'Variable to determine how many times to try and connect to the database
Session("CurrentRetryAttempts") = 0
CheckSiteVer()
'Used to determine IP name under which vb2c is installed.
Session("HOST") = Request.ServerVariables("HTTP_HOST")
'Load all the session variables from here.
Load_Session()
'Check the Browser
Browser_Detect()
End Sub
Sub Session_OnEnd
'Logout a user if he/she has forgotten to logout.
Login_EndSession()
Session.Abandon()
End Sub
Sub Application_OnEnd
DbmsClose()
End Sub
</SCRIPT>