%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' New Public 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 %>