<% 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

Friday, November 7, 2008

finantial stress

With all that is going on in the world, I am stressed out about my financial situation. I have always been good at "getting by" and making ends meet. I really want more than that thought. I want to feel like I am planning for the future, and have a plan. I don't and that has me worried.

What the right answer is for my situation I don't know. I do know that its time to make a change, and that I should prolly make a list and come up with some ideas. I just don't know right now.

Labels: ,

Tuesday, August 28, 2007

late morning...

Fair warning. I have a lot to say in this post, not sure if I will get it all out but here goes..

Today started out rough... I forgot to plug in my phone, so my alarm did not go off, and when I woke up at 6:03 it felt like the weight of the world was on my shoulders. the really odd part is I i can't even tell you what it was or why I was feeling that way. Extreme stress is the best way to put it. I could barely get out of bed to use the rest room. I came back to bed, layed down and couldn't move. I hurt all over, felt totally stressed out.

I convinced myself that it was all in my head and I needed to get up and use mind over matter, I needed to conquer this. I got up, and nearly fell back down again. refusing to let this control me, I sent a message to my friend eric from work, asking if he wanted to have breakfast, figuring if I had a goal I would not have a choice but to get up and do something. he of course responded yes (thank goodness) and I had my goal.

I got dressed, walked into the back yard to find the pool Crystal clear.. that made me happy as I have been having issues with the vacuum. I walked back into the house, closed up the blinds and extra doors in the house. walked into the living room saw my paperwork for my ticket that I got on the table and remembered that last night I had taken care of getting school scheduled, this also helped lift a little of the pressure. i put on my shoes, grabbed my i-pod, phone and keys and headed outside. I checked on my drip watering system and found a leak, fixed it and then headed off to work.

As I drove I started to feel a little better, very drained but a little better. I got to the breakfast spot and eric suggested we try a new place, which we did. it was not to far from where we normally had breakfast.. but it was cheaper and MUCH better. I steered clear of caffanated soda hoping to not aggervate the stress anymore, I told eric that I was feeling strung out, and I think that is the best term to describe it.

I am now at work and seriously considering going somewhere away from here to kinda unplug. still work.. just away from the normal stuff..

I really think alot of this has to do with what I wrote about last night.. both entries...

Labels: , , ,