Jag får inte bort radbrytningarna när jag försöker skriva ut nyheter från min rss. Jag har provat allt skulle jag tro, Replace(ItemContent , vbcrlf, ""), Replace(ItemContent, Chr(13), ""), Trim(ItemContent), Replace(RSStitle, vbcrlf, ""), Replace(RSStitle, Chr(13), "") och Trim(RSStitle) men inget funkar. Allt måste stå på en enda rad, annars funkar inte javascriptet.

Utdrag från RSS
<code>
<item>
<title><![CDATA[
Ica vill slå ballongblåsningsrekord
]]></title>

<description>
För 90 år sedan startades Ica och nu vill man fira det genom att bli världsmästare i ballongblåsning.&lt;br /&gt;
</description>
<link>http://www.fri-kopenskap.se/zino.aspx?articleID=25353</link>
<pubDate>Thu, 03 May 2007 10:32:14 GMT</pubDate>
</item>

<item>
<title><![CDATA[
Hallå…Thomas Hedberg, vd på Polarbröd
]]></title>

<description>
Ni bygger en ny linje för att öka kapaciteten. Kan du berätta om den nya linjen?&lt;br /&gt;

</description>
<link>http://www.fri-kopenskap.se/zino.aspx?articleID=25352</link>
<pubDate>Thu, 03 May 2007 10:20:38 GMT</pubDate>
</item>
</code>

Koden
<code>
URLToRSS = "http://www.fri-kopenskap.se/zino.aspx?pageID=40"

ErrorMessage = "Error has occured while trying to process " &URLToRSS & "<BR>Please contact web-master"

Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText

Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)

Set xmlHttp = Nothing

Set RSSItems = xmlDOM.getElementsByTagName("item")
Set xmlDOM = Nothing
RSSItemsCount = RSSItems.Length-1

j = -1

For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)

for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
RSSlink = child.text
case "description"
RSSdescription = child.text
case "pubdate"
RSSdate = child.text
End Select
next

j = J+1

if J<MaxNumberOfItems then
ItemContent = ItemContent &"<li>" & FormatDate(RSSdate) & " | "& RSStitle &"</li>"
End if
Next

Response.Write(Replace(ItemContent, Chr(13), ""))
</code>

Idéer någon?

Istället för att göra strängkonkratenering när du genererar resultate så skulle du kunna använda DOM noder/objekt för att sammanställa resultatet. Om det är så att du har problem med att "escapa" tecken.

Efter en bit mat så kom jag på den genialiska lösningen att använa mig av Mid funktionen för att ta bort första och sista tecknet. Så det löste sig :)