<% 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: I've learned

Monday, April 28, 2008

I've learned

I've learned that somthing that seems to mean so little can change ones life forever

I've learned that sometimes somthing said in passing can stay with you forever and shape the decisions that you make.

I've learned that it only takes one sentance to make you wish the rest of your life you didn't say it

I've learned that it only takes a moment to hurt someone you love, and leave a mark on them for a lifetime

I've learned that I am responsible for my actions no matter how I "feel"

I've learned you can keep going long after you think you can't

I've learned that its ok to breakdown, to cry, to feel week and powerless. Its part of being strong the rest of the time.

I've learned that it's taking me a long time to become the person I want to be.

I've learned that to truly forgive is not easy, and takes practice.

I've learned that I can't make someone love me.

I've learned that being someone worth loving is eaiser, then believing it.

I've learnd that no matter how good a friend someone is, there will be times where they hurt you, and that to be a true friend, you have to forgive them and move on.

I've learned that somtimes it is ok to be angry, but it is not ok to be cruel.

I've learned that no matter how badly my heart is broken, the world doesn't stop for my grief.

I've learned that trust takes time to build, and moments to be destroyed

I've learned that two people can look at exactly the same thing and see somthing totally different.

I've learned that writing, as well as talking can ease emotional Pain.

I've learned that the people you care the most about are taken from you too soon.

I've learned that if I can make one person laugh every day, I am helping do my part to make this place a little nicer to live.

I've learned that people will take advantage of my good nature, but this will not stop be from helping people in my life in any way that I can. Some of those people reach out an open hand, to say thank you, that makes it all worth wile.

Labels: , ,

0 Comments:

Post a Comment

<< Home