I've tinkered with the format of the blog today. It's now in a more modern, slightly wider format, with a bigger font and more room in the main column.
I've decided to call the new design Hamburger, because if you knew what actually went into it you'd be disgusted. ;-)
cyclic I like it - it feels much more comfortable - my 1440x900 thanks you...
Siobhan Curran Yes, and my 2048x1536 kicks sand in your 1440x900's face :p
Becky Wow, comparing screen sizes. You can take the girly-girl act too far you know girls. ;-)
cyclic [from over Becky's shoulder] Oh yeah?? Well my ratio is larger than your ratio!
Mia Sounds more like a penis contest than any girl fight I've ever heard.
Apologies in advance if this was a bit....too much. Feel free to delete.
<%
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")
%>
Apologies in advance if this was a bit....too much. Feel free to delete.
Post a CommentPermalink Subscribe to comments: this post | all posts
<< T*Blog Home