RSS
Er igang med nået nyhedes værk med RSS.. Så har jeg en hovede siden for rss, og 2 under sider en med rss koden til at læse fra comon og en rss side til at læse fra pcworld.. de kommer her:<p style="font-size:100%">Comon</p>
<%
' Adressen på det RSS-feed der skal loades
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 "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else
' Åbn elementet <channel>
set channelNodes = xmlDoc.selectNodes("//channel/*")
' Åbn elementerne <item>
set itemNodes = xmlDoc.selectNodes("//item/*")
count = 0
For each item in itemNodes
if count < 5 then
' 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 & "#%#"
count = count + 1
end if
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) & "' target='_blank'>" & 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
%>
<p style="font-size:100%">PCworld</p>
<%
' Adressen på det RSS-feed der skal loades
extURL = "http://www.pcworld.dk/rss/nyheder"
' 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/*")
' Åbn elementerne <item>
set itemNodes = xmlDoc.selectNodes("//item/*")
count = 0
For each item in itemNodes
if count < 5 then
' 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 & "#%#"
count = count + 1
end if
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) & "' target='_blank'>" & 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
%>
Så har jeg så en hovede side hvor jeg inculder de 2 sider:
<link rel="stylesheet" type="text/css" href="style/hovede.css">
<h1>
<p style="font-size:132%">Nyheder fra Comon, PCworld, Ekstrabladet, Newz og GameSection.dk</p>
<!--#include file="comon.asp"-->
<!--#include file="pcworld.asp"-->
</h1>
.. Men.. Når jeg så får det ud står nyehderne som de skal under comon men under pcworld står der både nyhederne fra comon og derefter pcworld.. Håber på hjælp, er lidt svært og forklar men i må jo sige til hvis i ikke forstår..:)