Returner indhold af iCal Feed

<%

dim URLToRSS,MaxNumberOfItems,MainTemplateHeader,MainTemplateFooter,ItemTemplate,ErrorMessage,xmlHttp,RSSXML,xmlDOM
  dim RSSItems,RSSItemsCount,j,i,RSSItem,child,RSStitle,RSSlink,RSSdescription,ItemContent
 
  ' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
' copyright 2005 (c) www.Bytescout.com
' ===============================================

' =========== configuration =====================
' ##### URL to RSS Feed to display #########
URLToRSS = "http://www.wunderground.com/auto/rss_full/global/stations/06024.xml?units=both"          'RSS Feed
' URLToRSS = "http://www.wunderground.com/auto/ical/global/stations/06024.ics?units=both"                'iCal Feed   
' ##### max number of displayed items #####
MaxNumberOfItems = 7

' ##### Main template constants
MainTemplateHeader = "<table>"
MainTemplateFooter = "</table>"
' #####

' ##### Item template.
' ##### {LINK} will be replaced with item link
' ##### {TITLE} will be replaced with item title
' ##### {DESCRIPTION} will be replaced with item description
ItemTemplate = "<tr><td><b><font size=1><a href=" & """{LINK}""" & ">{TITLE}</a><BR>{DESCRIPTION}</td></tr>"

' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & "<BR>Please contact web-master"

' ================================================

Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText

Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)

Set xmlHttp = Nothing ' clear HTTP object

Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
Set xmlDOM = Nothing ' clear XML

RSSItemsCount = RSSItems.Length-1

' writing Header
if RSSItemsCount > 0 then
  Response.Write MainTemplateHeader
End If

j = -1

For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)

  for each child in RSSItem.childNodes
  Select case lcase(child.nodeName)
    case "title"
          RSStitle = child.text
    case "link"
          RSSlink = child.text
    case "description"
          RSSdescription = child.text
  End Select
  next

  j = J+1

  if J<MaxNumberOfItems then
  ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
  ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
  Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
  ItemContent = ""
  End if

Next

' writing Footer
if RSSItemsCount > 0 then
  Response.Write MainTemplateFooter
else
  Response.Write ErrorMessage
End If

%>

Har fundet det her stykke ASP som returner RSS Feed - men hvordan skal koden se hvis den skal returner iCal Feed - link er indsat i koden.