The Productivity Enhancer
 


Cutting edge solutions
   
 
 
 
 
 
  <% 'Dim objXml ,objXsl,objTemplate 'Set objXml = Server.CreateObject("Msxml2.Domdocument.3.0") 'Set objXsl = Server.CreateObject("Msxml2.Domdocument.3.0") 'objXml.Load(server.MapPath("/Data/Products.xml")) 'set objSrch = objXml.documentElement.selectSingleNode("//Product[@id='1']") 'objXsl.Load(Server.MapPath("/XSL/Products.xsl")) 'Response.Write(objXml.transformNode(objXsl)) Set objFile = server.CreateObject("Scripting.FileSystemObject") Set objOFile = objFile.OpenTextFile(Server.MapPath("/Data/" & Request.QueryString("fl") &".txt")) if not objOFile.atendofstream then Response.Write(objOFile.readall) end if Set objOFile = Nothing Set objFile = Nothing %>