<%@Language="VBScript" %>
<%
option explicit
dim xmldoc
dim stylesheet
dim result
dim xmlPath
dim stylesheetPath
dim htmlSource

xmlPath=Server.MapPath("../../xml_xslt/bt/b058.xml")
stylesheetPath=Server.MapPath("../../xml2html/common/bdaman.xsl")

  set xmldoc=Server.createObject("Microsoft.XMLDOM")
  xmldoc.async=false
  xmldoc.load(xmlPath)
 
  set stylesheet=Server.createObject("Microsoft.XMLDOM")
  stylesheet.async =false
  stylesheet.load(stylesheetPath)

  set result=Server.createObject("Microsoft.XMLDOM")
  result.async=false
  'result.validateOnParse=true

  htmlSource=xmldoc.transformNodeToObject(stylesheet,result)
  Response.write result.xml
%>