<% 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: More Thoughts and feelings

Tuesday, August 14, 2007

More Thoughts and feelings

This is a post I have been thinking about a while now... not even sure where to start... I have been thinking a lot about what I want.. and even more about what I don't want. What I don't want is to get into a situation like I was in the past, and when I say that what I mean is.. I don't want to be in a situation where I am afraid to say what is on my mind.. I don't want to be afraid to be who I am.

To be fair, I also don't want whoever I am in a relationship with, to have any of these fears. On that same line of thought, I also want the relationship I am in to be balanced in a way that we both agree on. In the past this was something I had a different opinion on.. I was looking for a complete balance of power between me and who I was with.... Now what I think I am looking for is a balance that is agreed on by me and the person I am in the relationship with.

I have been thinking about my past, and the relationships I have been in.. the highs, the lows, the mistakes, the lessons I have learned... i look at relationships others are in, and have been in. from all these things, I am trying to gather what is right for me and what is not. what I want and what I don't. what decisions I am going to make about future relationships.

I think a lot about the possibilities that I have before me... right now... the different directions I could take my life right now, the things I have already done... how far I have come, vs how far I may have to go to be where I want to be in my life... I feel I have to weigh the choices, and what each if them mean...

becasue I don't feel like I have all of the answers yet, I have chosen to work on the ME issues first. I want to loose a little weight, I want to be more active, I want to work a more normal schedule until I can make this business thing work. I want to get my teeth fixed... thats a big one... this is what I am going to try working on for the next several weeks to see if I can make progress on... I do feel like I have a better Idea of the decisions I need to make in the near future. 1. they make me smile and 2. I think I am better equipped for the decisions I need to make... this also makes me smile.

Labels: , , ,

posted by Dave at 9:35 PM

0 Comments:

Post a Comment

<< Home