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"