Avaya 16-300272 - Manual (Page 82)

Appendix A Push XML API
Sample ASP Pages
Broadcast Server User Guide 74
'Tell the user what happened
response.Write "XML DOC posted off:
"
'response.write SendDoc.XML & "
"
response.write "Target URL: " & sURL & "
"
'response.write "XML DOC Received back: "
'response.write (NewDoc.Xml)
response.write "
Send Schedule"
response.write "
Send Push "
private function xmlsend(url, docSubmit)
Set poster = Server.CreateObject("MSXML2.ServerXMLHTTP")
poster.open "POST", url, false
poster.setRequestHeader "CONTENT_TYPE", "text/xml"
poster.send docSubmit
Set NewDoc = server.createobject("Microsoft.XMLDOM")
newDoc.ValidateOnParse= True
newDoc.LoadXML(poster.responseTEXT)
Set XMLSend = NewDoc
Set poster = Nothing
end function
%>