<%@LANGUAGE="VBSCRIPT"%> <% Dim TotalNum Dim Price Dim MealError Dim MinimumGroupSize Dim PriceBreak1 Dim PriceBreak2 Dim MaxGroupSize Dim Discount1to10 Dim PerPerson Dim NumFreeAdults Dim PoolPrice Dim RopesPrice Dim RopesSetup Dim CanoePrice Dim LodgePrice Dim RoomPrice Dim TotalCost Dim TotalActivityCost Dim PayFor MealError = 0 MinimumGroupSize = 50 PriceBreak1 = 150 PriceBreak2 = 300 MaxGroupSize = 600 Discount1to10 = 0 NumFreeAdults = 0 PoolPrice = 80.00 RopesPrice = 7.00 RopesSetup = 195.00 RopesTotal = 0 CanoePrice = 50.00 BoatPrice = 125.00 LodgePrice = 10.00 'This is the additional amount per person per night to upgrade from a cabin to a lodge RoomPrice = 50.00 TotalActivityCost = 0 TotalCost = 0 PayFor = 0 ' Calculate the total number of guests TotalNum = Int(Request.QueryString("NumYth")) + Int(Request.QueryString("NumAd")) ' Calculate which price applies based on size of group If TotalNum =PriceBreak2 THEN Price = 34 END IF If TotalNum<50 THEN PayFor=50 ELSE PayFor = TotalNum END IF PerPerson = ((Request.QueryString("Nights")*Price-8*(Request.QueryString("Nights")*3-Request.QueryString("Meals")))) ' Determine if 1:10 discount applies and determine the number of free adults IF Int(Request.QueryString("NumYth"))>=MinimumGroupSize AND Int(Request.QueryString("NumAd"))>0 AND Request.QueryString("AdWithKids")=1 THEN Discount1to10 = 1 END IF IF Int(Request.QueryString("NumAd"))>=Int(Request.QueryString("NumYth")*0.1) THEN NumFreeAdults=Int(Request.QueryString("NumYth")*0.1) ELSE NumFreeAdults=Int(Request.QueryString("NumAd")) END IF If Discount1to10 = 0 THEN NumFreeAdults = 0 END IF ' Add premium to price if choosing to stay in lodge If Request.QueryString("Accom")=2 THEN PerPerson = PerPerson + LodgePrice*Request.QueryString("Nights") END IF ' Check for not enough meals, if not enough, set MealError = 1 If Request.QueryString("Nights")*3-Request.QueryString("Meals")>3 THEN MealError=1 END IF ' Check for too many meals. If too many, set MealError = 2 If Request.QueryString("Nights")*3-Request.QueryString("Meals")<-3 THEN MealError=2 END IF 'Compute total special activity cost IF Request.QueryString("RopesHrs")>0 THEN RopesTotal = Request.QueryString("RopesHrs")*Request.QueryString("RopesNum")*RopesPrice+RopesSetup END IF TotalActivityCost = Request.QueryString("Room")*Request.QueryString("Nights")*RoomPrice+Request.QueryString("Pool")*PoolPrice+Request.QueryString("Canoe")*CanoePrice + RopesTotal + Request.QueryString("Boat")*BoatPrice %> Sandy Hill Retreat Cost Estimator

  - General Information
  - Accommodations
  - Meeting Spaces
  - Recreational
    Activities
  - Meals
  - Cost Estimator
  - Planning Your Event

Overnight Retreat Estimator

Please complete the appropriate boxes in the form below to estimate the cost of your retreat.*
Price discounts for larger groups occur at <%=PriceBreak1%> and <%=PriceBreak2%> paying guests. These discounts are partially built-in to this estimator.
<% IF TotalNum>0 THEN%> <% IF TotalNum<50 THEN%> <% END IF%> <% END IF%> <%IF Discount1to10 = 1 THEN%> <% END IF%>

Retreat Details Per
Person Total

Retreat Basics:

0 THEN Response.Write(Request.QueryString("NumYth")) ELSE Response.Write(0) END IF%>" size="4" maxlength="3"> Number of guests under the age of 18

" size="4" maxlength="3"> Number of adults 18 and older

0 THEN Response.Write(Request.QueryString("Nights")) ELSE Response.Write(1) END IF%>" size="3" maxlength="3"> Number of nights

0 THEN Response.Write(Request.QueryString("Meals")) ELSE Response.Write(3) END IF%>" size="3" maxlength="3"> Number of meals <%IF MealError=1 THEN Response.Write("
Meal count error - not enough meals for "&Request.QueryString("Nights")&" night(s)") END IF%> <%IF MealError=2 THEN Response.Write("
Meal count error - too many meals for "&Request.QueryString("Nights")&" night(s)") END IF%>

Type of accomodations:
    name="Accom" type="radio" value="1" checked> Cabins
    type="radio" name="Accom" value="2"> Lodges
<%IF Request.QueryString("Accom")=2 THEN Response.Write("Trying to cut costs? Save $"&LodgePrice&" per night using cabins") END IF%> <%IF Request.QueryString("Accom")<>2 THEN Response.Write("Upgrade to the new lodges for $"&LodgePrice&" per night") END IF%>
The base price for <%=Response.Write(TotalNum)%> guests in the <%IF Request.QueryString("Accom") = 1 THEN Response.Write ("cabins") ELSE Response.Write ("lodge(s)") END IF %> for <%=Request.QueryString("Nights")%> night(s) and <%=Request.QueryString("Meals")%> meal(s), meeting space and most recreational activities is:
**<%IF TotalNum>0 THEN Response.Write("$"&FormatNumber(PayForPerPerson/TotalNum,2)) END IF%>

$ <%=FormatNumber(PerPersonPayFor,2)%>

-----Important Note, Minimum Event Size Not Met-----
The minimum group size for an event at Sandy Hill is <%=MinimumGroupSize%> guests. Because the event that you are considering has fewer than <%=MinimumGroupSize%> guests, you must pay for <%=MinimumGroupSize%> in order to hold the event even though you are only expecting <%=TotalNum%> guests to attend. Obviously this will significantly affect the price per person.

Adult Supervision** (youth events only)
type="radio" name="AdWithKids" value="1" checked> We WILL have an adult in each cabin or lodge room of youth
(Discount of 1 adult free for every 10 youth offered with above option)
type="radio" name="AdWithKids" value="0"> We WILL NOT have an adult in each cabin of youth
- or - All of our guests are already adults

Because there will be an adult in every cabin, for <%=Request.QueryString("NumYth")%> youth, up to <%=Int(Request.QueryString("NumYth")*0.1)%> adults attend for free. For your retreat, <%=NumFreeAdults%> of the <%=Request.QueryString("NumAd")%> adults attend for free resulting in a savings of:
**-$<%=FormatNumber(NumFreeAdultsPerPerson/TotalNum,2)%>

-$<%=FormatNumber(NumFreeAdultsPerPerson,2)%>

Additional Activities and Special Housing:

Swimming Pool**
"" THEN Response.Write(Request.QueryString("Pool")) ELSE Response.Write(0) END IF%>" size="3" maxlength="2"> Hours open
$<%=PoolPrice%>/hour (seasonal)
**<%IF TotalNum>0 THEN Response.Write("$"&FormatNumber(Int(Request.QueryString("Pool"))PoolPrice/TotalNum,2)) END IF%>

$<%=FormatNumber(Request.QueryString("Pool")PoolPrice,2)%>

Canoeing**
"" THEN Response.Write(Request.QueryString("Canoe")) ELSE Response.Write(0) END IF%>" size="3" maxlength="2"> Hours waterfront open for canoeing
$<%=CanoePrice%>/hour (seasonal)
**<%IF TotalNum>0 THEN Response.Write("$"&FormatNumber(Request.QueryString("Canoe")CanoePrice/TotalNum,2)) END IF%>

$<%=FormatNumber(Request.QueryString("Canoe")CanoePrice,2)%>

Challenge Course** (learn more)
"" THEN Response.Write(Request.QueryString("RopesNum")) ELSE Response.Write(0) END IF%>" size="3" maxlength="3"> Number of participants (minimum of 12)
"" THEN Response.Write(Request.QueryString("RopesHrs")) ELSE Response.Write(0) END IF%>" size="3" maxlength="2"> Hours on course per person
$<%=RopesPrice%>/person/hour plus $<%=RopesSetup%> setup fee
<%IF TotalNum>0 AND Int(Request.QueryString("RopesHrs"))>0 THEN Response.Write("$"&FormatNumber((Request.QueryString("RopesHrs")Request.QueryString("RopesNum")RopesPrice+RopesSetup)/TotalNum,2))%>

  $ <%IF Request.QueryString("RopesHrs")>0 THEN Response.Write(FormatNumber(Request.QueryString("RopesHrs")Request.QueryString("RopesNum")RopesPrice+RopesSetup,2)) END IF%>

Boating
"" THEN Response.Write(Request.QueryString("Boat")) ELSE Response.Write(0) END IF%>" size="3" maxlength="2"> Hours open:
39' Sailboat with Captain or Speedboat Tours or Banana Boat Rides
$<%=BoatPrice%>/hour (seasonal)
**<%IF TotalNum>0 THEN Response.Write("$"&FormatNumber(Request.QueryString("Boat")BoatPrice/TotalNum,2)) END IF%>

$ <%=FormatNumber(Request.QueryString("Boat")BoatPrice,2)%>

Special Guest Housing**
"" THEN Response.Write(Request.QueryString("Room")) ELSE Response.Write(0) END IF%>" size="3" maxlength="2"> Number of rooms for <%=Request.QueryString("Nights")%> night(s)
$<%=RoomPrice%>/room/night
**<%IF TotalNum>0 THEN Response.Write("$"&FormatNumber(Int(Request.QueryString("Room"))Request.QueryString("Nights")RoomPrice/TotalNum,2)) END IF%>

$<%=FormatNumber(Request.QueryString("Room")Request.QueryString("Nights")RoomPrice,2)%>

Total cost for additional activities and special housing
$ <%IF TotalNum>0 THEN Response.Write(FormatNumber(TotalActivityCost/TotalNum,2)) END IF%>

$<%=FormatNumber(TotalActivityCost,2)%>

Total estimated retreat price:**

$<%IF TotalNum>0 THEN Response.Write(FormatNumber(((PayFor-NumFreeAdults)PerPerson+TotalActivityCost)/TotalNum,2)) ELSE Response.Write(0) END IF%>
per
person

$<%=FormatNumber((PayFor-NumFreeAdults)PerPerson+TotalActivityCost,2)%>
total**

*This estimating program is designed to give you a rough idea of the overall price and per person price for a retreat at Sandy Hill. For exact pricing, please contact the Sandy Hill office. These prices are subject to change at Sandy Hill's sole discretion at any time without notification. Nearly all of our retreat groups are "not-for-profit" groups (schools, churches, etc.), so there is only one set of prices for our retreats regardless of a group's tax-exempt status.
** These prices do not include any applicable sales tax for our "for-profit" groups.

Sandy Hill Camp and Retreat Center
3380 Turkey Point Road, North East, Maryland 21901
Phone: (410) 287-5554 Fax: (410) 287-0826 Email: info@SandyHillCamp.com