<html>
<head> <script type="text/vbscript"> <!-- option explicit dim xmldoc,stylesheet,result dim kakikae,fso,f sub window_onload() set xmldoc=createObject("microsoft.xmldom") xmldoc.async=false xmldoc.load("text1.xml")
set stylesheet=createObject("microsoft.xmldom") stylesheet.async=false stylesheet.load("text1.xsl")
set fso=createObject("scripting.fileSystemObject") set f=fso.openTextFile("c:\data\sample_save\text1_s.xml",2,true) f.write result f.close set f=Nothing