Pain in the Butt

Basic feed (just the blog)

The Uberfeed (blog, pics & links)

Wednesday, May 04, 2005

Okay, i'm getting paranoid now. Why does Google Adsense's marvelous "contextual algorithm" think that most of my blog entries are butt-related? *sob*

Any ideas?

Siobhan Curran You know, I haven't seen one butt-comment yet - you get the same "Crossdressing Personals" as I do. Of course, if you stop talking paranoidly about "butts", Google might start to get the idea ;)

Actually, my first crop were all about holiday homes in Ireland. I figured it was having "Siobhans Place" in the title.

There are some things you can do though honey - giving explicit stuff in the description metatag helps, as does the url for the pages themselves.

Either way, I doubt either you or I will ever get rich using it ;)

Kris Google's algorithm is pretty damn smart. From the adverts it served up, it managed to predict a friend of mine was gay long before he actually came out. It could be the greatest revolution in electronic psyche-probing since Eliza.

Siobhan Curran Why do you say it could be the greatest revolution in electronic psyche-probing since Eliza?

Kris You almost had me there. :-D

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, May 04, 2005

Pain in the Butt

Live Blogroll

Archives by Month