<%@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 pkg_name ASC" End Function %> <% 'Process submition If CBool(QStrPar("action")) Then %> <% Call CloseWindow End If %> Release Manager
 Create NEW Personal View
 
 
  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 %>