Here's what I have:

Sub TEST_GetDetailFaxStatus()

Dim testgetdetailfaxstatus As clsGetDetailFaxStatusXML
Dim testsampleparser As clsSampleParserXML

Set testgetdetailfaxstatus = New clsGetDetailFaxStatusXML
Set testsampleparser = New clsSampleParserXML

'replace the values here with the proper account number and transaction
ID

Debug.Print
testsampleparser.parseDocument(testgetdetailfaxsta tus.SendRequest("accountnumber",
"password", "false", "", "", "", "", ""))

Debug.Print "Error Flag: " &
testsampleparser.GetNodeValue("/GetDetailFaxStatusResponse/GetDetailFaxStatusResult/Header/ErrorFlag")
Debug.Print "Transaction ID: " &
testsampleparser.GetNodeValue("/GetDetailFaxStatusResponse/GetDetailFaxStatusResult/FaxDetail/TransactionID")

End Sub


And this is what else I have:

Option Explicit

Function SendRequest(ParamArray arglist()) As String

Dim pArray() As HashRecord
Dim i As Integer
Dim strKeys
Dim responseHeaders
Dim responseBody
Dim lastError

strKeys = Array("UserID", "UserPassword", "AllUsersFlag",
"BillingCodeFilter", "TransactionIDListFilter", "StartTimeStampFilter",
"EndTimeStampFilter", "FaxNumbersListFilter")

ReDim pArray(UBound(strKeys))

For i = 0 To UBound(arglist)
With pArray(i)
..strValue = arglist(i)
..strKey = strKeys(i)
End With
Next i

responseHeaders = Null
responseBody = Null
Set oXMLHttp = Nothing

InitializeServiceArrays

On Error Resume Next

If (accessWebService(strGetDetailFaxStatus, pArray())) Then
responseHeaders = oXMLHttp.getAllResponseHeaders()
responseBody = oXMLHttp.responsetext
SendRequest = responseBody
Else
lastError = "sendRequest: error initializing the socket."
SendRequest = ""
End If
If Not (Err = 0) Then
lastError = "sendRequest: unknown error occurred during the request."
SendRequest = ""
End If

End Function


--
alexm999
------------------------------------------------------------------------
alexm999's Profile: http://www.excelforum.com/member.php...fo&userid=4918
View this thread: http://www.excelforum.com/showthread...hreadid=517986