From: To:
Depart:
<%
dim x
dim y
dim syear
dim smonth
dim sday
syear = trim(year(date))
x = month(date)
for y = x to 12
smonth = right("0" & trim(y), 2)
if y = month(dateadd("d", 21, date)) and cint(syear)=year(dateadd("d", 21, date)) then
%>
<%=MonthName(smonth, false)%> <%
else
%>
<%=MonthName(smonth, false)%>
<%
end if
next
syear = trim(syear+1)
for y = 1 to x
smonth = right("0" & trim(y), 2)
if y = month(dateadd("d", 21, date)) and cint(syear)=year(dateadd("d", 21, date)) then
%>
<%=MonthName(smonth, false) & " " & syear%>
<% else %>
<%=MonthName(smonth, false) & " " & syear%>
<%
end if
next
%>
<%
for x = 1 to 31
sday = right("0" & trim(x),2)
if trim(sday) = right("0" & trim(trim(day(dateadd("d", 21, date)))),2) then
%>
<%=" " & trim(sday) & " "%> <%
else
%>
<%=" " & trim(sday) & " "%> <%
end if
next
%>
12:00 AM
01:00 AM
02:00 AM
03:00 AM
04:00 AM
05:00 AM
06:00
AM
07:00 AM
08:00 AM
09:00 AM
10:00 AM
11:00 AM
12:00 PM
01:00 PM
02:00 PM
03:00 PM
04:00 PM
05:00 PM
06:00 PM
07:00 PM
08:00 PM
09:00 PM
10:00 PM
11:00 PM
Return:
<%
syear = trim(year(date))
x = month(date)
for y = x to 12
smonth = right("0" & trim(y), 2)
if y = month(dateadd("d", 28, date)) and cint(syear)=year(dateadd("d", 28, date)) then
%>
<%=MonthName(smonth, false)%> <%
else
%>
<%=MonthName(smonth, false)%>
<%
end if
next
syear = trim(syear+1)
for y = 1 to x
smonth = right("0" & trim(y), 2)
if y = month(dateadd("d", 28, date)) and cint(syear)=year(dateadd("d", 28, date)) then
%>
<%=MonthName(smonth, false) & " " & syear%>
<% else %>
<%=MonthName(smonth, false) & " " & syear%>
<%
end if
next
%>
<%
for x = 1 to 31
sday = right("0" & trim(x),2)
if trim(sday) = right("0" & trim(trim(day(dateadd("d", 28, date)))),2) then
%>
<%=" " & trim(sday) & " "%> <%
else
%>
<%=" " & trim(sday) & " "%> <%
end if
next
%>
12:00 AM
01:00 AM
02:00 AM
03:00 AM
04:00 AM
05:00 AM
06:00
AM
07:00 AM
08:00 AM
09:00 AM
10:00 AM
11:00 AM
12:00 PM
01:00 PM
02:00 PM
03:00 PM
04:00 PM
05:00 PM
06:00 PM
07:00 PM
08:00 PM
09:00 PM
10:00 PM
11:00 PM
