<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' New Personal View '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Function Get_All_Pkg_Names Get_All_Pkg_Names = " SELECT * FROM packages WHERE pkg_id > 0 ORDER BY UPPER(pkg_name) ASC" End Function %> <% 'Process submition If CBool(QStrPar("action")) Then Call OpenInParentWindow("_add_new_personal_view.asp?FRviewname=" & QStrPar("FRviewname") & "&FRpkginc=" & Request("FRpkginc") & "&FRpubread=" & QStrPar("FRpubread")) Call Destroy_All_Objects Response.End End If %> Release Manager
 
View Name
  public read<%=Quick_Help("pubread")%>
<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%rsTemp.MoveNext WEnd%> <%If rsTemp.RecordCount < 1 Then%> <%End If%>
  Package Name
"> <%=rsTemp.Fields("pkg_name")%>
NO PACKAGES FOUND!
<% Call Destroy_All_Objects %>