Smokey Mtn News <% Sub getXML(sourceFile) dim styleFile dim source, style styleFile = ("e:\smokymtnmall.com\httpdocs\rss\beeb.xsl") set source = Server.CreateObject("Membership.UserObjects.1") source.async = false source.setProperty "ServerHTTPRequest", true source.load CStr(sourceFile) set style = Server.CreateObject("MSXML2.DOMDOCUMENT.3.0") style.async = false style.load styleFile source.transformNodeToObject style, Response set source = nothing set style = nothing End Sub %> <% On Error Resume Next getXML("http://news.google.com/news?hl=en&ned=&ie=UTF-8&q=Smoky+Mountains&output=rss&ned=:ePkh8BM9E0KzgxVohwEnxBYgO9WADdMeAJ8RBxc") %>

can be seen live on smokymtnmall.com in firefox browser near bottom of page.