<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' MAKE APPROVED FOR AUTOMATED BUILD ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile Dim retParameters '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = Request("pv_id") parRfile = Request("rfile") '---------------------------------------------- %> <% '----------------------- MAIN LINE --------------------------- '--- Process submission --- If ( parRtag_id <> "") AND (parPv_id <> "") Then If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters, FALSE) = TRUE Then If parRfile <> "" Then Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) Else Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) End If Else 'This is currently done inside Make_This_PVID_Approved() 'Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" ) End If Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>