<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Reference Release
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parFRproj_id
Dim parFRrtag_id
Dim parToRtag_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parFRproj_id = QStrPar("FRproj_id")
parFRrtag_id = QStrPar("FRrtag_id")
parToRtag_id = QStrPar("ToRtag_id")
If parFRproj_id = "" Then parFRproj_id = "-1"
If parFRrtag_id = "" Then parFRrtag_id = "-1"
'----------------------------------------------
%>
<%
Sub Get_Projects ( NNproj_id )
Dim rsTemp, Query_String, tempLINK
Query_String = _
"SELECT * FROM projects ORDER BY UPPER( proj_name ) "
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
Sub Get_Release_Labels ( NNproj_id, NNrtag_id )
Dim rsTemp, Query_String, tempLINK
Query_String = _
"SELECT rtag_id, rtag_name FROM release_tags WHERE proj_id = "& NNproj_id &" AND OFFICIAL='Y' ORDER BY UPPER(rtag_name)"
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