<%
Response.Buffer = True
strLang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
select case strLang
case "en-us"
Response.Redirect("en-us/base.asp")
case "ar"
Response.Redirect("ara/base.asp")
case "pt-br"
Response.Redirect("brz/base.asp")
case "zh"
Response.Redirect("chs/base.asp")
case "zh-tw"
Response.Redirect("cht/base.asp")
case "cs"
Response.Redirect("cze/base.asp")
case "da"
Response.Redirect("dan/base.asp")
case "nl"
Response.Redirect("dut/base.asp")
case "fi"
Response.Redirect("fin/base.asp")
case "fr"
Response.Redirect("frn/base.asp")
case "de"
Response.Redirect("ger/base.asp")
case "el"
Response.Redirect("grk/base.asp")
case "he"
Response.Redirect("heb/base.asp")
case "hu"
Response.Redirect("hun/base.asp")
case "it"
Response.Redirect("itn/base.asp")
case "ja"
Response.Redirect("jpn/base.asp")
case "ko"
Response.Redirect("kor/base.asp")
case "no"
Response.Redirect("nor/base.asp")
case "pl"
Response.Redirect("pol/base.asp")
case "pt"
Response.Redirect("por/base.asp")
case "ru"
Response.Redirect("rus/base.asp")
case "es"
Response.Redirect("spa/base.asp")
case "sv"
Response.Redirect("swe/base.asp")
case "tr"
Response.Redirect("trk/base.asp")
case else
Response.Redirect("en-us/base.asp")
end select
%>
