Theatres and plays in the Amish Country, Lancaster County, PA

<%@ Language=VBScript %> <% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "/area-attractions/theatres.asp" %> <% Sub Dynamic301redirect() dim ServerName, OldDomain(13), OldDomainNoWWW(13), SitePathInfo, TheQueryString, NewDomain, CheckNew, CheckOld, CheckOldNoWWW 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" OldDomain(1) = "www.theinnandspaatintercoursevillage.com" OldDomainNoWWW(1) = "theinnandspaatintercoursevillage.com" OldDomain(2) = "www.lancastercountyvacationhomes.com" OldDomainNoWWW(2) = "lancastercountyvacationhomes.com" OldDomain(3) = "www.intercoursevillagevacationhome.com" OldDomainNoWWW(3) = "intercoursevillagevacationhome.com" OldDomain(4) = "www.intercoursevillageinn.com" OldDomainNoWWW(4) = "intercoursevillageinn.com" OldDomain(5) = "www.inn-spa.com" OldDomainNoWWW(5) = "inn-spa.com" OldDomain(6) = "www.carriagehousemotorinn.net" OldDomainNoWWW(6) = "carriagehousemotorinn.net" OldDomain(7) = "www.bwintercoursevillageinn.com" OldDomainNoWWW(7) = "bwintercoursevillageinn.com" OldDomain(8) = "www.bwintercourse.com" OldDomainNoWWW(8) = "bwintercourse.com" OldDomain(9) = "www.bestwesternintercoursevillageinn.com" OldDomainNoWWW(9) = "bestwesternintercoursevillageinn.com" OldDomain(10) = "www.amishcountryvacationhomes.com" OldDomainNoWWW(10) = "amishcountryvacationhomes.com" OldDomain(11) = "www.amishcountryinnsandspa.com" OldDomainNoWWW(11) = "amishcountryinnsandspa.com" OldDomain(12) = "www.intercoursevillagerestaurant.com" OldDomainNoWWW(12) = "intercoursevillagerestaurant.com" NewDomain = "www.amishcountryinns.com" ServerName = ServerName & SitePathInfo & TheQueryString for i = 0 to ubound(OldDomain) CheckNew = NewDomain & 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() %> Theatres and plays in the Amish Country, Lancaster County, PA

Christian Theatre company in the United States. Sights & Sounds Theatre® is the ultimate interactive experience of the bible on stage. Culture is part of the Lancaster County. Theatres and shows throughout the area are entertaining for the young and the old(er). Experience world-class productions at The Fulton Opera House and star shopping shows at the American Music Theatre . The young at heart will enjoy the Hole in the Wall Puppet Theatre and Museum. From dinner theatres to playhouse productions the entertainment never ends.

Area Attractions

History, culture, shopping & family fun