<% 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: a positive update

Monday, January 5, 2009

a positive update

so I have noticed it has been a long time since I have updated this. it seems to me that I don't write here unless things are bad, or I feel the need to complain/bitch, not when things are good. well lately, overall, things have been really good. This may be why I didn't write here. Fear of it ending, or fear of my happiness causing someone else to be upset or hurt. it really is the truth, the last 2 days I have had some very distinct fears, I think that fear is natural, and I hope that my fears are unfounded, and I have chosen to start talking about my fears instead of keeping them to myself.


the holidays were very good for me, filled with smiles and happiness, a few things that have been tough, but I have been very good keeping on the positive side of things, especially considering all the challenges that I have been given recently.


I again feel like I am at a transitional point in my life, i have been very satisfied with how the majority things have been going, there are exceptions of course but overall the direction I am going feels right. I feel that the next couple of weeks will either show a continuation of that, or will shake things up once again. if I look WAY forward, I see the potentially for the happiest times of my life, I will settle for nothing less. I will not wallow, I will not dwell in the sad things anymore, no matter what happens, I will be this person I have rediscovered, I refuse to go back, and I refuse to suffer by my own hand anymore.


I think about the past still, I think a lot about what might happen now, and in the future, I still have fears, but I cannot let them control me, I want so badly keep this person I am rediscovering, I can't let my fear drive me into hiding again, and I won't. I am no longer allowing myself to get swept up in the emotion of every little thing that comes up. There will always be times where I break down and cry over everything that has happened, especially in the last year. I feel that I have cried, been depressed enough. I know what I need, I have expressed what I need. I plan to do everything in my power to both hold onto what I need, and provide what the people who mean the most to me need as well, at least the best that I can without hurting myself anymore, I just can't do that anymore.

Labels: , , ,

0 Comments:

Post a Comment

<< Home