<% ' ---------------------------------------------------------------------------------------------- ' Code to accept old link and redirect to new page ' ' Old link: http://www.century21sweyer.com/listings/prop-tsummary.asp ' New link: http://www.century21sweyer.com/listings/SearchOptions.asp ' ' ---------------------------------------------------------------------------------------------- 'response.write Request.ServerVariables("SERVER_NAME") & "
" 'response.write Request.ServerVariables("SERVER_PORT") & "
" 'response.write Request.ServerVariables("REQUEST_METHOD") & "
" 'response.write Request.ServerVariables("SCRIPT_NAME") & "
" 'response.write Request.ServerVariables("QUERY_STRING") & "
" ' retrieve calling server name (domain name; ie. www.century21sweyer.com) SERVER_NAME = request.servervariables("SERVER_NAME") QUERY_STRING = request.servervariables("QUERY_STRING") ' rebuild link and redirect if len(SERVER_NAME) > 0 then URL = "http://" & SERVER_NAME Select Case Right(QUERY_STRING, 3) Case "886" URL = URL & "/Home/tabid/575/Default.aspx" Case "915" URL = URL & "/SoccerSchools/tabid/594/Default.aspx" Case "893" URL = URL & "/SoccerSchools/BoardingSchool/tabid/595/Default.aspx" Case "901" URL = URL & "/SoccerSchools/CoachingSchool/tabid/597/Default.aspx" Case "891" URL = URL & "/Tours/tabid/598/Default.aspx" Case "892" URL = URL & "/Tours/Tournaments/tabid/599/Default.aspx" Case "894" URL = URL & "/Tours/Brazil/tabid/600/Default.aspx" Case "895" URL = URL & "/Tours/Italy/tabid/601/Default.aspx" Case "888" URL = URL & "/Camps/tabid/602/Default.aspx" Case "889" URL = URL & "/Camps/ItalySoccerCamps/tabid/596/Default.aspx" Case "890" URL = URL & "/Camps/NorthAmericanSoccerCamps/tabid/609/Default.aspx" Case "896" URL = URL & "/News/tabid/603/Default.aspx" Case "887" URL = URL & "/About/CoachingStaff/tabid/605/Default.aspx" Case "903" URL = URL & "/About/tabid/604/Default.aspx" Case "902" URL = URL & "/About/Affiliations/tabid/606/Default.aspx" Case "900" URL = URL & "/About/SoccerDrills/tabid/743/Default.aspx" Case "926" URL = URL & "/About/PevoSports/tabid/744/Default.aspx" Case "897" URL = URL & "/Contact/tabid/607/Default.aspx" Case "919" URL = URL & "/About/PrivacyandLimitationsPolicy/tabid/774/Default.aspx" Case Else URL = URL End Select ' redirect to new page... Response.Status = "301 Moved Permanently" Response.AddHeader "Location", URL Response.End end if %>