Appendix A Push XML API
Sample ASP Pages
Broadcast Server User Guide
74
'Tell the user what happened
response.Write "<body><b>XML DOC posted off:</b><br><code>"
'response.write SendDoc.XML & "</code><br>"
response.write "<b>Target URL:</b> " & sURL & "<br>"
'response.write "<b>XML DOC Received back: </b>"
'response.write (NewDoc.Xml)
response.write "<br><a href='schedule_message.asp'>Send Schedule</a></body>"
response.write "<br><a href='push_message.asp'>Send Push </a></body>"
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
%>