|
Linda's Schedule
<%
if isempty(Itinerary) then
%>
We're sorry, there are currently no items listed in the schedule.
<%
else
%>
Please call ahead to check dates and times before driving a long distance.
| Dates |
Time |
Organization |
Location |
Phone |
<%
for x = 0 to ubound(Itinerary,2)
if timevalue(Itinerary(3,x)) = "12:00:00 AM" then
display_time = " "
else
if hour(Itinerary(3,x)) > 12 then
display_time = cstr(hour(Itinerary(3,x)) - 12) & ":"
else
display_time = cstr(hour(Itinerary(3,x))) & ":"
end if
if minute(Itinerary(3,x)) < 10 then display_time = display_time & "0"
display_time = display_time & cstr(minute(Itinerary(3,x)))
display_time = display_time & " " & lcase(cstr(right(Itinerary(3,x),2)))
end if
%>
| <%=Itinerary(1,x)%><%if Itinerary(2,x) <> Itinerary(1,x) then%> to <%=Itinerary(2,x)%><%end if%> |
<%=display_time%> |
<%if Itinerary(4,x) = "" then%> <%else%><%=Itinerary(4,x)%><%end if%> |
<%=Itinerary(5,x)%> |
<%if Itinerary(6,x) = "" then%> <%else%><%=replace(Itinerary(6,x),"-","~")%><%end if%> |
<%
next
%>
This schedule is updated on a regular basis, so please check back often . . .
<%
end if
%>
Copyright © <%=Year(Now)%> [Linda Lanier] All rights reserved.
|