<%
'Load XML
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load Server.MapPath("newsline.txt")
'Load XSL
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xsl.async = false
xsl.load Server.MapPath("news/news.xsl")
'Transform file
Response.Write(xml.transformNode(xsl))
Set xml = nothing
Set xsl = nothing
%>