<% Function PostXmlAndGetResponse (PostToUrl, XmlBody) set xhttp = createObject ( "Microsoft.XMLHTTP") xhttp.open "POST", PostToUrl, False xhttp.send XmlBody PostXmlAndGetResponse = xhttp.responseText set xhttp = nothingEnd Function
if Request.form.count> 0 ThenPosttourl = "http://211.140.11.43/dsmp/dsmp.wsdl" xmlbody = XMLBODY " "& vbrlfxmlbody = xmlbody " "& vbcrlfxmlbody = XMLBODY "& vbcrlfxmlbody = xmlbody " 0024030301050 "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " " & required.form ("Version") & "" & vbrlfxmlbody = xmlbody "& Req UEST.FORM ("MSGTYPE") & "" & vbrlfxmlbody = xmlbody "& vbcrlfxmlbody = xmlbody " & Request.form ("Send_address_DeviceType") &
"" & vbcrlfXmlBody = XmlBody "" & request.Form ( "Send_Address_DeviceID") & "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody " "& request.Form (" Dest_Address_DeviceType ") &" "& vbcrlfXmlBody = XmlBody " "& request.Form (" Dest_Address_DeviceID ") &" "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& request.Form (" FeeUser_ID_UserIDType ") &" "& vbcrlfXmlBody = XmlBody " "& request.Form (" FeeUser_ID_MSISDN ") &" "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& request.Form (" DestUser_ID_UserIDType ") &" < / UserIDType> "& vbcrlfXmlBody = XmlBody " "& request.Form (" DestUser_ID_MSISDN ") &" "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = XmlBody " "& vbcrlfXmlBody = Xm LBODY "& vbcrlfxmlbody = XMLBody "
"& Request.Form (" ServiceIDType ") &" "& vbcrlfXmlBody = XmlBody " "& request.Form (" SPID ") &" "& vbcrlfXmlBody = XmlBody " "& request.Form ( "SPServiceID") & "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" & vbcrlfXmlBody = XmlBody "" ReturnValue = PostXmlAndGetResponse (PostToUrl, XmlBody) response.Write (ReturnValue) else%>
