Previous Posts
- Becky with Disco Ball
- Don't forget the crackers, Gromit
- Retro-posting #1 - "TV confusion"
- Riding the rides at Pride
- Sophie Get Your Gun
- Blog geekery - ignore if you're not interested
- Voices
- Blog Generator - the backlash
- Gravatar gone...
- Random thoughts
Becky's T-Blog
Sunday, July 24, 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")
%>
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