Ok... so I may have gotten a little carried away with creating stuff in second life.
I'm well into my second day, just nipping down to Do-It-All to buy some extra firmament.
Emilygrae Did you remember to include the fake dinosaur bones? Ya know my favourite part of making my own earth? Designing the coastlines. I got an award for Norway.
Charlotte Becky the goddess of Breast Forms & Make-up. Offerings can be made to her at any good make-up counter. :)
Mia Yeah Emily, the fijords are the best part. But not only do I get Norway, but Africa too this time. I'm doing it all in fijords.
Don't forget your Pan-Galactic Gargle Blaster and most importantly your towel.
Connie Oh dear all I am going to say is 42 :-)
And got myself into Second Life. Was toying with setting up a Tranny club lol
<%
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")
%>
Ya know my favourite part of making my own earth? Designing the coastlines. I got an award for Norway.
Don't forget your Pan-Galactic Gargle Blaster and most importantly your towel.
And got myself into Second Life. Was toying with setting up a Tranny club lol
Post a CommentPermalink Subscribe to comments: this post | all posts
<< T*Blog Home