%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| CONTENTS | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Make sure rtag_id is always present If Request("rtag_id") = "" Then Response.Redirect("index.asp") End If %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parMinEnv ' show/hide whole environment '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parMinEnv = Get_parMinEnv ( QStrPar("minenv") ) Set pkgInfoHash = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <%'Refresh parent window after the child window is closed If QStrPar("refresh") = "true" Then Response.Redirect( scriptName &"?done=done"& QSTR) ' Note: "done" parameter is required as QSTR cannot stant on its own. End If %> <% Call Rebuild_Environment ( parRtag_id ) %> <% If Request("pv_id") <> "" Then Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") ) Else Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id")) End If %>