Du skal bare bruge XMLHTTP, som eksemplet viser herunder:
<%
Option Explicit
Dim ObjSXH, ObjXML, ObjXSL
'Using MSXML 3.0 ServerXMLHTTP Class
Set ObjSXH = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
ObjSXH.open _
"GET", _
"
http://www.servernavn.dk/mappe/xml_fil.asp", _
False
'Send the request
ObjSXH.send ""
'If the request succeeded
If ObjSXH.status = 200 Then
'returned XML as a DOMDocument
Set ObjXML = ObjSXH.responseXML
'Load the XSLT stylesheet
Set ObjXSL = Server.CreateObject("Msxml2.DOMDocument.3.0")
ObjXSL.load Server.MapPath("/mappe/xsl/stylesheet.xslt")
'Apply XSL Transformation and write the HTML result
Response.Write (ObjXML.transformNode(ObjXSL))
Else
Response.Write("Der opstod en fejl. Prøv igen senere.")
End If%>
//>Rune