| Line 16... |
Line 16... |
| 16 |
Dim dpkg_archiveURL
|
16 |
Dim dpkg_archiveURL
|
| 17 |
Dim deploy_archiveURL
|
17 |
Dim deploy_archiveURL
|
| 18 |
Dim HTTP_PKG_ARCHIVE
|
18 |
Dim HTTP_PKG_ARCHIVE
|
| 19 |
Dim release_archiveURL
|
19 |
Dim release_archiveURL
|
| 20 |
Dim ACCESS_MANAGER_URL
|
20 |
Dim ACCESS_MANAGER_URL
|
| - |
|
21 |
Dim strRelativePath ' Rel Path from script to URL
|
| 21 |
|
22 |
|
| 22 |
' -- Variable Initialisation --------------------------
|
23 |
' -- Variable Initialisation --------------------------
|
| 23 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
24 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 24 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
25 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 25 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
26 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
| Line 39... |
Line 40... |
| 39 |
rsTemp.Close()
|
40 |
rsTemp.Close()
|
| 40 |
Set rsTemp = Nothing
|
41 |
Set rsTemp = Nothing
|
| 41 |
End Function
|
42 |
End Function
|
| 42 |
|
43 |
|
| 43 |
'--------------------------------------------------------------------------------------
|
44 |
'--------------------------------------------------------------------------------------
|
| - |
|
45 |
'Return a relative path to the server base. Used for relative pathing to 'images'
|
| 44 |
archive_server = Get_Archive_Server()
|
46 |
Function GetPathToBase()
|
| - |
|
47 |
Dim url,depth,rv,ii
|
| - |
|
48 |
url = request.servervariables("URL")
|
| - |
|
49 |
url = Mid(url,Instr(url, "Release_Manager"))
|
| - |
|
50 |
depth = len(url) - len(replace(url, "/", ""))
|
| - |
|
51 |
rv = ""
|
| - |
|
52 |
For ii = 2 To depth
|
| - |
|
53 |
rv = rv & "../"
|
| - |
|
54 |
Next
|
| - |
|
55 |
GetPathToBase = rv
|
| - |
|
56 |
End Function
|
| 45 |
|
57 |
|
| - |
|
58 |
'--------------------------------------------------------------------------------------
|
| - |
|
59 |
|
| - |
|
60 |
archive_server = Get_Archive_Server()
|
| - |
|
61 |
strRelativePath = GetPathToBase()
|
| 46 |
APP_ROOT = Server.MapPath(".")
|
62 |
APP_ROOT = Server.MapPath(".")
|
| 47 |
QUERIES_PATH = APP_ROOT &"\queries"
|
63 |
QUERIES_PATH = APP_ROOT &"\queries"
|
| 48 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
64 |
scriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
| 49 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
65 |
rootPath = Left( Server.MapPath( scriptName ), InStrRev(Server.MapPath( scriptName ), "\") )
|
| 50 |
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
|
66 |
DocRepositiryLink = DOC_REPOSITORY_URL & "docLinkTo.asp?docnum="
|