<% Set objXML = Server.CreateObject("Microsoft.XMLDOM") %> <% Sub getXML(sourceFile) dim styleFile dim source, style styleFile = Server.MapPath("news.xsl") set source = Server.CreateObject("Msxml2.DomDocument") source.async = false source.setProperty "ServerHTTPRequest", true source.load CStr(sourceFile) set style = Server.CreateObject("Msxml2.DomDocument") style.async = false style.load styleFile source.transformNodeToObject style, Response set source = nothing set style = nothing End Sub %>
About Us Donate How We Help Get Involved Blank Blank Where We Help
Battery Park City Cares
  <% getXML("http://rss.news.yahoo.com/rss/asiatsunami") %>
 
Advocates Corporations Journalists Sponsors Resources