- Becky's T*Blog

Basic feed (just the blog)

The Uberfeed (blog, pics & links)

Thursday, April 14, 2005

Just going through some of the stranger pictures on my hard drive. A prize for the first person to comment and corrently identify what this is!

Siobhan Curran Birmingham darling :) Selfridges I believe

Becky Er... yeah.

Wow, short quiz. :-|

Siobhan Curran Make it harder next time :)

Anonymous It's the bullring in Birminghamstokesfordbury. I know that Siobhan has already answered but she didn't give the actual location, just the general vacinity (great word, vacinity, kind of begs to be rude but isn't).

Yours helpfully, Vicky

Anonymous Esp. when you give it an alternative speeling... :)

Vicinity = surrounding district

Vacinity = when you're in any world but the real one ;)

CheekyAngel

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

Thursday, April 14, 2005

Live Blogroll

Archives by Month