<% Function showtwitter() On Error Resume next howmannyposts = 7 url = "http://twitter.com/statuses/user_timeline/15436552.rss" set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, False xmlhttp.send "" myvar = xmlhttp.responseText myvar2 = split(myvar, "") myvar3 = split(myvar2(1), "", -1, 1) myjoin = Join(myvar3, VbCrLf) myvar3 = Split(myjoin, "tazicus:") myubound = ubound(myvar3) myuboundreal = myubound If myubound > howmannyposts Then myubound = howmannyposts counter = 1 loopcounter = 1 Do Until loopcounter = myubound myloopvar = Split(myvar3(counter), "<description>") mydatevar = Split(myvar3(counter), "<pubDate>") mydatevar1 = Split(mydatevar(1), "</pubDate>") mydate = mydatevar1(0) myloopvar1 = Split(myloopvar(1), "</description>") mymessage = Split(myloopvar1(0), "tazicus:") mymessagetemp = mymessage(1) mysplitdate = Split(mydate, " ") workingtime = mysplitdate(4) myyear=mysplitdate(3) mymonth=mysplitdate(2) myday=mysplitdate(1) If mymonth = "Jan" Then mymonth = 1 End If If mymonth = "Feb" Then mymonth = 2 End If If mymonth = "Mar" Then mymonth = 3 End If If mymonth = "Apr" Then mymonth = 4 end if If mymonth = "May" Then mymonth = 5 end if If mymonth = "Jun" Then mymonth = 6 end if If mymonth = "Jul" Then mymonth = 7 end if If mymonth = "Aug" Then mymonth = 8 end if If mymonth = "Sep" Then mymonth = 9 end if If mymonth = "Oct" Then mymonth = 10 end if If mymonth = "Nov" Then mymonth = 11 end if If mymonth = "Dec" Then mymonth = 12 end if mydate = mymonth & "/" & myday & "/" & myyear & " " & workingtime mydate = CDate(mydate) mydate = mydate - .29166666 mydiff = DateDiff("d", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " days ago" Else mydiff = DateDiff("h", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " Hours ago" Else mydiff = DateDiff("n", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " Minutes ago" Else mydiff = DateDiff("s", mydate, now()) If mydiff > .9 Then mydiff = mydiff & " Seconds ago" End If End If End If End If mytestmessage = split(mymessage(1), "http") myubound1 = ubound(mytestmessage) if left(mytestmessage(0), 2) <> " @" then if myubound1 > 0 then myvariable = myvariable & mytestmessage(0) & " <a href=" &Chr(34) & "http"& mytestmessage(1) & Chr(34) & ">http"&mytestmessage(1) & "</a>"& "<br>" & mydiff & "<br><br>" else myvariable = myvariable & mytestmessage(0) & "<br>" & mydiff & "<br><br>" end if loopcounter = loopcounter + 1 else End if counter = counter + 1 Loop Response.Write myvariable End Function %> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" dir="ltr"> <head> <title>Dave, a self portrait in words: Positive thoughts and writings....

Thursday, May 31, 2007

Positive thoughts and writings....

so after this crappy day at work.. I thought I would take a moment or two and write some positive stuff, things that I am happy about things that I am greatful for.

I am grateful for my friends and the joy they bring into my life.
I am grateful that I have a family that I know loves me and would do anything to help me.
I am happy that I have experienced love and caring so deep that it felt like the two of us were one.
I am grateful that I am in a position that I can enjoy my hobies, and the things that I love
I smile and I am happy when I close my eyes and think of all the wonderful things that the future holds for me and how much I am going to enjoy experiencing them.

I try to think of theses things through out the day, and constently come up with new ones. but I thought it would be good for me to put a few down in writing, so that when I come back and read this I can see that its not all negativity that I write about, but also very positive things... its seems we (me and my friends who also keep on-line journals of one type or the other) seem to come to these places of writing archives and write feaverishly and with greate verv about the dark things in our lives, the things that disturb us and makes us cry... lately I have thought alot about why I do this, and for me I think it is because I know that I will come back and read them later and subconciously there is a feeling of never wanting to forget when I was hurt, when I cried, or when I generally feel not so good.

I am going to make it my effort here to post things that are positive as well as negative. I feel that this way both the people who read here and when I come back to read, will see that I am not a negative person.. in fact the oppisite is true... I am usually annoyingly optimistic... I want this to become my point of record of my thoughts and experiences in life. I want to remember all of them, good and bad for as long as I can. This is how I can best learn I think... from my experiences.

I am forcing myself to look to the future, smile and realize that I have no idea what is around the next corner, but that no matter what it is, it will not stop me from being optimistic and excited about might come next.

Labels: , , ,

posted by Dave at 2:24 PM

0 Comments:

Post a Comment

<< Home