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

Monday, October 1, 2007

Dreams

WARNING..... THE FOLLOWING CONTAINS ADULT CONTENT...... READ AT YOUR OWN RISK

I have vaguely written about my dreams off and on here in these pages. Over the last several weeks my dreams have become much more vivid. I also have started remembering much more detail of each of these dreams. As of this last week, I can no longer ignore them. Lately at least once a night I have been having highly explicit sexual dreams about both people currently in my life, and in my past

I have had to take some time to think about these dreams and what they might mean, mostly because I am not someone who is a highly sexual person with.. at least not until I have a fairly solid connection with someone, (more on that in a later post thought) Some of these dreams are easier to explain, but some are Not so easy for me to explain away.

Each of these more explicit dreams that I cannot easily explain have had have a couple things in common. 1. Each Dream involves either people I have had passing sexual thoughts about, or have had actual sexual encounters with. 2. they are people that I feel that I have at least some kind of connection with (again more on this later)3. All the dreams involve people that I do find physically and mentally (thats a big one for me) attractive. Luckily these people also exist outside of my work circle. The last thing all these dreams have in common is; They all involve sexual activities that I have thought about but have never tried... Yes I do understand how that sounds. What these activities are doesn't really matter as much as that all the dreams have this in common.

I have not come to a real conclusion as to what these dreams mean. Weather it is my subconscious telling me that I need to experiment more? That I need to get out and interact with more people? that something is missing in my life? That the creative side of me has been suppressed for to long with all that is going on with work and my life... or lack there of.. LOL

In short I have to admit that I am enjoying these dreams, but I find remembering them once I am awake is also very distracting. I would like to think that there is an actual meaning behind them, and that i am not just becoming dirty as I get older.. LOL I guess that it could be as simple as I am starting to feel my youth slip away (which will be another post soon). In short, I enjoy the dreams but would like to think more about what they mean in my life, and that I can find the connection...

Labels: , , ,

posted by Dave at 10:27 AM 0 Comments