Take a look at our calendar of special events, workshops, classes and meetings at Peace of Mind Emporium

<% for I = Month(Date()) to Month(Date())+11 J = I if J > 12 then J = J - 12 end if if MonthName = Months(J-1) Then %> <%=MonthName%> <% Else %> <%=Months(J-1)%> <% End If if I < Month(Date())+11 then %> || <% End If Next %>

<% dim objFSO, txtStrm, outLine Server.ScriptTimeOut = Application("ScriptTimeOut") set objFSO = Server.CreateObject("Scripting.FileSystemObject") descFileName = Application("DescriptionDir") + MonthName + ".desc" if objFSO.FileExists(descFileName) = true then set txtStrm = objFSO.OpenTextFile(descFileName) outLine = txtStrm.ReadAll() Response.Write outLine else Response.Write "The calendar of events for " & MonthName & " is not yet available." end if set objFSO = nothing set txtStrm = nothing %>