<% MyDate = Date if request("MyYear") = "" then MyYear = Year(MyDate) else MyYear = request("MyYear") end if if request("MyMonth") = "" then MyMonth = Month(MyDate) else MyMonth = request("MyMonth") end if MyDay = day(MyDate) Select Case MyMonth Case 1:monthDayNum = 31 Case 2:monthDayNum = 28 Case 3:monthDayNum = 31 Case 4:monthDayNum = 30 Case 5:monthDayNum = 31 Case 6:monthDayNum = 30 Case 7:monthDayNum = 31 Case 8:monthDayNum = 31 Case 9:monthDayNum = 30 Case 10:monthDayNum = 31 Case 11:monthDayNum = 30 Case 12:monthDayNum = 31 End Select if (MyYear) - 2000 mod 4 = 0 and MyMonth =2 then monthDayNum = 29 end if firstDate = DateSerial(MyYear,MyMonth, 1) firstDay = Weekday (firstDate) - 2 %>
<% for i =0 to firstDay response.write("") next for i =1 to monthDayNum today = DateSerial(MyYear,MyMonth, i) if today = MyDate then color = "#E2BBF1" else color = "#FFFFFF" end if noLink = 0 if today < MyDate +2 or today > MyDate + 92 then noLink = 1 else man = getStatus(today) end if if noLink = 0 and man <> 2 then daylink = ""&i&"" else daylink = i end if response.write("") if Weekday (today) mod 7 = 0 then response.write(" ") end if next for i = firstDay + monthDayNum to 40 response.write("") if (i + 2) mod 7 = 0 and tr = 0 and i < 36 then response.write(" ") end if next %>
<%=MyYear%> 年 <%=MyMonth%> 月
日 月 火 水 木 金 土
・"&daylink&"") if noLink = 0 then Select Case man Case 0:response.write("
○") Case 1:response.write("
△") Case 2:response.write("
×") End Select end if response.write("
・
<% if DateDiff("m", Now, today) = 0 then response.write "前の月" else if MyMonth = 1 then preYear = MyYear - 1 preMonth = 12 else preYear = MyYear preMonth = MyMonth - 1 end if response.write "前の月" end if %> 今月 <% if DateDiff("m", Now, today) > 2 then response.write "次の月" else if MyMonth = 12 then nextYear = MyYear + 1 nextMonth = 1 else nextYear = MyYear nextMonth = MyMonth + 1 end if response.write "次の月" end if %>
 
ご希望の日付をｸﾘｯｸして頂き
予約ﾌｫｰﾑよりお申し込み下さい

■ ・・・ 今日
・・・ イベント開催

○空室 (available)
△ほぼ満室(Few available)
×満室 (Full)

当日&翌日はお電話下さい
７：１０〜２１：５０
TEL：(0238)55-2011