Feed Me!

Basic feed (just the blog)

The Uberfeed (blog, pics & links)

Tuesday, April 19, 2005

I've had a little tinker with the homepage so that Firefox will now recognise that my site has got an XML feed.

This enables Firefox's nifty live bookmarks feature. If you're using Firefox (it's a great browser), then just click the little

icon in the bottom right hand corner of the screen and it will add a live bookmark to my site. This appears in the bookmarks menu as a little sub-menu full of all the latest posts to my site, which updates automatically.

You can also do this on sites like BBC News and other blogs like Siobhan Curran's excellent Tranniefesto.

Siobhan Curran That might be the one and only time you ever see my name in the same sentence as the BBC

Anonymous That Bloody Siobhan gets everywhere! On no account should anyone go anywhere near her site at Siobhan's Place

Rachel No, I'm not a bit scared of that there Siobhan (well, maybe just a little bit), so anonymous has revealed himself, sorry I mean herself - gets confused easily...

Post a CommentPermalink Subscribe to comments: this post | all posts

<< T*Blog Home

Live Blogroll

<% Sub atom(URL) Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True objXML.validateOnParse = true objXML.preserveWhiteSpace = false dim uniques(75) itemno = 0 If Not objXML.Load(URL) Then Response.write "

ERROR
code: " & _ objXML.parseError.errorCode & _ "
Linea/Col: " & _ objXML.parseError.line & "/" & _ objXML.parseError.linepos & "

" Else Set objNodeList = objXML.getElementsByTagName("entry") For Each objNode In objNodeList itemno = itemno + 1 For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "source" For Each objNode3 In objNode2.childNodes Select Case objNode3.nodeName Case "title" StrSource = objNode3.text end select next Case "issued" strdate= left(objNode2.firstChild.nodevalue,10) Case "link" strURL = objNode2.GetAttribute("href") Case "title" strTitle = objNode2.firstChild.nodevalue End Select Next uniqueitem = 1 if itemno > 1 then for i = 1 to itemno - 1 if uniques(i) = strSource then uniqueitem = 0 end if next end if if uniqueitem = 1 then hasBreak = inStr(strTitle,"
") if hasBreak > 0 then strTitle = left(strTitle,hasbreak-1) end if strTitle = replace(strTitle ,chr(146),"'") strTitle = replace(strTitle ,chr(145),"'") strTitle = replace(strTitle ,chr(147),"""") strTitle = replace(strTitle ,chr(148),"""") Response.write "

" & strTitle & "

From " & strSource & "

" uniques(itemno)=strSource end if strTitle = "" strURL = "" strDescription = "" strSource = "" Next set objNodeList = Nothing End if End sub call atom("http://www.google.com/reader/public/atom/user/16312145566598809567/label/blogroll?n=75") %>

Archives by Month

Previous Posts

Subscribe

Becky's T-Blog

Tuesday, April 19, 2005

Feed Me!

Live Blogroll

Archives by Month