Subversion Repositories DevTools

Rev

Rev 5962 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5962 Rev 6671
Line 12... Line 12...
12 
Dim APP_ROOT
 12 
Dim APP_ROOT
13 
Dim rootPath
 13 
Dim rootPath
14 
Dim scriptName
 14 
Dim scriptName
15 
Dim SMTP_HOST
 15 
Dim SMTP_HOST
16 
Dim ACCESS_MANAGER_URL
 16 
Dim ACCESS_MANAGER_URL
- 
 
 17 
Dim DEPLOYMENT_MANAGER_URL
- 
 
 18 
Dim PRODUCTION_MANAGER_URL
- 
 
 19 
Dim RELEASE_MANAGER_URL
17 
Dim strRelativePath             ' Rel Path from script to URL
 20 
Dim strRelativePath             ' Rel Path from script to URL
18 
Dim managerSuiteBase            ' Url to the base of the Manager Suite
 21 
Dim managerSuiteBase            ' Url to the base of the Manager Suite
19 
Dim FavIcon                     ' Favorite Icon
 22 
Dim FavIcon                     ' Favorite Icon
20 
Dim RmDebug                     ' Debug Display
 23 
Dim RmDebug                     ' Debug Display
- 
 
 24 
Dim VixVerNum : VixVerNum = 1   ' Bump to force cache reload of many resources
21 
 
 25 
 
22 
' -----------------------------------------------------
 26 
' -----------------------------------------------------
23 
%>
 27 
%>
24 
<%
 28 
<%
25 
' -- DATABASE CONNECTIONS -----------------------------
 29 
' -- DATABASE CONNECTIONS -----------------------------
Line 135... Line 139...
135 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
 139 
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
136 
 
 140 
 
137 
strRelativePath = GetPathToBase()
 141 
strRelativePath = GetPathToBase()
138 
managerSuiteBase = GetManagerSuiteBase()
 142 
managerSuiteBase = GetManagerSuiteBase()
139 
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
 143 
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
- 
 
 144 
DEPLOYMENT_MANAGER_URL  = ManagerSuiteBase & "/Deployment_Manager"
- 
 
 145 
PRODUCTION_MANAGER_URL  = ManagerSuiteBase & "/Production_Manager"
- 
 
 146 
RELEASE_MANAGER_URL     = ManagerSuiteBase & "/Release_Manager"
140 
FavIcon = strRelativePath & "favicons/PM" & Application("FavIconSuffix") & ".png"
 147 
FavIcon = strRelativePath & "favicons/PM" & Application("FavIconSuffix") & ".png"
141 
 
 148 
 
142 
' -----------------------------------------------------
 149 
' -----------------------------------------------------
143 
%>
 150 
%>
144 
<%
 151 
<%