A Proper Sparkle Post
Good old Joanna Nicholls has posted great blog entry on Sparkle, if you want a better feel for the event.
Previous Posts
- Coming Down
- The Girls Out in Barcelona
- Toy Armies
- Sagrada Familia Door
- Back and Blogging
- Back in the UK...
- Delay
- Woohoo!
- Out with a bang
- Sitges, again
 |
 |
 |
 |
 |
 |
 |
 |
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")
%>
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 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
Post a CommentPermalink Subscribe to comments: this post | all posts
<< T*Blog Home