<% XMLString = generateXMLDoc() Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM") XMLDoc.async = false XMLDoc.loadXML(XMLString) Set XSLDoc = Server.CreateObject("Microsoft.XMLDOM") XSLDoc.async = false XSLDoc.load(Server.MapPath("filelist.xsl")) response.write(XMLDoc.transformNode(XSLDoc.documentElement)) '------------------------ Function generateXMLDoc() Dim szXmlOutput, szOutput, szOutputBuffer 'szXmlOutput = "" 'szXmlOutput = szXmlOutput & "" szXmlOutput = szXmlOutput & "" szXmlOutput = szXmlOutput & " " szXmlOutput = szXmlOutput & " " pPath = Server.MapPath("./") Set fs = Server.CreateObject("Scripting.FileSystemObject") Set myFolder = fs.GetFolder( pPath ) szOutput = "" szOutputBuffer = "" for each ting in myFolder.SubFolders szOutput = " " szOutput = szOutput & " "&ting.Name&"" szOutput = szOutput & " " szOutputBuffer = szOutput & szOutputBuffer next for each ting in myFolder.Files szOutput = " " szOutput = szOutput & " "&ting.Name&"" szOutput = szOutput & " " szOutputBuffer = szOutput & szOutputBuffer next szXmlOutput = szXmlOutput & szOutputBuffer Set myFolder = nothing Set fs = nothing szXmlOutput = szXmlOutput & "" generateXMLDoc = szXmlOutput End Function %>