Appendix A Push XML API
Sample ASP Pages
'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
%>