% @LANGUAGE = VBScript %> <% Option Explicit %>
|
Add your own memories to this page <% Dim XMLDoc, XSLDoc Dim objFS, objTestS Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM") Set XSLDoc = Server.CreateObject("Microsoft.XMLDOM") XMLDoc.async = FALSE XMLDoc.load(Server.MapPath("data/iremember.xml")) XSLDoc.async = FALSE XSLDoc.Load(Server.MapPath("data/iremember.xsl")) response.write(XMLDoc.documentElement.transformnode(XSLDoc.documentElement)) %> Add your own memories to this page Last update: Wednesday, July 04, 2007 |