Het is echt vreemd als ik een externe xml file wil parsen komt er gewoon geen data te voorschijn. Download ik het XML bestand dan doet ie het lokaal dus wel goed. Daarom lijkt het mij dat het niet aan de xsl ligt.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| <%@ Language=VBScript %>
<%
option explicit
dim sXMLFilename
dim sXSLFilename
sXMLFilename = "http://www.xs4all.nl/~paragonx/default.xml"
sXSLFilename = "default.xsl"
TransformXMLtoHTML sXMLFilename, sXSLFilename
sub TransformXMLtoHTML(sXMLFilename, sXSLFilename)
dim objXMLDoc
dim objXSLDoc
set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = false
objXMLDoc.load(sXMLFilename)
set objXSLDoc = Server.CreateObject("Microsoft.XMLDOM")
objXSLDoc.async = false
objXSLDoc.load(Server.MapPath(sXSLFilename))
Response.Write(objXMLDoc.transformNode(objXSLDoc))
end sub
%> |