Subversion Repositories DevTools

Rev

Rev 5514 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
62 rsolanki 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|			          Download Version			 	 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
Response.Expires = 0	' always load the page, dont store
12
%>
13
<!--#include file="common/globals.asp"-->
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/_popup_window_common.asp"-->
17
 
18
<%
19
'------------ VARIABLE DEFINITION -------------
20
Dim objWSH
21
Dim rsPkg, pkgName, pkgVersion, pkgId
22
Dim rsProj, projName, branchName
23
Dim rsOS, OSName
24
'------------ CONSTANTS DECLARATION -----------
25
'------------ VARIABLE INIT -------------------
26
'------------ CONDITIONS ----------------------
27
'----------------------------------------------
28
%>
29
<%
30
'--------------------------------------------------------------------------------------------------------------------------
31
 
32
'--------------------------------------------------------------------------------------------------------------------------
33
%>
34
<%
35
Function DateReversed ( dDate )
36
	' Ensures Reverse Date format YYYY-MM-DD
37
	If IsNull(dDate) Then Exit Function
38
	DateReversed = Year(dDate) &"-"&  Month(dDate) &"-"& Day(dDate)
39
End Function
40
'**************************** M  A  I  N ******************************
41
%>
42
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
43
<script language="JavaScript" type="text/javascript">
44
<!--
45
function Log_Download(paramString){
46
      window.location = "LogDownload.asp" + paramString;     
47
}
48
//-->
49
</script>
50
<%
51
If Request("bom_id") <> "" AND Request("prod_id") <> "" AND Request("os_id") Then
52
 
53
	Set rsPkg = OraDatabase.DbCreateDynaset( "select * from package_versions pv, packages pkg where pv.pv_id = "&Request("prod_id")&" and pkg.pkg_id = pv.pkg_id", cint(0))
54
 
55
	pkgName = rsPkg("pkg_name")
56
	pkgVersion = rsPkg("pkg_version")
57
	pkgId = rsPkg("pkg_id")
58
 
59
	rsPkg.Close()
60
	Set rsPkg = nothing
61
 
62
	Set rsProj = OraDatabase.DbCreateDynaset( "select br.branch_name, prj.proj_name from boms bm, branches br, dm_projects prj where bm.bom_id = "&Request("bom_id")&" and br.BRANCH_ID = bm.RTAG_ID_FK and prj.PROJ_ID = br.PROJ_ID", cint(0))
63
 
64
	projName = rsProj("proj_name")	
65
	branchName = rsProj("branch_name")
66
 
67
	rsProj.Close()
68
	Set rsProj = nothing
69
 
70
 
71
	Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&Request("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0))
72
 
73
	OSName = rsOS("bos_type")
74
 
75
	If OSName = "Windows" OR OSName = "MOS" Then
76
		OSName = "win32"
77
	Else
78
		OSName = "sparc"
79
	End If	
80
 
81
	rsOS.Close()
82
	Set rsOS = nothing	
83
 
5962 dpurdie 84
%>
62 rsolanki 85
	<img hspace=4 src="images\download.jpg" align="left" border=0><a href="http://auperaunx26/releases/<%=projName%>/<%=branchName%>/region/<%=pkgName%>/<%=OSName%>/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip" onClick="Log_Download(?pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>);"  class="body_link"><b>Click here to Download</b></a>
86
<%
87
End If
88
'**********************************************************************
5962 dpurdie 89
Call Destroy_All_Objects
62 rsolanki 90
%>