RSS
Hej her er lidt kode.. Ville høre hvordan jeg får den til at åbene link til siderne i et nyt vindue. istedet for at åbne det i mit hjemmesides vindueog kan man sætte begrænsining på fx kun 3 nyheder ? og kan man samme kode få flere rss sider ind ? Eller skal jeg kopirre koden over til fx 5 sider med 5 forskelige rss link? hvis i forsår
<%
extURL = "http://www.comon.dk/cmlink/ComON-nyheder-1.195385.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 "Ups, der opstod en fejl, dette kan måske løses ved blot at opdatere siden!"
' 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,"#%#")
' 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
%>