Classic ASP
Classic ASP
Yet Another SOAP MTOM POST Example
See more HTTP Misc Examples
Demonstrates how to sending a SOAP request with an MTOM/XOP attachment...Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = Server.CreateObject("Chilkat.Http")
' First build the following XML:
' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
' xmlns:imp="http://www.yourdomain.it/ImportMultiploWorkflowPAWS/">
' <soapenv:Header/>
' <soapenv:Body>
' <imp:InputImportMultiploWorkflowPA>
' <usernameEis>MyUsername</usernameEis>
' <passwordEis>MyPassword</passwordEis>
' <postazioneEis>COSO00</postazioneEis>
' <istitutoEis>COSO</istitutoEis>
' <codiceAzienda>COSO0000</codiceAzienda>
' <fileZip><inc:Include href="cid:780931946797" xmlns:inc="http://www.w3.org/2004/08/xop/include"/></fileZip>
' <fileZipName>IT04769180151_00044.zip</fileZipName>
' <workflow>carica</workflow>
' </imp:InputImportMultiploWorkflowPA>
' </soapenv:Body>
' </soapenv:Envelope>
set xml = Server.CreateObject("Chilkat.Xml")
xml.Tag = "soapenv:Envelope"
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns:imp","http://www.yourdomain.it/ImportMultiploWorkflowPAWS/")
xml.UpdateChildContent "soapenv:Header",""
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis","MyUsername"
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis","MyPassword"
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis","COSO00"
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis","COSO"
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda","COSO0000"
success = xml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",1,"href","cid:780931946797")
success = xml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",1,"xmlns:inc","http://www.w3.org/2004/08/xop/include")
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName","IT04769180151_00044.zip"
xml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|workflow","carica"
' We want our top-level HTTP request header to look like this:
' POST /http-router-softwarehubsystem/webservices/importMultiploWorkflowPA HTTP/1.1
' Accept-Encoding: gzip,deflate
' Content-Type: multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_0_1353857996.1546013984933"
' SOAPAction: "http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"
' MIME-Version: 1.0
' Content-Length: <chilkat will add this header>
' Host: <chilkat will add this header>
' Connection: Keep-Alive
' User-Agent: Apache-HttpClient/4.1.1 (java 1.5)
set req = Server.CreateObject("Chilkat.HttpRequest")
req.HttpVerb = "POST"
req.Path = "/http-router-softwarehubsystem/webservices/importMultiploWorkflowPA"
req.ContentType = "multipart/related; type=""application/xop+xml""; start=""<rootpart@soapui.org>""; start-info=""text/xml"""
req.AddHeader "SOAPAction","""http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"""
req.AddHeader "Accept-Encoding","gzip,deflate"
req.AddHeader "Mime-Version","1.0"
req.AddHeader "Connection","Keep-Alive"
req.AddHeader "User-Agent","Apache-HttpClient/4.1.1 (java 1.5)"
' Add the XML content for the 1st MIME sub-part.
xml.EmitXmlDecl = 0
xml.EmitCompact = 0
success = req.AddStringForUpload2("","",xml.GetXml(),"utf-8","application/xop+xml; charset=UTF-8; type=""text/xml""")
' We want the 1st sub-header (the sub-part containing the XML) to look like this:
' Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
' Content-Transfer-Encoding: 8bit
' Content-ID: <rootpart@soapui.org>
' Make sure we set sub-headers *after* calling AddStringForUpload2, otherwise AddStringForUpload2 might change these explicitly set headers.
success = req.AddSubHeader(0,"Content-Transfer-Encoding","8bit")
success = req.AddSubHeader(0,"Content-ID","<rootpart@soapui.org>")
' Add a reference to the local file for the file data for the 2nd MIME sub-part.
success = req.AddFileForUpload2("","qa_data/zips/helloWorld.zip","application/zip; name=IT04769180151_00044.zip")
' We want the 2nd sub-header (for the MIME sub-part containing a .zip file) to look like this:
' Content-Type: application/zip; name=IT04769180151_00044.zip
' Content-Transfer-Encoding: binary
' Content-ID: <IT04769180151_00044.zip>
' Content-Disposition: attachment; name="IT04769180151_00044.zip"; filename="IT04769180151_00044.zip"
' Make sure we set sub-headers *after* calling AddFileForUpload2, otherwise AddFileForUpload2 might change these explicitly set headers.
success = req.AddSubHeader(1,"Content-Transfer-Encoding","binary")
success = req.AddSubHeader(1,"Content-ID","<IT04769180151_00044.zip>")
success = req.AddSubHeader(1,"Content-Disposition","attachment; name=""IT04769180151_00044.zip""; filename=""IT04769180151_00044.zip""")
' Keep a session log so we can examine the exact request/response.
' Remove this line when finished with debugging.
http.SessionLogFilename = "qa_output/mtom_sessionLog.txt"
useTls = 0
' Note: Please don't run this example without changing the domain to your own domain...
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpSReq("www.yourdomain.it",80,useTls,req,resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
set xmlResponse = Server.CreateObject("Chilkat.Xml")
success = xmlResponse.LoadXml(resp.BodyStr)
' println xmlResponse.GetXml();
Response.Write "<pre>" & Server.HTMLEncode( "OK.") & "</pre>"
%>
</body>
</html>