<%
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")
set source = Server.CreateObject("Msxml2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr(sourceFile)
set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile
source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub
%>
The Community Wardrobe, Sheringham, North Norfolk
/* */
