rss og asp, hvorfor virker det ikke
hejjeg fatter det ikke.
jeg har en stump kode, som kan håndtere alverdens rss nyheder fra dmi, baadmagasinet og hvad ved jeg.
Men når jeg skal hente rss nyheder på www.sejlsport.dk/senestenyt.rss
får jeg en server fejl.
er der forskel på .rss filer og alm xml ?
<%
' Adressen på det RSS-feed der skal loades
'extURL = "http://www.dmi.dk/dmi/rss-nyheder"
extURL = "http://www.sejlsport.dk/senestenyt.rss"
' 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
' De tre obligatoriske elementer i channel udskrives
response.write "<h1>" & strChannelTitle & "</h1>"
response.write "<p>" & strChannelDescription & "</p>"
response.write "<p><a href='" & strChannelLink & "'>Besøg " & strChannelTitle & "</a></p>"
response.write "<hr />"
' Å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,"#%#")
' Elementerne i channel udskrives
response.write "<ul>"
for a = 0 to UBound(arrItemTitle) - 1
response.write "<li>"
response.write "<a href='" & arrItemLink(a) & "'>" & arrItemTitle(a) & "</a>"
' Description udskrives hvis den eksisterer
if strItemDescription <> "" then
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
%>