"belial" <666@yourmother.xz> skrev i en meddelelse
news:4561cd00$0$182$157c6196@dreader1.cybercity.dk...
> Jeg har nedenstående ASP script som indlæser og udskriver et XML dokument.
> Jeg vil gerne have scriptet til kun at vise f.eks. de senest 5 nyheder.
Kan
> nogen forklare, hvorledes jeg gør dette?
>
>
> <%
> SET objXMLMobile = CreateObject("MSXML2.DOMDocument.4.0")
>
> objXMLMobile.async = False
> objXMLMobile.setProperty "ServerHTTPRequest", true
> objXMLMobile.Load
http://www.business.dk/rss/Business_break.xml
>
> if(objXMLMobile.parseError <> 0) then
> Response.Write("Invalid XML loaded. " & objXMLMobile.parseError.reason)
> Response.End
> end if
>
> if objXMLMobile.documentElement is nothing then
> Response.Write("Invalid XML loaded. No root tag exists")
> Response.End
> end if
>
>
> FOR EACH objMobile IN objXMLMobile.SelectNodes("rss/channel/item")
>
>
> response.write "<strong>" & objMobile.SelectSingleNode("title").Text &
> "</strong><br>"
> response.write(objMobile.SelectSingleNode("description").Text) & "<br>"
> response.write "<a href=" & objMobile.SelectSingleNode("link").Text & "
> target=""_blank"">Læs hele artiklen</a><br><br>"
>
> NEXT
>
> SET objXMLMobile = Nothing
>
> %>
>
>
Måske dette virker istedet for din FOREACH traversering :
(har ikke testet dette og er ikke lige den store xml-buff :)
var objNodes = objXMLMobile.SelectNodes("rss/channel/item")
dim antal = 5
dim startIndex = 0
if objNodes.length - antal > 0
startIndex = objNodes.length - 1- antal
end if
For i = startIndex To objNodes.length-1
response.write "<strong>" & objNodes(i).SelectSingleNode("title").Text &
"</strong><br>"
response.write objNodes(i).SelectSingleNode("description").Text & "<br>"
response.write "<a href=" & objNodes(i).SelectSingleNode("link").Text & "
target=""_blank"">Læs hele artiklen</a><br><br>"
Next
Med venlig hilsen
Michael Weber