<%
Function NameFromMonth(iMonth)
'There is an ASP function called
'NameFromMonth that does this,
'but it does not seem to
'work in all cases
select case cint(iMonth)
case 1
s = "January"
case 2
s = "February"
case 3
s = "March"
case 4
s = "April"
case 5
s = "May"
case 6
s = "June"
case 7
s = "July"
case 8
s = "August"
case 9
s = "September"
case 10
s = "October"
case 11
s = "November"
case 12
s = "December"
end select
NameFromMonth = s
End Function
aMonth=Request.QueryString ("Month")
aYear=Request.QueryString ("Year")
aDay=Request.QueryString ("Day")
if trim(aMonth) = "" then aMonth = Month(Now)
sMonth=NameFromMonth(aMonth)
if trim(aYear) = "" then aYear = Year(Now)
if trim(aDay) = "" then aDay = Day(Now)
%>
Booking
Enquiry Form
Please
re-check form carefully before
submitting
Submission may take a couple of
minutes please be patient
All
drawings by local artist Petronella Clifden-Brown
