<% sTariff = Request.QueryString("tariff") & "" if sTariff = "" then sTariff = "false" end if sDollar = Request.QueryString("dollar") & "" if sDollar = "" then sDollar = "false" end if sCall = Request.QueryString("call") & "" if sCall = "" then sCall = "false" end if sSubmitted = Request.QueryString("submitted") & "" if sSubmitted = "" then sSubmitted = "false" end if if sCall = "true" then 'display request a call info if sSubmitted = "true" then 'display thanks text %>

<%=name%>

Thank you for your request.

<% else 'request call form %>

<%=name%>

<% end if elseif sTariff = "true" then 'display tariff info %>

<%=name%>

All bookings for the period 15th December to 10th January will be charged at peak rate.

<% if sDollar = "true" then %>

Convert to £GB *

<% else %>

Convert to $US *

<% end if %>

<% '*** dictionary object set temp = CreateObject("Scripting.Dictionary") set temp = r1 For i = 1 to noOfRoomTypes execute("set temp = r"&i) ' get data sterling1004pn = temp.Item("sterling1004pn") & "" 'sterling1004pn = sterling1004pn.substring(0, Len(sterling1004pn - 3)) if sDollar = "true" then %> <% else %> <% end if %> <% next %>

Rooms	Oct-Apr		May-Sep
	Night	Week	Night	Week
<%= temp.Item("roomtype") %>	$<%= temp.Item("dollars1004pn") %>	$<%= temp.Item("dollars1004pw") %>	$<%= temp.Item("dollars0509pn")%>	$<%= temp.Item("dollars0509pw") %>
<%= temp.Item("roomtype") %>	£<%= temp.Item("sterling1004pn") %>	£<%= temp.Item("sterling1004pw") %>	£<%= temp.Item("sterling0509pn")%>	£<%= temp.Item("sterling0509pw") %>

Prices inclusive of applicable taxes

* The above currency conversion is only an indication. For an accurate price, check exchange rates with your local bureau.

<% else 'default info %>

<%=name%>

<%=introText%>

<% end if %>