<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' IGNORE WARNINGS ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "dependencies.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim FRrtag_id Dim FRpv_id Dim FRforced '------------ Constants Declaration ----------- '------------ Variable Init ------------------- FRrtag_id = Request("rtag_id") FRpv_id = Request("pv_id") FRforced = Request("forced") '---------------------------------------------- %> <% '--------------------------------------------------------------------------------------------------------------------- %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (FRrtag_id <> "") AND (FRpv_id <> "") Then Call SetIgnoreWarnings (FRforced, FRpv_id, FRrtag_id) 'Call Notify ( FRrtag_id ) Response.Redirect("dependencies.asp?rtag_id="& FRrtag_id &"&pv_id="& FRpv_id) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>