%
response.ContentType="text/html"
dim objXML, objXSL
set objXML=server.CreateObject("MSXML2.DOMDocument")
set objXSL=server.CreateObject("MSXML2.DOMDocument")
objXML.async=False
objXSL.async=False
objXML.setProperty "ServerHTTPRequest",true
objXML.load "http://abercrombieproductions.com/blog/?feed=rss2"
objXSL.load Server.MapPath("news.xsl")
response.write objXML.transformNode(objXSL)
set objXML=nothing
set objXSL=nothing
%>