© 2004 Microsoft Corporation. All rights reserved.

  • Article
Figure 2 Chain of Responsibility Pattern Implementation

Figure 2 Chain of Responsibility Pattern Implementation
Figure 5 MTS

Figure 5 Bound and Unbound Ports
Figure 7 IHandler_HandleRequest
  Private Function IHandler_HandleRequest(sXML As String) As String
    Dim oClient As BizTalkPatterns.Client
    Dim bSendDirect As Boolean
    Dim sNextInChain As String
    
On Error GoTo ExceptionHandler
    sNextInChain = "productsupport2"
    
    •••
    bSendDirect = IIf(oDOM.selectSingleNode(".//senddirect").Text = "1", 
                      True, False)
    If bSendDirect Then
        Set oClient = CreateObject("BizTalkPatterns.Client")
        Call oClient.Execute(sXML, sNextInChain)
        IHandler_HandleRequest = ""
    Else
        IHandler_HandleRequest = ".\private$\" & sNextInChain
    End If
    
ExceptionHandler:
    •••
End Function