Websites: Logo

All links from my del.icio.us

<% '********************************************************* ' ASP CODE TO DISPLAY RSS FEEDS - CELEBRITY SPOTLIGHT '********************************************************* Dim RSSURL, TemplateHeader, ItemTemplate, TemplateFooter, ErrorMessage, xmlDOM, xmlHttp, RSSItems, RSSItemsCount, j, i, RSSItem, child Dim RSStitle, RSSdescription, RSSlink, ItemContent, sTargetWindow ' My addition to original code is a sorting mechanism DIM slist() ' 100 rows is more than enough! '------------------------------------------------------------ ' Settings - alter these to change what is displayed '------------------------------------------------------------ ' URL OF FEED HERE RSSURL = "http://feeds.delicious.com/v2/rss/dlongm01/logo.3?count=100" ' Header of document TemplateHeader = "" 'TemplateHeader = "
" 'TemplateHeader = "
" 'TemplateHeader = "
Logo websites
" ' Turn descriptions on or off (true/false) Const bShowDescriptions = true ' max number of items to be displayed Const MaxNumberOfItems = 100 ' show articles in new window, or same window (true/false) Const bNewWindow = true '------------------------------------------------------------ ' item template - for each item, {LINK} , {TITLE} and {DESCRIPTION} are where the details go If bNewWindow Then sTargetWindow = " target='_blank'" If bShowDescriptions Then ItemTemplate = "" Else ItemTemplate = "" End if ' template footer - what is at the bottom of the feed TemplateFooter = "
Celebrity Spotlight News Feed
{TITLE}{DESCRIPTION}
{TITLE}
" ' on error, this error message is displayed ErrorMessage = "Error has occured while trying to process " & RSSURL & "
Please contact web-master" %>
<% Set xmlDOM = Server.CreateObject("Microsoft.XMLDOM") xmlDOM.async = false xmlDOM.setProperty "ServerHTTPRequest", true xmlDOM.Load (RSSURL) Set xmlHttp = Nothing Set RSSItems = xmlDOM.getElementsByTagName("item") Set xmlDOM = Nothing RSSItemsCount = RSSItems.Length-1 ' Create 2D array. redim slist(RSSItemsCount) 'Set RSSItem = RSSItems.Item(i) ' For each child in RSSItem.childNodes 'response.write(child.nodeName+"
") 'next ' Take each field from the XML file and store in array SLIST 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 'Use unlikely character as separator STR = RSStitle & "£"&RSSlink & "£"&RSSdescription slist(i)=str 'Reset all variables to null just in case there nothing to retrieve from the next record RSStitle = "" RSSlink = "" RSSDescription = "" Next If RSSItemsCount > 0 Then Response.Write(TemplateHeader) End If 'Sort the array by title (first item in list) arr = SortArray(slist) ' This is the template: {TITLE}{DESCRIPTION}
'here is my substitution from the array for y = 0 to (RSSItemsCount) response.write "" line=split(arr(y),"£") Response.Write "" Response.Write line(0)&"
" Response.Write line(2) &"
" response.write "" next 'If RSSItemsCount > 0 Then Response.Write(TemplateFooter) : Else Response.Write ErrorMessage Response.Write(TemplateFooter) function SortArray(arrInput) 'SortArray = Split(SortVBArray(arrInput),chr(8)) if ubound(arrInput)>0 then SortArray = Split(SortVBArray(arrInput),chr(8)) else SortArray=(arrInput) end if End function '********************************************************* ' END OF ASP RSS FEED CODE '********************************************************* %>

Back ...