Problem med rss script :S
Hej..er stødt på et problem med et rss-script.
den vil ikke blive vist.
vil høre hvad er der galt?
scriptet kan findes på:
http://d2323108.u51.surftown.dk/rss1.asp
----------------
indhold af rss1.asp
----------------
<html>
<body topmargin="0" leftmargin="0">
<table border="0" width="100%" id="table23" cellspacing="0" cellpadding="0">
<tr>
<td width="18%" valign="top" style="border-left:1px solid #C0C0C0; border-right:1px solid #C0C0C0; border-bottom:1px solid #C0C0C0; border-top:3px solid #CC9900; ">
<table border="0" width="100%" id="table24" cellpadding="0">
<tr>
<td width="1%"> </td>
<td width="99%"><font face="Verdana" size="1">
<%
' Adressen på det RSS-feed der skal loades
extURL = "http://www.mosnews.com/export/export_20.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 "<a href='" & strChannelLink & "' target='_blank'><img src='mosnews.gif' border='0'></a>"
response.write "<hr />"
' Å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
for a = 0 to UBound(arrItemTitle) - 1
response.write "<br />"
response.write "<a href='" & arrItemLink(a) & "' target='_blank'>" & arrItemTitle(a) & "</a>"
' Description udskrives hvis den eksisterer
if strItemDescription <> "" then
response.write "<br />" & arrItemDescription(a)
response.write "<br />"
end if
next
' Vi rydder op
set channelNodes = nothing
set itemNodes = nothing
End If
%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
