29 gennaio 2005 alle 19:15:55

' Get and transform XML
' IN : sourceFile (string)
' : styleFile (string)
Function getXML(sourceFile, styleFile)
Dim source, style, xmlhttp

Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")

xmlhttp.Open "GET", sourceFile, false
xmlhttp.Send

set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadxml(xmlhttp.ResponseText)

xmlhttp.Open "GET", styleFile, false
xmlhttp.Send

set style = Server.CreateObject("Microsoft.XMLDOM")
style.async = false
style.loadxml(xmlhttp.ResponseText)

getXML = source.transformNode(style)

set source = nothing
set style = nothing
set xmlhttp = nothing
End Function

---------------
Frank Zalabard (sviluppo@aspnuke.it)