Family Attractions in the Amish Country, Lancaster County, PA

<%@ Language=VBScript %> <% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "/area-attractions/family-fun.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() %> Family Attractions in the Amish Country, Lancaster County, PA

to the Renaissance Faire, it's only the beginning of what is in store for the ultimate vacation in fun. Find yourself surrounded in a land where discovery and excitement meet the young at heart. There are amusement parks like Hershey and Dutch Wonderland with fast rides and water parks to keep you on your feet. If you prefer imaginative, hands-on discoveries check out museums like Hands on House , Kidmazium, The National Toy Train Museum, the Choo-Choo Barn . If rides of a slower mode are what you like be sure to catch the Strasburg Railroad where you can ride in the car pulled by an old steam engine and take in the beautiful countryside or a sit back and enjoy a sight-seeing tour of the country life on a horse and buggy ride. Just in case, you think we're too laid back in the midst of country bliss, try out the Laserdome , where laser shows and laser tag are the ultimate in high-tech fun. For the ultimate challenge, be sure to check out the Amazing-Maize Maze at Cherry Crest Farms for a 5-acre escapade in the fall.