<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' REMOVE Issue ' --- 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", "fixed_issues.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Sub Remove_Issue( NNpv_id, NNiss_link ) objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "DELETE FROM jira_issues WHERE pv_id = "& NNpv_id &" AND iss_key = '"& NNiss_link&"'" OraDatabase.ExecuteSQL _ "BEGIN Log_Action ( "& NNpv_id &", 'jira_issue_removed', "& objAccessControl.UserId &", 'Issue Key: "& NNiss_link &" Removed' ); END;" objEH.CatchORA ( OraSession ) End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("pv_id") <> "") AND (Request("iss_link") <> "") Then ' All mandatory parameters FOUND Call Remove_Issue( Request("pv_id"), Request("iss_link") ) Call Destroy_All_Objects Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_FullQuery End If %>