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