"All of this has happened before.
All of this will happen again."
- The Pythian prophecy

<% Set fso = CreateObject("Scripting.FileSystemObject") Set fsoFolder = fso.GetFolder( Server.MapPath("\Reflections\" )) lowerBound = asc("0") upperBound = asc("9") Set myFolders = CreateObject("Scripting.Dictionary") For each fsoSubFolder in fsoFolder.SubFolders leftMostAscii = asc(Left(fsoSubFolder.Name, 1)) If ( lowerBound <= leftMostAscii and leftMostAscii <= upperBound ) Then myFolders.Add fsoSubFolder.Name, fsoSubFolder.Name End If Next years = myFolders.Keys Set fsoFiles = fso.GetFolder( Server.MapPath("\Reflections\" & years(myFolders.Count - 1) & "\")) latestModDate = "" For each monthFile in fsoFiles.Files If latestModDate = "" Then latestModDate = monthFile.DateLastModified latestMonthFile = monthFile.Name ElseIf monthFile.DateLastModified > latestModDate Then latestModDate = monthFile.DateLastModified latestMonthFile = monthFile.Name End If Next %>

Dear Reader,

Herein you will find my <% response.Write "" response.Write "latest Reflections on Life, The Universe, and Everything" %> .  Entries earlier than 2005 are old or new, depending on how you look at them.  In actuality they are entries from years past that were never meant for an online journal but things I wrote down in my paper journals.  They are posted now for the first time, an exploration into what was meant to be private, a psychological experiment of personality, sharing, and hopefully, useful insights.

Interested in subscribing new my new podcast? Click here to subscribe Aslynn's Audio Journal!


Mister Monkey's Video Blog

<% ' Reverse alphabetize For index1 = myFolders.Count - 1 to 0 step - 1 response.Write "

" currentYear = years(index1) 'response.Write "" & currentYear & "
" response.Write "" & currentYear & "
" Set fsoFiles = fso.GetFolder( Server.MapPath("\Reflections\" & currentYear & "\")) For months = 12 to 1 Step -1 for each monthFile in fsoFiles.Files bDisplayMonth = false select case months case 1 if monthFile.Name = "January.html" then bDisplayMonth = true case 2 if monthFile.Name = "February.html" then bDisplayMonth = true case 3 if monthFile.Name = "March.html" then bDisplayMonth = true case 4 if monthFile.Name = "April.html" then bDisplayMonth = true case 5 if monthFile.Name = "May.html" then bDisplayMonth = true case 6 if monthFile.Name = "June.html" then bDisplayMonth = true case 7 if monthFile.Name = "July.html" then bDisplayMonth = true case 8 if monthFile.Name = "August.html" then bDisplayMonth = true case 9 if monthFile.Name = "September.html" then bDisplayMonth = true case 10 if monthFile.Name = "October.html" then bDisplayMonth = true case 11 if monthFile.Name = "November.html" then bDisplayMonth = true case 12 if monthFile.Name = "December.html" then bDisplayMonth = true end select if bDisplayMonth = true then response.Write "" response.Write Left( monthFile.Name, Len( monthFile.Name ) - 5 ) & "
" end if Next Next response.Write "

" Next response.Write "

" Set fsoFiles = fso.GetFolder( Server.MapPath("\Reflections\Random Musings\")) response.Write "Random Musings
" for each RandomMusing in fsoFiles.Files response.Write "" response.Write Left( RandomMusing.Name, Len( RandomMusing.Name ) - 5 ) & "
" next response.Write "

" response.Write "

" Set fsoFiles = fso.GetFolder( Server.MapPath("\Reflections\Sorted Memories\")) response.Write "Sorted Memories
" for each SortedMemories in fsoFiles.Files response.Write "" response.Write Left( SortedMemories.Name, Len( SortedMemories.Name ) - 5 ) & "
" next response.Write "

" response.Write "

" Set fsoFiles = fso.GetFolder( Server.MapPath("\Reflections\Psych Files\")) response.Write "Psyche Files
" for each PsychFile in fsoFiles.Files response.Write "" response.Write Left( PsychFile.Name, Len( PsychFile.Name ) - 5 ) & "
" next response.Write "

" %>