InMsg := InMessage; InS := InMsg.GetStream(); XMLDom.load(InS); XMLNode := XMLDom.selectSingleNode('request'); IF XMLNode.text='CoursePlan' THEN BEGIN IF SemRegHdr.FIND('-') THEN BEGIN XMLDom.loadXML('<?xml version="1.0" encoding="UTF-8"?><Seminars></Seminars>'); XMLRoot := XMLDom.documentElement; REPEAT AddElement(XMLRoot,'SeminarName',SemRegHdr."Seminar Name",'DynUniWeb',ChildNode); AddElement(XMLRoot,'StartingDate',FormatDate(SemRegHdr."Starting Date"),'DynUniWeb',ChildNode); AddElement(XMLRoot,'Duration',FORMAT(SemRegHdr.Duration),'DynUniWeb',ChildNode); AddElement(XMLRoot,'Price','DKK '+FORMAT(SemRegHdr."Seminar Price"),'DynUniWeb',ChildNode); UNTIL (SemRegHdr.NEXT = 0); END; END ELSE XMLNode.text := 'Request not implemented. Query was: '+ XMLNode.text; OutMsg := InMsg.CreateReply(); OutS := OutMsg.GetStream(); OutS.WRITE(XMLDom.xml); //Break on error OutMsg.Send(0);I hope the variable names are self-explanatory. If not, please ask.
Answers
I changed this bit to:
And all is well (execpt for Danish characters, but I'll look into that.)
If anyone can explain why this makes it work, it would be nice
http://www.gbusiness-solutions.com
RIS Plus, LLC