%@ Language=VBScript %> <% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://www.inn-spa.com/inn-spa-packages.html" %> <% Sub Dynamic301redirect() dim ServerName, OldDomain(13), OldDomainNoWWW(13), SitePathInfo, NewDomain(13), TheQueryString, CheckNew, CheckOld ServerName = Request.ServerVariables("SERVER_NAME") & "" SitePathInfo = Request.ServerVariables("PATH_INFO") & "" TheQueryString = request.ServerVariables("QUERY_STRING") & "" If TheQueryString <> "" then TheQueryString = "?" & TheQueryString End If 'Here you need to put the old domain, and the new domain (just www.domain.com) OldDomain(0) = "www.thespaatintercoursevillage.com" OldDomainNoWWW(0) = "thespaatintercoursevillage.com" NewDomain(0) = "www.amishcountryinns.com/spa" OldDomain(1) = "www.theinnandspaatintercoursevillage.com" OldDomainNoWWW(1) = "theinnandspaatintercoursevillage.com" NewDomain(1) = "www.amishcountryinns.com/inn" OldDomain(2) = "www.lancastercountyvacationhomes.com" OldDomainNoWWW(2) = "lancastercountyvacationhomes.com" NewDomain(2) = "www.amishcountryinns.com/vacation" OldDomain(3) = "www.intercoursevillagevacationhome.com" OldDomainNoWWW(3) = "intercoursevillagevacationhome.com" NewDomain(3) = "www.amishcountryinns.com/vacation" OldDomain(4) = "www.intercoursevillageinn.com" OldDomainNoWWW(4) = "intercoursevillageinn.com" NewDomain(4) = "www.amishcountryinns.com/best" OldDomain(5) = "www.inn-spa.com" OldDomainNoWWW(5) = "inn-spa.com" NewDomain(5) = "www.amishcountryinns.com/inn" OldDomain(6) = "www.carriagehousemotorinn.net" OldDomainNoWWW(6) = "carriagehousemotorinn.net" NewDomain(6) = "www.amishcountryinns.com/motor" OldDomain(7) = "www.bwintercoursevillageinn.com" OldDomainNoWWW(7) = "bwintercoursevillageinn.com" NewDomain(7) = "www.amishcountryinns.com/best" OldDomain(8) = "www.bwintercourse.com" OldDomainNoWWW(8) = "bwintercourse.com" NewDomain(8) = "www.amishcountryinns.com/best" OldDomain(9) = "www.bestwesternintercoursevillageinn.com" OldDomainNoWWW(9) = "bestwesternintercoursevillageinn.com" NewDomain(9) = "www.amishcountryinns.com/best" OldDomain(10) = "www.amishcountryvacationhomes.com" OldDomainNoWWW(10) = "amishcountryvacationhomes.com" NewDomain(10) = "www.amishcountryinns.com/vacation" OldDomain(11) = "www.amishcountryinnsandspa.com" OldDomainNoWWW(11) = "amishcountryinnsandspa.com" NewDomain(11) = "www.amishcountryinns.com/inn" OldDomain(12) = "www.intercoursevillagerestaurant.com" OldDomainNoWWW(12) = "intercoursevillagerestaurant.com" NewDomain(12) = "www.amishcountryinns.com/restaurant.htm" ServerName = ServerName & SitePathInfo & TheQueryString for i = 0 to ubound(OldDomain) CheckNew = NewDomain(i) & SitePathInfo & TheQueryString CheckOld = OldDomain(i) & SitePathInfo & TheQueryString CheckOldNoWWW = OldDomainNoWWW(i) & SitePathInfo & TheQueryString IF lcase(ServerName) = CheckOld OR lcase(ServerName) = CheckOldNoWWW then ServerName = Request.ServerVariables("HTTP_REFERER") & "" IF instr(ServerName, CheckOld) = 0 OR instr(ServerName, CheckOldNoWWW) then Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://" & CheckNew end if end if next End Sub Call Dynamic301redirect() %>
"Spa" - Serenity for TwoTreat yourself to a relaxing Spa experience for two. Designed for restorative beauty, healing relaxation, and emotional balance, The Inn & Spa is your place for complete relaxation and serenity.
This package is available for $319.00 in addition
to your room cost.
Relaxation for your soulSoak away your stress with an elegant gift basket from our Spa includes:
This package is available for $149.00 in addition
to the cost of your suite.
|
![]() |
![]() |

|
About |
Suites |
Breakfast |
Packages |
Weddings |
Spa |
The Area |
Directions
|