<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Import Release
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parFRproj_id
Dim parFRpkg_id
Dim parFRrtag_id
Dim parToRtag_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parFRproj_id = QStrPar("FRproj_id")
parFRpkg_id = QStrPar("FRpkg_id")
parFRrtag_id = QStrPar("FRrtag_id")
parToRtag_id = QStrPar("ToRtag_id")
If parFRpkg_id = "" Then parFRpkg_id = "-1"
If parFRproj_id = "" Then parFRproj_id = "-1"
If parFRrtag_id = "" Then parFRrtag_id = "-1"
'----------------------------------------------
%>
<%
Sub Get_Packages ( NNproj_id )
Dim rsTemp, Query_String, tempLINK
Query_String = _
"SELECT * FROM packages ORDER BY pkg_name ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
Sub Get_Package_Versions ( NNproj_id, NNrtag_id )
Dim rsTemp, Query_String, tempLINK, productId
Query_String = _
"SELECT pv_id, pkg_version FROM package_versions WHERE pkg_id = "& NNproj_id &" ORDER BY pkg_version ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'Process submition
If CBool(QStrPar("action")) Then
%>
<%
Call CloseWindow
End If
%>
Release Manager