Jag har detta script,
Option Explicit
Private Function GetContent(URL)
Dim Http
Set Http=CreateObject("Microsoft.XMLhttp")
Http.Open "GET",URL,False
Http.Send
GetContent=Http.ResponseText
End Function
Public Function GetRSSItem(URL,ItemNr)
Dim xmlDoc, Nodes, Text
Randomize
Set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.loadXML GetContent(URL & "?random=" & Rnd)
Set Nodes=xmlDoc.getElementsByTagName("item")
GetRSSItem=Nodes(ItemNr).getElementsByTagName("title")(0).firstChild.data & "%l" & Nodes(ItemNr).getElementsByTagName("link")(0).firstChild.data
End Function
och det fungerar perfekt men när jag försöker läsa detta XML dokument,
<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="2.0">
<channel>
...
<description>I´ve</description>
...
</channel>
</rss>
så krashar det på ´ tecknet, är inte det ett OK tecken i iso-8859-1? Det fungerar utan problem i IE som annars alltid brukar klaga när det är olagliga tecken med i XML.
/Viktor