<%@ LANGUAGE = VBScript %>
<%

'Load the XML 
set DocObject = Server.CreateObject("Microsoft.XMLDOM")'
DocObject.async = false'
DocObject.load(Server.MapPath("article.xml"))'

' Load the stylesheet
set StyleObject = Server.CreateObject("Microsoft.XMLDOM")'
StyleObject.async = false'
StyleObject.load(Server.MapPath("article.xsl"))'
  
Result = DocObject.transformNode(StyleObject)'
Response.Write(Result)
%>