|
|
Add your own favorite souvenirs 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/gifts.xml")) XSLDoc.async = FALSE XSLDoc.Load(Server.MapPath("data/gifts.xsl")) response.write(XMLDoc.documentElement.transformnode(XSLDoc.documentElement)) %> Add your own favorite souvenirs to this page Last update: Wednesday, July 04, 2007 |