Listato 9 - Codice di "default.asp"

<%
'Dichiariamo due variabili, una per il documento XML, l'altra per il foglio XSL'
Dim objXML
Dim objXSL


'Si crea un'istanza dell'oggetto XMLDOM con il metodo CreateObject'

set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = false
set objXSL = Server.CreateObject("Microsoft.XMLDOM")
objXSL.async = false

'Carichiamo in memoria i due oggetti'
objXML.load (Server.MapPath("news.xml"))
objXSL.load(Server.MapPath("xstyle.xsl"))

'Scriviamo in un nuovo documento i risultati della trasformazione'

Response.Write(objXML.transformNode(objXSL))

%>