Almost-ideas #2 - Miscellatranny

Basic feed (just the blog)

The Uberfeed (blog, pics & links)

Wednesday, July 13, 2005

Almost-ideas #2 - Miscellatranny

I was having a clear-out of the dead files in my web-space the other day and came across a project I'd completely forgotten about:

Bex's Unoriginal Miscellatranny

I really enjoyed Schott's Original Miscellany, and this was meant to be a pastiche featuring trivia that might be useful to trannies.

The trouble was, I ran out of trivia that might be useful to trannies.

I dunno, it might be worth resurrecting... what do you think?

TV w00t!

Definitely worth a resurrection!

Mia Freeland I got a good laugh even if you don't resurrect it. And I think you should.

Joanna Looks like a good idea to me...

prying1 I hate to throw away anything - maybe you can sell it on ebay -

Pandora Maybe you can do a list of fave tranny drinks by volume, or the etymology of insults hurled against us, or classic fashion rules (shoes must not be lighter than your hemline etc), and so on.

Do more!

Post a CommentPermalink Subscribe to comments: this post | all posts

<< T*Blog Home

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 "

ERROR
code: " & _ objXML.parseError.errorCode & _ "
Linea/Col: " & _ objXML.parseError.line & "/" & _ objXML.parseError.linepos & "

" 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 "

" & strTitle & "

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

Previous Posts

Subscribe

Becky's T-Blog

Wednesday, July 13, 2005

Almost-ideas #2 - Miscellatranny

Live Blogroll

Archives by Month