min dlfeed.asp ser sådan ud:
<table width="95%">
<tr>
<td colspan="4" bgcolor="#252b2f"><img src="images/line-big-vandret.gif"><br>
<table width="100%">
<tr>
<td><b><font face="verdana" size="2" color="#FFFFFF">Dark Legacy</font></b></td>
<td align="right"></td>
</tr>
</table>
<img src="images/line-big-vandret.gif"></td>
</tr>
<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end HTML.dk
' Kontakt HTML.dk hvis du er i tvivl
' ****************************************************************
' Adressen på det RSS-feed der skal loades
extURL = "
http://www.darklegacycomics.com/feed.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
' Å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 19
%>
<tr>
<td><a href="<%=arrItemLink(a)%>" target="_blank">Dark Legacy <%=arrItemTitle(a)%></a><br></a><img src="images/line-big-vandret-dark.gif"></td>
</tr>
<%
next
' Vi rydder op
set channelNodes = nothing
set itemNodes = nothing
End If
%>
<tr>
<td><br></td>
</tr>
</table>
Min feedoverview.asp ser sådan ud:
<!--#include file="dlfeed.asp"-->
<!--#include file="gufeed.asp"-->