<% 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: talking to sean

Thursday, September 9, 2004

talking to sean

Talking to Sean kinda randomly about life and goals, and I told him that yesterday I made the decision that I was going to change some pretty major things in my life, and get back to 10% Body Fat. I sent Sean a picture of me from LA, and he asked when it was taken... I looked at the timestamp on the file 9/8/99 that officially freaked me out. Since the date yesterday when I made this decision was 9/8/04. This is just one more of those signs that I keep getting... one of those sign that is to big to just dismiss, the ones that are telling me that I am headed for something. I have a better Idea where now. I mean over the past couple weeks I have met and talked to people who have changed their life dramatically from where it was to where it is now. And until now I didn't tie it all together. I think that I am headed for a really good happy place, I just think that it is going to take me some time to get there, and it might require more "alone" time. I think that I am even starting to see the direction I need to go to get to where I want to be.

I can see myself making changes and going back for Christmas to visit my family and having them say, WOW you look really good, and being able to feel like I have a new direction and focus in life. The pieces are starting to line up. I have a job that I enjoy very much that I can see myself having and growing in for some time to come. I have the plans in place for a house of my own, I have removed the Sentra from the picture temporarily to let me see that I probably don't need it and should get rid of it. Bite the bullet, save some money pay it down and just sell it out-right.

Most of all my independence is constantly growing, I feel much less dependant on anyone today then I think I ever have. I feel that I have started my own direction in life and I see very positive things coming from that. I have a really up-beat and positive on most things in my life, and I feel that my ability to share the positive attitude with other people makes me happy.

posted by Dave at 1:00 PM

0 Comments:

Post a Comment

<< Home