RSS-sjov

Jeg har rodet lidt med en simpel RSS-parser i ASP til at hive links fra del.icio.us ind her på siden. Resultatet kan indtil videre ses på HTPC-siden, og koden kommer her:

<%

set xml = createObject("Msxml.DOMDocument")
xml.async = false
xml.setProperty "ServerHTTPRequest", true
xml.load("http://del.icio.us/rss/jonasbc/htpc")

set itemNodes = xml.selectNodes("//item/*")
 
dim title

For each item in itemNodes
   if item.tagName = "title" then
      response.write "<br>"
      title = item.text
   elseif item.tagName = "link" then
      response.write "<a href='" & 
      item.text & "'>" & title & "</a><br>"
   elseif item.tagName = "description" then
      response.write item.text & "<br>"
   end if
next

set itemNodes = nothing

%>