<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' REMOVE Runtime dependency ' --- 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", "runtime_dependencies.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Sub Remove_Runtime_Dependency ( NNpv_id, NNrtd_id ) OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTD_ID", NNrtd_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_Runtime ( :PV_ID, :RTD_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTD_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("pv_id") <> "") AND (Request("rtd_id") <> "") AND (Request("rtag_id") <> "") Then ' All mandatory parameters FOUND Call Remove_Runtime_Dependency ( Request("pv_id"), Request("rtd_id") ) Response.Redirect("runtime_dependencies.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 %>