When you change CSS to use only Comic Sans as part of National Comic Sans Day, can it still legitimately be called a Cascading Style Sheet?
I think that poor old Comic Sans has spent enough time as the typeface that everyone loves to hate, so I'm going to work on a font to take it's place as the Worst Font Ever.
It will take me a few minutes...
Meanwhile some light music.
Becky Well, I lasted until midday, but I couldn't let the world suffer with Comic Sans any longer. It's okay for backwater blogs like Siobhan's to stick to that awful font all day, but my site has readers, for god's sake!
cyclic I'll carry it on through the Eastern time zone for you then =)
You should be ashamed of yourself, picking on a poor little font like that. Its just a little misunderstood thats all. Maybe it needs to get together with a few other fonts and form a Yahoo group?
<%
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")
%>
*pfft* :p
"Siobhan has the best blog ever and it's a lot better than mine. I copied all the best ideas on my blog from the Tranniefesto.
Signed,
Becky EnVérité"
Use it whenever you need to. :-)
You should be ashamed of yourself, picking on a poor little font like that. Its just a little misunderstood thats all. Maybe it needs to get together with a few other fonts and form a Yahoo group?
Post a CommentPermalink Subscribe to comments: this post | all posts
<< T*Blog Home