Classic ASP Requires Chilkat v11.0.0+
Classic ASP
Peoplevox SaveData
See more Peoplevox Examples
Demonstrates how to call the Peoplevox SaveData SOAP method. This example adds a new carrier (DHL) to the system.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.
' Sends a POST that looks like this:
' POST /PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx HTTP/1.1
' Content-Type: text/xml;charset=UTF-8
' SOAPAction: http://www.peoplevox.net/SaveData
' Content-Length: (automatically computed and added by Chilkat)
' Host: qac.peoplevox.net
'
' <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/">
' <soap:Header>
' <peop:UserSessionCredentials>
' <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>
' <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>
' <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>
' </peop:UserSessionCredentials>
' </soap:Header>
' <soap:Body>
' <peop:SaveData>
' <peop:saveRequest>
' <peop:TemplateName>Carriers</peop:TemplateName>
' <peop:CsvData>CSV_DATA</peop:CsvData>
' <peop:Action>0</peop:Action>
' </peop:saveRequest>
' </peop:SaveData>
' </soap:Body>
' </soap:Envelope>
'
' Notice that a UserId is needed here. This is different than the username required for Peoplevox authentication.
' The UserId for the admin account is 1.
'
set sbSoapXml = Server.CreateObject("Chilkat.StringBuilder")
success = sbSoapXml.Append("<?xml version=""1.0"" encoding=""utf-8""?>" & vbCrLf)
success = sbSoapXml.Append("<soap:Envelope xmlns:soap=""http://www.w3.org/2003/05/soap-envelope"" xmlns:peop=""http://www.peoplevox.net/"">" & vbCrLf)
success = sbSoapXml.Append(" <soap:Header>" & vbCrLf)
success = sbSoapXml.Append(" <peop:UserSessionCredentials>" & vbCrLf)
success = sbSoapXml.Append(" <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>" & vbCrLf)
success = sbSoapXml.Append(" <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>" & vbCrLf)
success = sbSoapXml.Append(" <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>" & vbCrLf)
success = sbSoapXml.Append(" </peop:UserSessionCredentials>" & vbCrLf)
success = sbSoapXml.Append(" </soap:Header>" & vbCrLf)
success = sbSoapXml.Append(" <soap:Body>" & vbCrLf)
success = sbSoapXml.Append(" <peop:SaveData>" & vbCrLf)
success = sbSoapXml.Append(" <peop:saveRequest>" & vbCrLf)
success = sbSoapXml.Append(" <peop:TemplateName>Carriers</peop:TemplateName>" & vbCrLf)
success = sbSoapXml.Append(" <peop:CsvData>CSV_DATA</peop:CsvData>" & vbCrLf)
success = sbSoapXml.Append(" <peop:Action>0</peop:Action>" & vbCrLf)
success = sbSoapXml.Append(" </peop:saveRequest>" & vbCrLf)
success = sbSoapXml.Append(" </peop:SaveData>" & vbCrLf)
success = sbSoapXml.Append(" </soap:Body>" & vbCrLf)
success = sbSoapXml.Append("</soap:Envelope>")
set sbCsvData = Server.CreateObject("Chilkat.StringBuilder")
success = sbCsvData.Append("Name,Reference" & vbCrLf)
success = sbCsvData.Append("DHL,D0001")
numReplacements = sbSoapXml.Replace("CSV_DATA",sbCsvData.GetAsString())
set req = Server.CreateObject("Chilkat.HttpRequest")
req.HttpVerb = "POST"
req.SendCharset = 1
req.Charset = "utf-8"
req.AddHeader "Content-Type","text/xml"
req.AddHeader "SOAPAction","http://www.peoplevox.net/SaveData"
req.Path = "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx"
success = req.LoadBodyFromString(sbSoapXml.GetAsString(),"utf-8")
set http = Server.CreateObject("Chilkat.Http")
http.FollowRedirects = 1
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpSReq("qac.peoplevox.net",443,1,req,resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
' We should expect a 200 response if successful.
If (resp.StatusCode <> 200) Then
Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & resp.StatusLine) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.Header) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"
Response.End
End If
set xmlResponse = Server.CreateObject("Chilkat.Xml")
success = xmlResponse.LoadXml(resp.BodyStr)
Response.Write "<pre>" & Server.HTMLEncode( xmlResponse.GetXml()) & "</pre>"
' A successful response is shown below.
' To parse a successful response:
reference = xmlResponse.ChilkatPath("soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Reference|*")
Response.Write "<pre>" & Server.HTMLEncode( "Reference = " & reference) & "</pre>"
status = xmlResponse.ChilkatPath("soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Status|*")
Response.Write "<pre>" & Server.HTMLEncode( "Status = " & status) & "</pre>"
' <?xml version="1.0" encoding="utf-8" ?>
' <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
' <soap:Body>
' <SaveDataResponse xmlns="http://www.peoplevox.net/">
' <SaveDataResult>
' <ResponseId>0</ResponseId>
' <TotalCount>1</TotalCount>
' <Detail />
' <Statuses>
' <IntegrationStatusResponse>
' <Reference>D0001</Reference>
' <Status>Success</Status>
' <LineNo>0</LineNo>
' </IntegrationStatusResponse>
' </Statuses>
' <ImportingQueueId>0</ImportingQueueId>
' <SalesOrdersToDespatchIds />
' </SaveDataResult>
' </SaveDataResponse>
' </soap:Body>
' </soap:Envelope>
%>
</body>
</html>