<%@ Language=VBScript %> <% dim month, MonthText, YearText, nextmonth, lastmonth, i, overtext, overclose month= request.querystring("month") if month = "" then month="200801" nextmonth = month + 1 lastmonth = month-1 YearText = left(month,4) Select Case right(month,2) Case "01" MonthText = "January" Case "02" MonthText = "February" Case "03" MonthText = "March" Case "04" MonthText = "April" Case "05" MonthText = "May" Case "06" MonthText = "June" Case "07" MonthText = "July" Case "08" MonthText = "August" Case "09" MonthText = "September" Case "10" MonthText = "October" Case "11" MonthText = "November" Case "12" MonthText = "December" End Select path = "c:\inetpub\wwwroot\testserver\aqueduct\calendar\" & month & ".asp" datapath = "c:\inetpub\wwwroot\testserver\aqueduct\calendar\data.txt" %> Aqueduct Conference Center: Availability Calendar
Home

Availability Calendar

<% Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 %> <% 'Open and read a text file. i=0 set fs = CreateObject("Scripting.FileSystemObject") set file = fs.OpenTextFile(datapath, ForReading) do while not file.AtEndOfStream ShowLine = split(file.ReadLine,"|") if ShowLine(0) = month then overtext = "" overclose = "" if ShowLine(1) = "01" then Select Case ShowLine(2) Case "MO" Response.Write("") Case "TU" Response.Write("") Case "WE" Response.Write("") Case "TH" Response.Write("") Case "FR" Response.Write("") Case "SA" Response.Write("") End Select end if Select Case ShowLine(3) Case "open" overtext = "" overclose = "" Case "booked" overtext = "" overclose = "" Case "maybe" overtext = "" overclose = "" End Select Response.Write "" if ShowLine(2) = "SA" then response.write "" i=i+1 end if 'Response.Write ShowLine(0) & " " & ShowLine(1) & " " & ShowLine(2) & ": " & ShowLine(3) & "
" loop file.Close() if i=0 then %> <% end if %>
<% if right(month,2) > 1 then %> < <% else %>   <% end if %> <% Response.Write MonthText & " " & YearText %> <% if right(month,2) < 12 then %> > <% else %>   <% end if %>
                     " & overtext & ShowLine(1) & overclose & "
Please contact Aqueduct at 919.933.5557 for information on availability in <% Response.Write MonthText & " " & YearText %>
       
       
       
       

Open date, contact Aqueduct at 919.933.5557

Booked, please try a different date

Possible availability, contact Aqueduct at 919.933.5557 for more information