Applying Software Design Techniques to the Web (Web Techniques, Aug 2000)

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' ************************************************************************ '
' * Title:      global.asa												 * '
' * Author:     Scott Baker												 * '
' *             Copyright (c) 2000 Elsinore Technologies, Inc			 * '
' * Date:       1-May-00												 * '
' ************************************************************************ '
' * Description:														 * '
' *     This file contains the Scope-Level object declarations which     * '
' *     access elements of the Visual Intercept Software Developers Kit  * '
' *     COM object.  These objects will persist for the length of the    * '
' *     application.  Also, the method Application_OnEnd()is used to     * '
' *     handle the emptying of the Visual Intercept Incidents collection * '
' *     and to sever the connection to the data source created by the    * '
' *     default.asp page.												 * '
' ************************************************************************ '
' * Change History:														 * '
' *																		 * '
' *  1-May-00           File was created.								 * '
' ************************************************************************ '
' * Software Design comments for this file:								 * '
' *																		 * '
' *  1. Use of an include file promotes information hiding by separating * '
' *       the code from the HTML file and modularity by organizing the   * '
' *       code into functions that perform exactly one task.			 * '
' *																		 * '
' *  2. Use of (modified) Hungarian Notation promotes a common naming    * '
' *       convention.  No matter what standards are used by your organ-  * '
' *       ization, an accepted set of mnemonics allows other developers  * '
' *       to quickly read through your code and identify the purpose and * '
' *       type of variable of variable they are looking at.				 * '
' ************************************************************************ '
</SCRIPT>

<OBJECT RUNAT=Server SCOPE=Application ID=viEngine 
        PROGID="VisualIntercept.viEngine">
</OBJECT>

<OBJECT RUNAT=Server SCOPE=Application ID=viIncidents 
        PROGID="VisualIntercept.viCollection">
</OBJECT>

<OBJECT RUNAT=Server SCOPE=Application ID=viIncident 
        PROGID="VisualIntercept.viIncident">
</OBJECT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnEnd()
	'Clean up on exit
	viIncidents.RemoveAll	'Empties Collection
	viEngine.Logoff			'Breaks Session
End Sub

</SCRIPT>