954,600 Members — Technology Publication meets Social Media
Username:
Password:
Lost login information?
Have something to say? Contribute New Article Reply to this Article

sending to efax

i am developing a hotel site. when a person submit the form
the message should to go their efax.how i should proceed. any body can help me?

aarya
Junior Poster
139 posts since Sep 2005
Reputation Points: 11
Solved Threads: 0
 

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

aarya
Junior Poster
139 posts since Sep 2005
Reputation Points: 11
Solved Threads: 0
 

are you trying to get it to fax to the hotel or send them an email of the fax?

william_stam
Junior Poster
131 posts since Mar 2005
Reputation Points: 10
Solved Threads: 2
 

SOAP is supported as long as you have the dlls installed on the server. It looks like the code you have is example only code from the providers of the fax service. And which is line 10 of the code? Very difficult to track down the problem if we don't know which line the error refers to.

Lafinboy
Junior Poster
172 posts since Jul 2004
Reputation Points: 16
Solved Threads: 7
 

This article has been dead for over three months

Post: Markdown Syntax: Formatting Help
You