CLEAR o = CREATEOBJECT("InternetExplorer.Application") o.visible=.t. o.Navigate("http://www.west-wind.com") WAIT WINDOW lcOutput = "" *** Loop through all the links in the page *** and create a string of just the links FOR EACH loLink IN o.Document.Links lcOutput = lcOutput + ; [<a href="] + loLink.Href + [">] + ; loLink.innerText + [</a><hr>] ENDFOR * ? lcOutput *** Reload the browser page with just the links displayed as text o.Document.Body.innerHtml = lcOutput RETURN+++ Rick ---
lcHTML=lox.DOCUMENT.body.innertext
>