<%@ Language="VBScript" %> Canterbury Holidays - Prices & Availability <% if isguid(request.QueryString("propcode")) = true then propcode = request.QueryString ("propcode") end if %>
English Tourism Council 5 Star Self Catering Accommodation

Canterbury Country Houses

Prices & Availability

Check availability and pricing for The Oast

Check availability and pricing for The Old Tannery

Check availability and pricing for Ellens Cottage

Availability

Select Month:

<% startmon = dateadd("d", (datepart("w", date(), 6) - 1), date()) set end_rs = server.CreateObject ("ADODB.Recordset") set end_rs.activeconnection = conn end_rs.open "SELECT MAX(startdate) as topdate " &_ "FROM dates " do until end_rs.eof topdate = properdate(end_rs("topdate").value) end_rs.movenext loop end_rs.close diff = datediff("m", startmon, topdate) for i = 0 to diff %>

&propcode=<% = propcode %>"><% = monthname(month(dateadd("m", i, startmon))) & " " & year(dateadd("m", i, startmon)) %>

<% next %>

Select Property

<% set pro_rs = server.CreateObject ("ADODB.Recordset") set pro_rs.activeconnection = conn pro_rs.open "SELECT * FROM properties " &_ "ORDER BY propertyname " do until pro_rs.eof %>

&propcode=<% = trim(pro_rs("propertycode").value) %>"><% = trim(pro_rs("propertyname").value) %>

<% pro_rs.movenext loop pro_rs.close %>
<% if request.QueryString ("sd") <> "" then db_start = request.QueryString ("sd") if right(db_start, 1) = ">" then db_start = left(db_start, len(db_start) - 1) end if db_end = dateadd("m", 3, db_start) check_start = dateadd("d", datepart("ww", date(), 6), date()) last_start = dateadd("m", -1, db_start) if datediff("d", check_start, last_start) < 0 then new_start = check_start else new_start = last_start end if if datediff("d", new_start, db_start) <> 0 then %> <% end if else db_start = dateadd("d", (datepart("w", date(), 6) - 1), date()) db_end = dateadd("m", 3, db_start) end if shown = false startdate = string(2 - len(day(db_start)), "0") & day(db_start) & string(2 - len(month(db_start)), "0") & month(db_start) & year(db_start) enddate = string(2 - len(day(db_end)), "0") & day(db_end) & string(2 - len(month(db_end)), "0") & month(db_end) & year(db_end) show_len = datediff("ww", db_start, db_end) + 1 if request.QueryString ("propcode") <> "" then propcode = request.QueryString ("propcode") set pro_rs = server.CreateObject ("ADODB.Recordset") set pro_rs.activeconnection = conn pro_rs.open "SELECT * FROM properties " &_ "WHERE propertycode = '" & replace(propcode, "'", "''") & "' " &_ "ORDER BY propertyname " do until pro_rs.eof propcode = trim(pro_rs("propertycode").value) propname = trim(pro_rs("propertyname").value) changeover = cint(pro_rs("changeover").value) %>

<% = propname %>
Changeover: <% = weekdayname(changeover) %>

<% if year(db_end) > year(db_start) then endmonth = month(db_end) + 12 else endmonth = month(db_end) end if showyear = year(db_start) for m = month(db_start) to endmonth if m > 12 then showmonth = m - 12 showyear = showyear + 1 else showmonth = m end if %>

<% = monthname(showmonth) & " " & showyear %>

<% for d = 1 to 7 %> <% next %> <% cells = 0 %> <% for d = 1 to (datepart("w", "01/" & showmonth & "/" & showyear, changeover) - 1) cells = cells + 1 %><% next weeks = 0 for d = 1 to 31 if isdate(d & "/" & showmonth & "/" & showyear) = true then cells = cells + 1 weekstart = dateadd("d", 1 - datepart("w", d & "/" & showmonth & "/" & showyear, changeover), d & "/" & showmonth & "/" & showyear) this_d = string(2 - len(day(weekstart)), "0") & day(weekstart) this_m = string(2 - len(month(weekstart)), "0") & month(weekstart) this_y = year(weekstart) weekstart = this_y & this_m & this_d set bok_rs = server.CreateObject ("ADODB.Recordset") set bok_rs.activeconnection = conn bok_rs.open "SELECT * FROM dates " &_ "WHERE propertycode = '" & propcode & "' " &_ "AND startdate = '" & weekstart & "' " if bok_rs.eof and bok_rs.bof then color = "ffffff" bgcol = "bbbbbb" else do until bok_rs.eof if cbool(bok_rs("booked").value) = true then color = "ffffff" bgcol = "ff0000" else color = "ffffff" bgcol = "006600" end if bok_rs.movenext loop end if bok_rs.close %><% if cells mod 7 = 0 then weeks = weeks + 1 weekstart = dateadd("d", -6, d & "/" & showmonth & "/" & showyear) this_d = string(2 - len(day(weekstart)), "0") & day(weekstart) this_m = string(2 - len(month(weekstart)), "0") & month(weekstart) this_y = year(weekstart) weekstart = this_y & this_m & this_d set pri_rs = server.CreateObject ("ADODB.Recordset") set pri_rs.activeconnection = conn pri_rs.open "SELECT * FROM dates " &_ "WHERE propertycode = '" & propcode & "' " &_ "AND startdate = '" & weekstart & "' " if pri_rs.eof and pri_rs.bof then weekprice = " " else do until pri_rs.eof if isnumeric(pri_rs("cost").value) then weekprice = "£ " & formatnumber(pri_rs("cost").value, 0) else weekprice = " " end if pri_rs.movenext loop end if %><% pri_rs.close %> <% end if lastday = d end if next lastcell = datepart("w", lastday & "/" & showmonth & "/" & showyear, changeover) + 1 for d = lastcell to 7 %><% next if lastcell <> 8 then weekstart = dateadd("d", 1 - datepart("w", lastday & "/" & showmonth & "/" & showyear, changeover), lastday & "/" & showmonth & "/" & showyear) this_d = string(2 - len(day(weekstart)), "0") & day(weekstart) this_m = string(2 - len(month(weekstart)), "0") & month(weekstart) this_y = year(weekstart) weekstart = this_y & this_m & this_d set bok_rs = server.CreateObject ("ADODB.Recordset") set bok_rs.activeconnection = conn bok_rs.open "SELECT * FROM dates " &_ "WHERE propertycode = '" & propcode & "' " &_ "AND startdate = '" & weekstart & "' " if bok_rs.eof and bok_rs.bof then color = "000000" bgcol = "bbbbbb" weekprice = " " else do until bok_rs.eof if isnumeric(bok_rs("cost").value) then weekprice = "£ " & formatnumber(bok_rs("cost").value, 0) else weekprice = " " end if if cbool(bok_rs("booked").value) = true then color = "ffffff" bgcol = "ff0000" else color = "ffffff" bgcol = "006600" end if bok_rs.movenext loop end if bok_rs.close %><% else weeks = weeks - 1 end if %>
<% = left(weekdayname(d, true, changeover), 2) %> 
 <% = d %><% = weekprice %>
 <% = weekprice %>
<% next %>
<% pro_rs.movenext loop pro_rs.close %>
<% end if %>

NOTES

 

Prices are inclusive of VAT

Prices include fuel, electricity, bed linen, towels.

A deposit/damage bond of £200 per house is due at the time of booking.

The deposit/damage bond will be refunded after your stay as long as the house is left clean

& tidy and there are no damages.

Full payment is due 8 weeks prior to your stay.

Please contact us to check availability

Contact:
Tel:
Fax:
Mark or Rosie Mount
+44 (0)7730 910890
01227 831969

Send e-mail enquiry