<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| Download Version |
'| |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim objWSH
Dim rsPkg, pkgName, pkgVersion, pkgId
Dim rsProj, projName, branchName
Dim rsOS, OSName
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
Function DateReversed ( dDate )
' Ensures Reverse Date format YYYY-MM-DD
If IsNull(dDate) Then Exit Function
DateReversed = Year(dDate) &"-"& Month(dDate) &"-"& Day(dDate)
End Function
'**************************** M A I N ******************************
%>
<%
If Request("bom_id") <> "" AND Request("prod_id") <> "" AND Request("os_id") Then
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))
pkgName = rsPkg("pkg_name")
pkgVersion = rsPkg("pkg_version")
pkgId = rsPkg("pkg_id")
rsPkg.Close()
Set rsPkg = nothing
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))
projName = rsProj("proj_name")
branchName = rsProj("branch_name")
rsProj.Close()
Set rsProj = nothing
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))
OSName = rsOS("bos_type")
If OSName = "Windows" OR OSName = "MOS" Then
OSName = "win32"
Else
OSName = "sparc"
End If
rsOS.Close()
Set rsOS = nothing
%>
Click here to Download
<%
End If
'**********************************************************************
%>
<%
'------------ RUN AFTER CODE RUN --------------
'----------------------------------------------
%>
Click here to Download
<%
End If
'**********************************************************************
%>
<%
'------------ RUN AFTER CODE RUN --------------
'----------------------------------------------
%>