Udskriv RSS på min hjemmeside
Hej.Jeg vil gerne have skrevet nogle RSS nyheder ud på min
hjemmeside som han gør på følgende side: www.newsbot.dk
Altså en overskrift, en beskrivelse og et link eller lign.
Jeg har fået den til at skrive det hele ud med en kode
jeg har fundet på www.html.dk under RSS.
Men den skriver hele artiklen ud og ikke kun overskriften
af filen. Det skulle gerne være sådan man kan se de 10
sidste nyheder og trykke på dem for at se det.
Nogen der kan hjælpe mig, eller måske kan finde ud af at
rette kode her til:
<%
' Adressen på det RSS-feed der skal loades
extURL = "http://www.html.dk/rss/dk.edb.internet.webdesign.xml"
' 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
%>