Tattoo
Thom getting a henna tattoo by the Port Olimpic. Just shows that it's not Just Jessica who has skinny arms, the design nearly went round twice. :-)
Previous Posts
- Crazy in Love
- Raval Rooftops
- When is a ship not a ship?
- Random nut-job of the day
- It's all going off... and so am I
- Sodaplay
- We're jammin'
- My nerves...
- Flickring into life
- It's a small, but complicated, world after all
Archives by Month
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
Becky's T-Blog
Wednesday, June 15, 2005
 |
 |
 |
 |
 |
 |
 |
 |
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 "
") 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 "
ERROR
code: " & _
objXML.parseError.errorCode & _
"
Linea/Col: " & _
objXML.parseError.line & "/" & _
objXML.parseError.linepos & "
") 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 "
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")
%>
Post a CommentPermalink Subscribe to comments: this post | all posts
<< T*Blog Home