<%@ Page Language="vb" %> <% Dim oSF As New interfax.InterFax() 'Reference to Interfax object Dim List(9) As interfax.FaxItemEx 'Data structure (array) to hold results - max 10 items Dim intTotalCount As Integer 'Total number of messages available for the user Dim intListSize As Integer 'Actual size of list returned (Number of items in List() Dim strOut as string 'Hold the results Dim i As Integer Dim intRet As Integer ' ' Invoke Interfax FaxStatus method ' List = oSF.FaxStatusEx("", "", 2147483647, 10, intTotalCount, intListSize, intRet) If intRet <> 0 Then ' ' An error occured - see ducumentation ' Response.Write("Error !! " & intRet) Else ' ' A normal response returned from Interfax server ' Start display ' Response.Write("Total received: " & intListSize & " of " & intTotalCount & "
") strOut = strOut & "TransactionID" & " : " & "Status" & " : " & "RemoteCSID" & vbCrLf For i = 0 To intListSize - 1 Response.Write("TransactionID: " & List(i).TransactionID & " Status: " & List(i).Status & " Completed at: " & List(i).CompletionTime & "
") Next ' ' Clean up ' oSF = Nothing End If %>