Subversion Repositories DevTools

Rev

Rev 5642 | Rev 5961 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5642 Rev 5958
Line 23... Line 23...
23 
Dim PRODUCTION_MANAGER_URL
 23 
Dim PRODUCTION_MANAGER_URL
24 
Dim strRelativePath             ' Rel Path from script to URL
 24 
Dim strRelativePath             ' Rel Path from script to URL
25 
Dim managerSuiteBase            ' Url to the base of the Manager Suite
 25 
Dim managerSuiteBase            ' Url to the base of the Manager Suite
26 
Dim FavIcon                     ' Favorite Icon
 26 
Dim FavIcon                     ' Favorite Icon
27 
Dim RmDebug                     ' Debug Display
 27 
Dim RmDebug                     ' Debug Display
28 
 
 - 
 
29 
' -----------------------------------------------------
 28 
' -----------------------------------------------------
30 
%>
 29 
%>
31 
<%
 30 
<%
32 
' -- DATABASE CONNECTIONS -----------------------------
 31 
' -- DATABASE CONNECTIONS -----------------------------
33 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 32 
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Line 90... Line 89...
90 
Function GetManagerSuiteBase
 89 
Function GetManagerSuiteBase
91 
    Dim data
 90 
    Dim data
92 
    data = Split(request.servervariables("URL"),"/")
 91 
    data = Split(request.servervariables("URL"),"/")
93 
    GetManagerSuiteBase =  "/" & data(1)
 92 
    GetManagerSuiteBase =  "/" & data(1)
94 
End Function
 93 
End Function
- 
 
 94 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 95 
'   Destroy_All_Objects
- 
 
 96 
'   Should be used by ALL pages and error handling code in order to reduce memory and handle leaks
- 
 
 97 
'   Needs to kept in sync with common/destructor.asp
- 
 
 98 
Sub Destroy_All_Objects
- 
 
 99 
    On Error Resume Next
- 
 
 100 
 
- 
 
 101 
    '   Some global objects
- 
 
 102 
    Set objAccessControl = Nothing
- 
 
 103 
    Set objPMod = Nothing
- 
 
 104 
    Set objEH = Nothing
- 
 
 105 
    Set oEnumStateTypeNames = Nothing
- 
 
 106 
    Set objTabControl = Nothing
- 
 
 107 
    Set objCrumbs = Nothing
- 
 
 108 
    Set objBtnControl = Nothing
- 
 
 109 
    Set objFormCollector = Nothing
- 
 
 110 
 
- 
 
 111 
    '   Global package info
- 
 
 112 
    Set pkgInfoHash = Nothing
- 
 
 113 
 
- 
 
 114 
    '   Delete ALL Oracle bound variables
- 
 
 115 
    '   Note: Bound Variables that remain at the end of a Page Process will cause an Oracle Session leak
- 
 
 116 
    If TypeName(OraDatabase) = "IOraDatabase" Then
- 
 
 117 
        While OraDatabase.Parameters.Count > 0
- 
 
 118 
            OraDatabase.Parameters.Remove(0)
- 
 
 119 
        Wend
- 
 
 120 
    End  If
- 
 
 121 
 
- 
 
 122 
    '   Some commonly used database objects
- 
 
 123 
    rsTemp.Close
- 
 
 124 
    Set rsTemp = Nothing
- 
 
 125 
 
- 
 
 126 
    rsRep.Close
- 
 
 127 
    Set rsRep = Nothing
- 
 
 128 
 
- 
 
 129 
    rsQry.Close
- 
 
 130 
    Set rsQry = Nothing
- 
 
 131 
 
- 
 
 132 
    '   Database objects
- 
 
 133 
    set OraDatabase = Nothing
- 
 
 134 
    set OraSession = Nothing
- 
 
 135 
End Sub
95 
 
 136 
 
96 
' -- CONFIGURATIONS -----------------------------------
 137 
' -- CONFIGURATIONS -----------------------------------
97 
Const APPLICATION_ID = 1  			' Stored in Deployment Manager, [APPLICATIONS] table
 138 
Const APPLICATION_ID = 1  			' Stored in Deployment Manager, [APPLICATIONS] table
98 
APP_ROOT = Server.MapPath(".")
 139 
APP_ROOT = Server.MapPath(".")
99 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"
 140 
TNS_NAME = Application("TNS_NAME") '"RELEASEM"