Tomt RSS feed fra XML
Hi E,Jeg har en sub, der henter en angivet xml fil igennem en xslt tranformation:
Sub getXML(sUrlXml, sXslt)
Dim styleFile
Dim source, style
styleFile = Server.MapPath("/xslt/" & sXslt & ".xslt")
Set source = Server.CreateObject("Msxml2.DomDocument.4.0")
Source.Async = False
Source.SetProperty "ServerHTTPRequest", true
Source.Load sUrlXml
Set style = Server.CreateObject("Msxml2.DomDocument.4.0")
Style.Async = False
Style.Load styleFile
Source.TransformNodeToObject style, Response
Set source = Nothing
Set style = Nothing
End Sub
XML'en henter jeg så med sub'en:
getXML("http://www.dr.dk/...", "news")
Det giver tilsyneladende ikke problemer - i hvert falt ingen fejlmeddelser.
Min XSLT ser således ud:
<?xml version="1.0" encoding="UTF-8" ?>
<xsl:stylesheet
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:msxsl="urn:schemas-microsoft-com:xslt"
xmlns:dt="urn:schemas-microsoft-com:datatypes"
exclude-result-prefixes="xsl msxsl dt"
version="1.0">
<xsl:output method="html" omit-xml-declaration="yes"/>
<xsl:template match="rss/channel">
<ul>
<xsl:for-each select="item">
<xsl:sort data-type="text" select="pubDate" order="descending"/>
<li>
<a>
<xsl:attribute name="href"><xsl:value-of disable-output-escaping="yes" select="link"/></xsl:attribute>
<xsl:value-of disable-output-escaping="yes" select="title"/>
</a>
<span style="font-size: .8em;">
[<xsl:value-of disable-output-escaping="yes" select="pubDate"/>]
</span>
</li>
</xsl:for-each>
</ul>
</xsl:template>
</xsl:stylesheet>
Det eneste jeg får ud i min browser er: ÿþ
Er der nogen der kan give en forklaring på, hvorfor jeg ikke får feed'et vist?
/Lars