<% dim serverName serverName = request.ServerVariables("SERVER_NAME") if inStr(1,serverName,"islandsugar.com",1)>0 then response.Redirect("/islandsugar") elseif inStr(1,serverName,"koroisland.com",1)>0 then response.Redirect("/koroisland") elseif inStr(1,serverName,"koroisland.org",1)>0 then response.Redirect("/koro") elseif inStr(1,serverName,"thamus.com",1)>0 then response.Redirect("/thamus") else response.Write("You came to unknown domain. Please choose one of the following:
") response.Write("http://www.islandsugar.com
") response.Write("http://www.koroisland.com
") response.Write("http://www.koroisland.org
") response.Write("http://www.thamus.com
") end if %>