<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' REMOVE Additional Note ' --- 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_Additional_Note ( nNote_id, nPv_Id ) objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL "DELETE FROM additional_notes WHERE note_id = "& nNote_id &" AND pv_id = "& nPv_id objEH.CatchORA ( OraSession ) End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("pv_id") <> "") AND (Request("note_id") <> "") Then ' All mandatory parameters FOUND Call Remove_Additional_Note ( Request("note_id"), Request("pv_id") ) Response.Redirect("fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>