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..:)