Becky's T-Blog

Friday, August 19, 2005

An experiment

Karol Cross Shouldn't you be in bed at this time?

Becky Well, I was ON bed. That's close enough. :)

Becky By the way, the experiment was to see if Siobhan spotted the Mac Cube i'd stuck on the floor in this pic, it was inspired by this on Miss K's DragNet. :)

Siobhan Curran One of these days, I'm gonna link to the image of me stark naked with only a Mac covering my dignity

Becky I didn't know you owned a Mac mini. :-D

*runs*

Siobhan Curran *pfft*

It was one of those 30-inch screens. Honest

*looks down*

Jessica *hands siobhan a magnifying glass*

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

<< T*Blog Home

<% 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") %>

04.05 05.05 06.05 07.05 08.05 09.05 10.05 11.05 12.05 01.06 02.06 03.06 04.06 05.06 06.06 07.06 08.06 09.06 10.06 11.06 12.06 01.07 02.07 03.07 04.07 05.07 06.07 07.07 08.07 09.07 10.07 11.07 12.07 01.08 02.08 03.08 04.08 05.08 06.08 07.08 08.08 09.08 10.08 11.08 12.08 01.09 02.09 03.09 04.09 05.09

Previous Posts

Subscribe

Becky's T-Blog

Friday, August 19, 2005

An experiment

Live Blogroll

Archives by Month