Subversion Repositories DevTools

Rev

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

Rev 37 Rev 43
Line 40... Line 40...
40
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
40
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
41
Const ADMIN_EMAIL = "releasem@erggroup.com"
41
Const ADMIN_EMAIL = "releasem@erggroup.com"
42
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
42
Const enumDB_PERMISSION_TYPE_VISIBLE = 1		' Stored in Access Manager, [Permission_Types] table
43
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
43
Const enumDB_PERMISSION_TYPE_ACTIVE = 2			' Stored in Access Manager, [Permission_Types] table
44
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
44
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
45
Const ACCESS_MANAGER_URL = "http://erg:8002/ManagerSuite/Access_Manager"
45
Const ACCESS_MANAGER_URL = "http://bms:8002/ManagerSuite/Access_Manager"
46
Const RELEASE_MANAGER_URL = "http://erg:8002/ManagerSuite/Release_Manager"
46
Const RELEASE_MANAGER_URL = "http://bms:8002/ManagerSuite/Release_Manager"
47
' -----------------------------------------------------
47
' -----------------------------------------------------
48
%>
48
%>
49
<%
49
<%
50
' -- VARIABLE INITIALISATION --------------------------
50
' -- VARIABLE INITIALISATION --------------------------
51
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
51
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )