Fejl ved udskrivning af RSS feeds via array
Hejsa,Jeg bruger nedenstående script til at skrive nogle RSS feeds ud.. Der sker dog det, at nogle gange hvor der mangler en description til et feed (tror jeg nok), så bliver overskrifter og beskrivelser mixet sammen??
Så man f.eks. får en feed lige som nedenstående, som ikke giver nogen mening :(
Michael Phelps takes sixth Beijing gold in 200M medley
------------------------------------------------------------
SAN FRANCISCO (MarketWatch) -- Warner Bros. Pictures, a unit of Time Warner Inc. , said late Thursday it has delayed the release of "Harry Potter and the Half-Blood Prince" to July 19, 2009. The sixth installment of the Harry Potter franchise had been expected to open at ....
Mit script ser således ud, og jeg er helt blank I hvad der skal gøres for at denne ikke laver denne sammenblanding ??
på forhånd tak
' Adressen på det RSS-feed der skal loades
extURL = therssfeedlink
' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)
' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
' Udskriv eventuelle fejl (for nem fejlretning)
Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else
' Åbn elementet <channel>
set channelNodes = xmlDoc.selectNodes("//channel/*")
for each entry in channelNodes
' De tre obligatoriske elementer i channel lægges i variable
if entry.tagName = "title" then
strChannelTitle = entry.text
elseif entry.tagName = "description" then
strChannelDescription = entry.text
elseif entry.tagName = "link" then
strChannelLink = entry.text
end if
next
' Åbn elementerne <item>
set itemNodes = xmlDoc.selectNodes("//item/*")
For each item in itemNodes
' Elementerne i channel lægges i variable med #%# som adskillelse
if item.tagName = "title" then
strItemTitle = strItemTitle & item.text & "#%#"
elseif item.tagName = "link" then
strItemLink = strItemLink & item.text & "#%#"
elseif item.tagName = "description" then
strItemDescription = strItemDescription & item.text & "#%#"
end if
next
' Elementerne i channel splittes i arrays
arrItemTitle = split(strItemTitle,"#%#")
arrItemLink = split(strItemLink,"#%#")
arrItemDescription = split(strItemDescription,"#%#")
'response.write "<em>" & strItemDescription & "</em>"
' Elementerne i channel udskrives
'response.write "<ul>"
for a = 0 to UBound(arrItemTitle) - 1
'response.write "<li>"
if ubound(arrItemDescription) >= a then
response.write "<p><b>" & arrItemTitle(a) & "</b>"
response.write "<br />" & arrItemDescription(a)
end if
'response.write "</li>"
next
'response.write "</ul>"
' Vi rydder op
set channelNodes = nothing
set itemNodes = nothing
End If