<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wRemoveBulkNodes | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBom_id = Request("bom_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub RemoveNodeList () On Error Resume Next OraDatabase.Parameters.Add "NODE_ID_LIST", Request("node_id_list"), ORAPARM_INPUT, ORATYPE_STRING OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Network_Node.Remove_Node ( :NODE_ID_LIST, :BOM_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "NODE_IDS" OraDatabase.Parameters.Remove "BOM_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If Request("action") Then ' --- Form is Valid --- Call RemoveNodeList() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() ) Call CloseWindow() End If Else Session( enumVALIDATION_CONTROL_SESSION ) = NULL ' Clean session for usage End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags ()%>

Remove Network Node Select one or more Network Nodes.

<%If NOT objEH.Finally Then%> <%End If%> <% OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodeList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "BOM_ID" %> <%objEH.DisplayMessage()%> Network Node "> " hspace="2" align="absmiddle"><%=rsQry("node_name")%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>