>LPARAMETERS lcURL >CLEAR >lcURL=IIF(TYPE("lcURL")="C",lcURL,"http://microsopht.dynu.com:45/DonMartin/DonMartin.xml") > >LOCAL oXMLHTTP AS MSXML2.FreeThreadedDOMDocument40 >oXMLHTTP=NEWOBJECT("Msxml2.FreeThreadedDOMDocument.4.0") >oEvents=NEWOBJECT("FreeThreadedDOMDocumentEvents") > >&& lbEventsHandled=EVENTHANDLER(oXMLHTTP,oEvents) > >oXMLHTTP.ASYNC=.T. >oXMLHTTP.LOAD(lcURL) > >DO WHILE oXMLHTTP.readyState#4 >ENDDO > >XMLTOCURSOR(oXMLHTTP.XML,"DonMartinisms",4) >BROWSE > >&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& >&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& > >DEFINE CLASS FreeThreadedDOMDocumentEvents AS SESSION OLEPUBLIC > > IMPLEMENTS IXMLDOMDocument2 IN "MSXML2.FreeThreadedDOMDocument.4.0" > <snip> > >ENDDEFINE >