|
<% Function PostXmlAndGetResponse(PostToUrl,XmlBody) set xhttp = createObject("Microsoft.XMLHTTP") xhttp.open "POST", PostToUrl, False xhttp.send XmlBody PostXmlAndGetResponse= xhttp.responseText set xhttp=nothing End Function if request.Form.count>0 then PostToUrl="http://211.140.11.43/dsmp/dsmp.wsdl" XmlBody=XmlBody+"<?xml version=""1.0"" encoding=""UTF-8"" ?> "&vbcrlf XmlBody=XmlBody+"<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns=""http://www.monternet.com/dsmp/schemas/"">"&vbcrlf XmlBody=XmlBody+"<SOAP-ENV:Header>"&vbcrlf XmlBody=XmlBody+"<TransactionID xmlns=""http://www.monternet.com/dsmp/schemas/"" xsi:type=""xsd:string"">00240301801050</TransactionID> "&vbcrlf XmlBody=XmlBody+"</SOAP-ENV:Header>"&vbcrlf XmlBody=XmlBody+"<SOAP-ENV:Body>"&vbcrlf XmlBody=XmlBody+"<UnSubscribeServiceReq xmlns=""http://www.monternet.com/dsmp/schemas/"">"&vbcrlf XmlBody=XmlBody+"<Version>"&request.Form("Version")&"</Version> "&vbcrlf XmlBody=XmlBody+"<MsgType>"&request.Form("MsgType")&"</MsgType> "&vbcrlf XmlBody=XmlBody+"<Send_Address>"&vbcrlf XmlBody=XmlBody+"<DeviceType>"&request.Form("Send_Address_DeviceType")&"</DeviceType> "&vbcrlf |