<%
newsURL = "http://rss.com.com/2547-1017-0-5.xml"
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.setProperty "ServerHTTPRequest", true
xml.async = false
xml.validateOnParse = false
xml.load(newsURL)
xml.save(Server.MapPath("xml/news2.xml"))
'Set xml = nothing
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.validateOnParse = false
' Load up the XML newsfeed
xml.load(Server.MapPath("xml/news2.xml"))
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xml.setProperty "ServerHTTPRequest", true
xsl.load(Server.MapPath("xml/xslnews3.xsl"))
' Write the transformation to the browser
Response.Write(xml.transformNode(xsl))
' Cleanup
Set xsl = nothing
Set xml = nothing
%>
Small Business News
<%
newsURL = "http://p.moreover.com/cgi-local/page?index_smallbusiness+rss"
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.setProperty "ServerHTTPRequest", true
xml.async = false
xml.validateOnParse = false
xml.load(newsURL)
xml.save(Server.MapPath("xml/news2.xml"))
'Set xml = nothing
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.validateOnParse = false
' Load up the XML newsfeed
xml.load(Server.MapPath("xml/news2.xml"))
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xml.setProperty "ServerHTTPRequest", true
xsl.load(Server.MapPath("xml/xslnews3.xsl"))
' Write the transformation to the browser
Response.Write(xml.transformNode(xsl))
' Cleanup
Set xsl = nothing
Set xml = nothing
%>
More Business News (Free registration required to see articles)
<%
newsURL = "http://www.newsisfree.com/HPE/xml/feeds/82/782.xml"
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.setProperty "ServerHTTPRequest", true
xml.async = false
xml.validateOnParse = false
xml.load(newsURL)
xml.save(Server.MapPath("xml/news2.xml"))
'Set xml = nothing
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.validateOnParse = false
' Load up the XML newsfeed
xml.load(Server.MapPath("xml/news2.xml"))
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xml.setProperty "ServerHTTPRequest", true
xsl.load(Server.MapPath("xml/xslnews3.xsl"))
' Write the transformation to the browser
Response.Write(xml.transformNode(xsl))
' Cleanup
Set xsl = nothing
Set xml = nothing
%>
COPYRIGHT
2001-2002 UTAH STATE UNIVERSITY, LOGAN UT 84322, (435) 797-1000
