More filler material

Basic feed (just the blog)

The Uberfeed (blog, pics & links)

Wednesday, August 17, 2005

And after the triumphant return of Evil Becky Answers Your Mail, how about some delving into my web logs for some more hilarious search engine referrals?

Yeah, that will fill a few blog inches!

The highlights from the last week:

"how to feel girls boobs"
Ah the eternal question.
"boob shaped mouse mats"
I seem to get a lot of boob-based enquiries.
"biggins boob"
Ok, that's enough!
"richard whiteley funny sounds"
I think he's stopped making funny sounds now.
"poems about clean loos"
A topic cruelly neglected by many of the great poets.
"i am butiful escort"
You are? How's that working out for you?

Siobhan Curran I wrote a poem about a clean loo once, in the dim and distant past...

Becky LOL, I thought that was too good to be true, until I checked the google cache and you really did write that in the dim and distant past. :)

Siobhan Curran I think I'd been to see John Hegley a few days before :-)

Jane I can see the heglian influences there Siobhan.

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

Wednesday, August 17, 2005