<%@ Page Language="vb" %> <% ' ' Dim oSF As New interfax.InterFax() 'Reference to Interfax object Dim intRet As Integer Dim B() As Byte ' ' Invoke Interfax FaxStatus method ' intRet = oSF.GetFaxImage("","", 2484342 , B) If intRet <> 0 Then ' ' An error occured - see documentation ' Response.Write("Error !! " & intRet) Else ' ' A normal response returned from Interfax server ' Save the file ' Dim fs As System.IO.FileStream 'Reference to Filestream object ' ' Make sure the file exists and ASPX script has access to the file. ' fs = IO.File.Open("C:\temp\Out.tif", IO.FileMode.Create, IO.FileAccess.Write) ' ' Allocate a byte array according to file length ' ' ' Read the entire file ' fs.Write(B, 0, B.Length) fs.Close fs = Nothing ' ' Clean up ' oSF = Nothing Response.Write("File created. Size: " & B.Length & " bytes") End If %>