Consuming Web Service with Soap ToolKit 3.0 ASP(Urgent!)

Hi Everyone,
I am trying to comsume a webservice using Soap tool kit 3.0 but it seems that i am missing something in here
I got this Error coming up :
SoapMapper error '80070057'

SoapMapper:Saving SoapMapper msg failed HRESULT=0x80070057: The parameter is incorrect. - Client:Unspecified client error. HRESULT=0x80070057: The parameter is incorrect.

Here is my script

<%

                        set objSOAPClient = CreateObject("MSSOAP.SoapClient30")

        objSOAPClient.ClientProperty("ServerHTTPRequest") = True

        objSOAPClient.mssoapinit("https://www.softvu.com/securewebservices/automail/automail.asmx?wsdl")

                        'objSOAPClient.ConnectorProperty("EndPointURL") = "https://www.softvu.com/securewebservices/AutoMail/automail.asmx"

                        'monticket = objSOAPClient.Login(contentItemId, password)

'objSOAPClient.detail

dim result

dim ClientId

dim Password    

ClientId = "F36C09AA2A1D40BDB8E372809E3B163B"

Password = "N@ti0n@1.b@nk.KC"        

 

' that s where i am having an Error during the login

set result = objSOAPClient.Login (ClientId, Password)

 

' Output XML file to get the Ticket #

 

            Set objFSO = CreateObject("Scripting.FileSystemObject")

            Set objOutputFile = objFSO.CreateTextFile("F:\webs\nationalbank\bankofkc\personal\ticket.xml")
                  objOutputFile.WriteLine replace(result.item(0).parentnode.xml,chr(10),vbcrlf)
                  objOutputFile.Close
            'set objOutputFile = objFSO.CreateTextFile("c:\red.xml")

Dim xmlDoc

'--- Création de l'objet XMLDOM
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
if (xmlDoc.load (Server.MapPath(".")&"\ticket.xml")) then


'Gateway Stats

SessionName = xmlDoc.getElementsByTagName("SessionKey").item(0).text
response.Write(SessionName & "Je suis ici")

            'Remove this code – Debug only


            response.Write result.item(0).parentnode.xml
                  
                  
ClientId="F36C09AA2A1D40BDB8E372809E3B163B"

TemplateID ="2"

Typee = "Standard"

IncludeOptInfo= "True"

PlainText = "False"

 
FromEmail= "webmaster@bankofkc.com"

FromFirstName= "National Bank"

FromLastName= "Of Kansas City"

EmailTemplateID = "2"

Subject ="Your NBKC Online Account Application"

HTMLBody ="<TABLE><TBODY><TR><TD><P><FONT size=2>Dear [FNAME],<BR></FONT></P></TD></TR><TR><TD><FONT size=2>Welcome to National Bank Of Kansas City! We are processing your account information and will contact you within the next business day.</FONT></TD></TR><TR><TD><FONT size=2></FONT></TD></TR><TR><TD><FONT size=2>Click the <I>What‘s Next</I> button to learn about the next steps of our online application process.</FONT></TD></TR><TR><TD><FONT size=2></FONT></TD></TR><TR><TD><FONT size=2>Thanks!</TD.< TR> </FONT><TR><TD><FONT size=2></FONT></TD></TR></TBODY></TABLE>"

HTMLSignature = "<P><STRONG>National Bank Of Kansas City</STRONG><BR>1-866-284-3928<BR><A href='http://www.nbofkc.com/'>http://www.nbofkc.com</A> </P>"
 



ContentId = "1ade8529330e42848cf73ba82d46cada"

TemplateId = ""
SortOrder = ""

 


                  
FirstName = "RED"
LastName = "Test"
Email = "red@spidertel.com"
WorkPhone = "888-888-8888"
HomePhone = "888-888-7777"
StreetAddress1 = "1224 coucou Rd"
StreetAddress2 = "1200 Coucou RD"
City = "Kansas city"
State = "MO"
Country = "USA"
PostalCode = "64111"
CellPhone = "777-888-8888"
Fax = "888-999-9999"
clientId = "F36C09AA2A1D40BDB8E372809E3B163B"

TextBody = ""
TextSignature = ""
Notify = False      
     
            
Dim result1      ,result11
'set result1 = objSOAPClient.AddRecipient(SessionName,Email)
'dim Message isArray
dim RelayContent (2)
dim Message (11)
RelayContent(0) = ContentId
RelayContent(1) = ""
RelayContent(2) = 0

Message(0) = "red@spidertel.com"
Message(1) = FirstName
Message(2) = LastName
Message(3) = FromEmail
Message(4) = FromFirstName
Message(5) = FromLastName
Message(6) = HTMLBody
Message(7) = "sss"
Message(8) = HTMLSignature
Message(9) = "sss"
Message(10) = Subject
Message(11) = True
'That where the problem occur
result1 = objSOAPClient.SendRelayMessage("F36C09AA2A1D40BDB8E372809E3B163B",Message,RelayContent,"Standard",True,False,2)      
      response.Write "<BR>" & result1.item(0).parentnode.xml            
   end if        
            response.End


%>


Thanks for your help
Start Free Trial