Содержание

<% Dim StyleSheet, Conf Set Conf = CreateObject("MSXML2.DOMDocument") Set StyleSheet = CreateObject("MSXML2.DOMDocument") Conf.async = False StyleSheet.async = False Conf.preserveWhiteSpace = True Dim bLoaded bLoaded = false if Not Conf.load(Server.MapPath(".") & "\toc.xml") then Response.Write "Не могу открыть файл " & Server.MapPath(".") & "\toc.xml!
" Response.End end if StyleSheet.load(Server.MapPath("/Common/toc.xsl")) Response.Write Conf.transformNode(StyleSheet) %>