Clarissa Let me see... of course I bloody well want to come!
Time to make decision: 0.02ns
Connie Never been to Brum before. Will have to check with the missus.
Becky Small update: So far 7 people have emailed me to confirm!
Mia Umm....US to UK isn't gonna happen anytime soon. Sorry Becks.
Gemma I'll probably have to hand back my TV licence, but ... what exactly is "Transpocalypse"? All I know is that it's got a lot of t-girls breathless with excitement ...
Becky Gemma... click on the "it's time" link in my orginal post above. All will become clear! :-)
<%
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 "
"
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 "
"
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")
%>
Time to make decision: 0.02ns
Or alternatively...
CLICK HERE!!! ;-)
Post a CommentPermalink Subscribe to comments: this post | all posts
<< T*Blog Home