<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| '| _iframe_pkgs_followed.asp '| This page is designed to be called from within an IFRAME '| '| Follow specified package in one or more projects '| '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp Dim parProjId Dim parPkgId '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parProjId = Request("proj_id") parPkgId = Request("pkg_id") '---------------------------------------------- Function Get_My_Interest_Packages ( NNuser_id ) Get_My_Interest_Packages = _ "WITH Followed AS" &_ " (SELECT PRJ.proj_id," &_ " PRJ.proj_name," &_ " 1 AS inUse" &_ " FROM PACKAGE_INTEREST PI," &_ " PROJECTS PRJ" &_ " WHERE PI.USER_ID = " & NNuser_id &_ " AND PI.PKG_ID = " & parPkgId &_ " AND PI.PROJ_ID = PRJ.PROJ_ID" &_ " )" &_ "SELECT prj.proj_id," &_ " prj.proj_name," &_ " NVL(Followed.inUse,0) as Followed" &_ " FROM PROJECTS PRJ," &_ " Followed" &_ " WHERE prj.proj_id = Followed.proj_id (+)" &_ " ORDER BY upper(PRJ.PROJ_NAME)" End Function '-------------------------------------------------------------------------------------------------------------------------- %> Release Manager

You are currently interested in this package in the selected projects.

NOTE: You will be notified when the package is officially released/autobuild.

Project 
<% Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <%If rsTemp("followed") <> 0 Then %> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd%>
" checked>"><%=rsTemp("proj_name")%>
<%If rsTemp.RecordCount = 0 Then%>
You are interested in all current projects
<%End If%>
<%If rsTemp.RecordCount <> 0 Then%>
<%End If rsTemp.Close() set rsTemp = nothing %>
 
 
<% Call Destroy_All_Objects %>