<%@ Language="VBScript" %>
タイトル取出し
<%
Dim objDoc, objNd, fpath
Set objDoc = Server.CreateObject("Microsoft.XMLDOM")
objDoc.async=false
objDoc.load(Server.MapPath("sample2.xml"))
Set objNd = objDoc.documentElement.childNodes
fpath = Server.MapPath(objNd.item(0).text)
Dim fso, f, f1, fc, s
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(fpath)
Set fc = f.Files
s = ""
For Each f1 in fc
s = s & ""
s = s & ""
s = s & f1.name
s = s & ""
objDoc.load(fpath & "\" & f1.name)
Set objNd = objDoc.documentElement.childNodes
s = s & ""
s = s & objNd.item(0).text
s = s & ""
s = s & ""
Next
s = s & ""
objDoc.loadXML(s)
Dim objXSL
Set objXSL = Server.CreateObject("Microsoft.XMLDOM")
objXSL.async=false
objXSL.load(Server.MapPath("sample2.xsl"))
Response.Write(objDoc.transformNode(objXSL))
%>