|
<%
Sub getXML1(sourceFile1)
dim styleFile1
dim source1, style1
styleFile1 = Server.MapPath("get_sm.xsl")
set source1 = Server.CreateObject("Msxml2.DomDocument")
source1.async = false
source1.setProperty "ServerHTTPRequest", true
source1.load CStr(sourceFile1)
set style1 = Server.CreateObject("Msxml2.DomDocument")
style1.async = false
style1.load styleFile1
source1.transformNodeToObject style1, Response
set source1 = nothing
set style1 = nothing
End Sub%>
<% getXML1("http://www.diamonds-usa.com/rss/best_deals.xml") %>
|
