<% ' the Styles above can be modified by you to make the feed "fit in" to ' the look and feel of your own site. They are pasted into the HTML of ' your page, and are not ASP. ' ' The call below generates the feed for you, and writes it out as HTML ' wherever you insert it on your ASP page. ' The first parameter is the feed location, the second ' is the XSL stylesheet you can use to interpret it. You can download ' the "world.xsl" example stylesheet from Tradestars.com or create/use your own. response.write(getXML("http://www.tradestars.com/xml1.asp", "world.xsl")) Function getXML(sourceFile,stylesheet) dim styleFile dim source, style Dim xmlhttp styleFile = Server.MapPath(stylesheet) Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET", sourceFile, false xmlhttp.Send set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadxml(xmlhttp.ResponseText) set style = Server.CreateObject("Microsoft.XMLDOM") style.async = false style.load(styleFile) getXML = source.transformNode(style) set source = nothing set style = nothing End Function %>