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