<%@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_db, NNiss_id ) Dim iss_num iss_num = GetIssueNumber ( NNiss_db, NNiss_id ) objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "DELETE FROM cq_issues WHERE pv_id = "& NNpv_id &" AND iss_db = "& NNiss_db &" AND iss_id = "& NNiss_id OraDatabase.ExecuteSQL _ "BEGIN Log_Action ( "& NNpv_id &", 'issue_removed', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' ); END;" objEH.CatchORA ( OraSession ) End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("pv_id") <> "") AND (Request("iss_db") <> "") AND (Request("iss_id") <> "") Then ' All mandatory parameters FOUND Call Remove_Issue( Request("pv_id"), Request("iss_db"), Request("iss_id") ) 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 %>