hvordan kan jeg lave en side der henter rss feed ned fra en side og vis det så det er det at læse noget som det her
-------------------------------------------
overskrift | link | dato
tekst
-------------------------------------------
der der ikk er nogle der har svaret uddyber jeg det lige
jeg har et feed
http://www.gamestv.org/rss.phpdet vil jeg gerne have på min side så den viser landets flag samme med teksten men når jeg prøver at lave det komme der det har ud af det
http://www.aspfox.dk/testfeed.aspmin kode er
<%
' Adressen på det RSS-feed der skal loades
extURL = "http://www.gamestv.org/rss.php"
' 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
for a = 0 to UBound(arrItemTitle) - 1
response.write "<a href='" & arrItemLink(a) & "'>" & arrItemTitle(a) & "</a>"
' Description udskrives hvis den eksisterer
if strItemDescription <> "" then
response.write "" & arrItemDescription(a)
end if
next
' Vi rydder op
set channelNodes = nothing
set itemNodes = nothing
End If
%>[Redigeret d. 22/01-06 13:43:26 af mikkel madsen]