Subversion Repositories DevTools

<%

'=====================================================

'                   CONFIG FILE

'=====================================================

%>

<%

' -- VARIABLE DEFINITION ------------------------------

Dim OraSession, OraDatabase     ' DB connection

Dim QUERIES_PATH

Dim SCRIPT_NAME

Dim APP_ROOT

Dim strRelativePath             ' Rel Path from script to URL

Dim FavIcon                     ' Favorite Icon

Dim RmDebug                     ' Debug Display

' -- Basic Functions ----------------------------------

' --------------------------------------------------------------------------------------

' Determine if a variable or Const exists and is not empty

'   Use to check if a vbscript variable has been declared and contains a non-empty value

Function isDefined( var)

    If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then

        isDefined = TRUE

    Else

        isDefined = FALSE

   End If

End Function

' --------------------------------------------------------------------------------------

' Return a relative path to the server base. Used for relative pathing to 'images'

' Assumes server base is two directores below the web serve root (ie: /ManageSuite/XXXXXX_Manager)

Function GetPathToBase()

    Dim url,depth,rv,ii

    url = request.servervariables("URL")

    depth =  len(url) - len(replace(url, "/", ""))

    rv = ""

    For ii = 4 To depth

        rv = rv & "../"

    Next

    GetPathToBase = rv

End Function

'-----------------------------------------------------------------------------------------------------------------------------

'   Destroy_All_Objects

'   Should be used by ALL pages and error handling code in order to reduce memory and handle leaks

'   May be used directly or via _footer.asp or globals_destructor.asp

Sub Destroy_All_Objects

    On Error Resume Next

    '   Some global objects

    Set objAccessControl = Nothing

    Set objPMod = Nothing

    Set objEH = Nothing

    Set objTabControl = Nothing

    Set objBtnControl = Nothing

    Set objFormCollector = Nothing

    '   Delete ALL Oracle bound variables

    '   Note: Bound Variables that remain at the end of a Page Process will cause an Oracle Session leak

    If TypeName(OraDatabase) = "IOraDatabase" Then

        While OraDatabase.Parameters.Count > 0

            OraDatabase.Parameters.Remove(0)

        Wend

    End  If

    '   Some commonly used database objects

    rsTemp.Close

    Set rsTemp = Nothing

    rsRep.Close

    Set rsRep = Nothing

    rsQry.Close

    Set rsQry = Nothing

    '   Database objects

    set OraDatabase = Nothing

    set OraSession = Nothing

End Sub

' -- DATABASE CONNECTIONS -----------------------------

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("ACCESS_MANAGER_LOGIN"), Cint(0))

' -- CONFIGURATIONS -----------------------------------

APP_ROOT = Server.MapPath(".")

QUERIES_PATH = APP_ROOT &"\queries"

Const ADMIN_EMAIL = "VixIT@vixtechnology.com"

Const APPLICATION_ID = 9                        ' Stored in Access Manager, [APPLICATIONS] table

Const enumDB_PERMISSION_TYPE_VISIBLE = 1        ' Stored in Access Manager, [Permission_Types] table

Const enumDB_PERMISSION_TYPE_ACTIVE = 2         ' Stored in Access Manager, [Permission_Types] table

' -- VARIABLE INITIALISATION --------------------------

SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )

strRelativePath = GetPathToBase()

FavIcon = strRelativePath & "favicons/AM" & Application("FavIconSuffix") & ".png"

' -- CONSTANTS ----------------------------------------

Const enumDB_DEFAULT_EMPTY = -1

Const enumDB_YES = "Y"

Const enumDB_NO = "N"

Const enumCOOKIE_NAME = "ACCESS_MANAGER"

Const SPACER = "<img src='images/spacer.gif' width='1' height='1'>"

' -----------------------------------------------------

%>

<%

' -- OO4O ---------------------------------------------

const ORATYPE_VARCHAR2 = 1

const ORATYPE_NUMBER = 2

const ORATYPE_SINT = 3

const ORATYPE_FLOAT = 4

const ORATYPE_STRING = 5

const ORATYPE_VARCHAR = 9

const ORATYPE_DATE = 12

const ORATYPE_UINT = 68

const ORATYPE_RAW = 95

const ORATYPE_CHAR = 96

const ORATYPE_CHARZ = 97

const ORATYPE_MLSLABEL = 105

const ORATYPE_OBJECT = 108

const ORATYPE_REF = 110

const ORATYPE_CLOB = 112

const ORATYPE_BLOB = 113

const ORATYPE_BFILE = 114

const ORATYPE_VARRAY = 247

const ORATYPE_TABLE = 248

const ORATYPE_CURSOR = 102

const ORAPARM_INPUT=1   

const ORAPARM_OUTPUT=2  

const ORAPARM_BOTH=3

const ORADYN_DEFAULT=&H0&

' -----------------------------------------------------

%>

<%

' -- ERROR MESSAGES -----------------------------------

' -----------------------------------------------------

%>

<%

' -- ICONS --------------------------------------------

' -- ICONS SMALL --------------------------------------

Const LIMG_COMPUTERS = "<img src='images/i_computer.gif' width='11' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_COMPUTERS_LRG = "<img src='images/i_computer_lrg.gif' width='18' height='18' hspace='2' border='0' align='absmiddle'>"

Const LIMG_CONTROL = "<img src='images/i_control.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_CONTROL_LRG = "<img src='images/i_control_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"

Const LIMG_DATA_TABLE = "<img src='images/i_data_table.gif' hspace='2' border='0' align='absmiddle' title='See this Control Data Filter (Filter is ON)'>"

Const LIMG_DATA_TABLE_OFF = "<img src='images/i_data_table_off.gif' hspace='2' border='0' align='absmiddle' title='See this Control Data Filter (Filter is OFF)'>"

Const LIMG_DISK = "<img src='images/i_disk.gif' width='16' height='16' hspace='4' border='0' align='absmiddle'>"

Const LIMG_DRILL_DOWN = "<img src='images/i_drill_down.gif' width='12' hspace='2' height='14' border='0'>"

Const LIMG_EDIT = "<img src='images/i_edit_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_EDIT_OFF = "<img src='images/i_edit_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"

Const LIMG_LOGOFF = "<img src='icons/i_logoff.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='User Logoff'>"

Const LIMG_LOGON_FAIL = "<img src='icons/i_logon_fail.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='User Logon Fail'>"

Const LIMG_LOGON_SUCCESS = "<img src='icons/i_logon_success.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='User Logon Successful'>"

Const LIMG_REMOVE = "<img src='images/i_remove_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_ROLE_LRG = "<img src='images/i_role_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"

Const LIMG_SESSION_EXPIRE = "<img src='icons/i_session_expire.gif' width='18' height='18' hspace='2' border='0' align='absmiddle' title='Session Timed Out'>"

Const LIMG_SPEC_ROLE = "<img src='images/i_spec_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_SPEC_ROLE_LRG = "<img src='images/i_spec_role_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"

Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"

Const LIMG_USER_DISABLED_LRG = "<img src='images/i_user_disabled_lrg.gif' width='17' height='18' hspace='2' border='0' align='absmiddle'>"

Const LIMG_USER_LRG = "<img src='images/i_user_lrg.gif' width='13' height='17' hspace='2' border='0' align='absmiddle'>"

' -----------------------------------------------------

%>