<% ' This file will redirect the user to the Newman WWW site if they do not go the the correct 'servers because the DNS entries haven't changed yet. ' ' Author: 'John Wilen 3/22/00 ' '$Header: /../projects/fool/www/usmf/MiscSite (FoolU, etc)/headhunter/HeadHunterMove.asp 3 5/24/00 5:05p Johnw $ '$NoKeywords: $ bNoSurf = true const DebugOn = False on error resume next const ERROR_REDIRECT = "SiteUnavailable.asp" ' Site to send people to. dim lsURL' The entire path from the query string. dim liPosition' The position of the "/" after the .com, etc. dim lsFinalURL' The final Base URL. ie. www..com dim lsHost' This the file path and the path a person is lookin for. dim lbFound' This boolean is used to find if a URL could be identified by country. dim lsSearchFor' This is the section that we are searched for. dim lbNoReattach' This checks to see if reattaching the URL path. dim lsFinalMove dim liTextCompare dim lsAppendedString dim lsGoAway lsGoAway = false liTextCompare = 1 lsFinalURL = "" lsFinalMove = "" lsAppendedString = "" '-------------------------------------------------------------------------------------------------- ' Beginning of main program. ' ' This will get the URL from either the ISAP or QueryString and check to see if a person should 'be redirected to a different site. lbNoReattach = false lbFound = false' Set to false be default, then if you find something it will be true. if err.number <> 0 then ExitPage ERROR_REDIRECT ' If there is a no error that enter page. lsHost = lcase(Request.ServerVariables ("SERVER_NAME")) ' Get the server name. 'Ok, we are doing the cool new 404 gig. if left ( trim( Request.QueryString ), 4 ) = "404;" then' If it is Querystring way. lsURL = replace(Request.querystring, "'", "''")' Get ride of the " marks lsURL = replace(lsURL, "404;http://", "")' Cut off the "404;http://". 'call LogError( "lostfool", gsSite, lsURL, false, false, "", "", "" ) liPosition = instr(1, lsURL,"/", liTextCompare)' Find the "/" lsHost = left(lsURL, liPosition -1)' Get the www..com part. lsFinalURL = right(lsURL, len(lsURL) - (liPosition - 1))' Get the rest of the URL. ' We are doing the crappy old 404 ISAPI. elseif Request.QueryString("HOST") <> "" then' The HOST name. lsFinalURL = replace(Request.querystring("URL"), "'", "''")' Get URL. lsHost = replace(Request.querystring("HOST"), "'", "''")' Get host. 'call LogError( "lostfool", gsSite, lsHost & lsFinalURL, false, false, "", "", "" ) elseif lsFinalURL = "" then lsURL = lcase(Request.ServerVariables ("URL")) 'call LogError( "lostfool", gsSite, lsHost & lsFinalURL, false, false, "", "", "" ) if not( Request.querystring = "") then lsAppendedString = "?" & Request.querystring else lsAppendedString = "" end if end if' Checking to see if it was a non-ISAPI thing. liPosition = instr(1, lsURL,"headhunter", liTextCompare) ' Find the "/" lsFinalMove = right(lsURL, len(lsURL) - (liPosition + 10)) ' Get the rest of the URL. lsFinalMove = "http://asktheheadhunter.com/" & lsFinalMove & lsAppendedString ' Finalmove. %> The Head Hunter has moved The Motley Fool
 The HeadHunter has moved to www.asktheheadhunter.com!

We will now try and transfer you to the same file on www.asktheheadhunter.com

Please make sure to change your browser bookmarks or favorites. The page you requested can now be found at <% = lsFinalMove %>.

If you have any questions please email www.asktheheadhunter.com.

(This page will redirect in 10 seconds.) <% iTotalTime = ( ( timer() - iStartTime ) * 1000 ) Response.Write( gsSITE_LOCATION & gsSITE_SERVER) %>