<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' REMOVE Package Doc ' --- 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", "documentation.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Sub Remove_Package_Document ( nPv_id, nDoc_id ) OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DOC_ID", nDoc_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN Remove_Document ( :PV_ID, :DOC_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "DOC_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("pv_id") <> "") AND (Request("doc_id") <> "") Then ' All mandatory parameters FOUND Call Remove_Package_Document ( Request("pv_id"), Request("doc_id") ) Response.Redirect("documentation.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 %>