i tried this code
<%Option Explicit
Const StringToFax = "Hello world from text."
Dim objSoap, SendfaxResult
Dim B
B = Stream_StringToBinary(StringToFax,"us-ascii")
Set objSoap = Server.CreateObject("MSSOAP.SOAPClient30")
objSoap.ClientProperty("ServerHTTPRequest") = True
objSoap.mssoapinit("http://ws.interfax.net/dfs.asmx?WSDL")
objSoap.ConnectorProperty("EnableAutoProxy") = True
'SendfaxResult = objSoap.Sendfax("username", "password", "5480015", B , "txt")
SendfaxResult = objSoap.SendfaxEx_2("username", "password", "5480015", "", B, _
"txt", UBOUND(B)+1, Now, 3, "MyCSID", "", "", "Fax Subject", "myaddress@mydomain.com", _
"Letter", "Landscape", False, True)
'SendfaxResult = objSoap.Sendfax("your user name", "your password", "+44965157785", base64_Text, "html")
If CLng(SendfaxResult) > 0 Then
Response.Write "Fax submitted. Transaction ID: " & SendfaxResult
Else
Response.Write "Error sending fax. Return code: " & SendfaxResult
End If
Function Stream_StringToBinary(Text, CharSet)
Const adTypeText = 2
Const adTypeBinary = 1
'Create Stream object
Dim BinaryStream 'As New Stream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save text/string data.
BinaryStream.Type = adTypeText
'Specify charset For the source text (unicode) data.
If Len(CharSet) > 0 Then
BinaryStream.CharSet = CharSet
Else
BinaryStream.CharSet = "us-ascii"
End If
'Open the stream And write text/string data To the object
BinaryStream.Open
BinaryStream.WriteText Text
'Change stream type To binary
BinaryStream.Position = 0
BinaryStream.Type = adTypeBinary
'Open the stream And get binary data from the object
Stream_StringToBinary = BinaryStream.Read
'Clean up
BinaryStream.Close
Set BinaryStream = Nothing
End Function
%>
but i ,m getting the error as
Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/myweb/fax.asp, line 10
is this becos i m using ssoap client which is not supported