Solved

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

Posted on 2006-07-14
5
3,887 Views
Last Modified: 2012-05-05
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
0
Comment
Question by:redyor
  • 2
5 Comments
 
LVL 20

Expert Comment

by:jitganguly
ID: 17109836
Though not very experienced in this but I have a feeling its Https site and that requires some more work see here

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsoap/html/soapsecurity.asp

scroll trhorugh this section

SSL and Client Certificates

As an alternate just try out a http site, this way you can isolate the problem
0
 

Author Comment

by:redyor
ID: 17118178
Hey guys , i just find out what happened , i used something with ServerXMLHTTP
0
 

Author Comment

by:redyor
ID: 17118179
Thanks to everyone
0
 

Accepted Solution

by:
ee_ai_construct earned 0 total points
ID: 17343682
PAQ / Refund
ee ai construct, community support moderator
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Update table value with join syntax 2 70
Live mode in DW, need to creae Session 4 95
Using Classic ASP inside HTML pages 2 60
ASP/VB email question 4 35
I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question