<% '**********HOW IT WORKS************* 'XML RSS Feed 'news.xsl 'getXML("http://www.informationweek.com/rss_simple.asp?f_n=462&f_ln=Security") '**********HOW IT WORKS************* 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 Response.Write( source.transformNode( style ) ) set source = nothing set style = nothing End Sub %> CG NetSystems, LLC
CG NetSystems, LLC - Business Solutions

Latest news

<% getXML("http://www.informationweek.com/rss_simple.asp?f_n=462&f_ln=Security") %>

We focus on advising businesses on how best to use information technology to meet their business objectives. In addition to providing advice, CG NetSystems, LLC can implement, deploy, and administer IT systems on behalf of your business.