<%@ language = "VBScript" %> <% option explicit %> <% handleFileSystemDisplay %> <% sub handleFileSystemDisplay dim fileSystemTree dim xhtml dim xmlSource dim xslt xslt = request.queryString("xslt") server.ScriptTimeOut = 400 set fileSystemTree = new classFileSystemTree if xslt <> "" then fileSystemTree.transform = xslt & ".xsl" end if fileSystemTree.create xhtml = fileSystemTree.getXhtml setFileText "sitemap.htm", xhtml xmlSource = "" xmlSource = xmlSource & fileSystemTree.getTree.xml setFileText "tree.xml", xmlSource response.write xhtml end sub %>