mira esto puedes modificarlo pra que en cada case hagas un redirect dependiendo del pais o del idioma espero te sirva, si te falta algo al final te pongo una pagina qeu te servira
<%
vecIdiomas=split (Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")," ,")
response.write("Idiomas que estan definidos en el navegador:<BR>")
for i=0 to ubound(vecIdiomas)
if Instr(vecIdiomas(i),";") then
vecIdiomas(i)=Mid(vecIdiomas(i), 1,Instr(vecIdiomas(i),";")-1)
end if
BuscaDescripcion(vecIdiomas(i))
next
Sub BuscaDescripcion(idioma)
Select Case Trim(idioma)
Case "af"
Response.write("Afrikaans")
Case "sq"
Response.write("Albanian")
Case "eu"
Response.write("Basque")
Case "bg"
Response.write("Bulgarian")
Case "be"
Response.write("Byelorussian")
Case "ca"
Response.write("Catalan")
Case "zh"
Response.write("Chinese")
Case "zh-cn"
Response.write("Chinese/China")
Case "zh-tw"
Response.write("Chinese/Taiwan")
Case "zh-hk"
Response.write("Chinese/Hong Kong")
Case "zh-sg"
Response.write("Chinese/singapore")
Case "hr"
Response.write("Croatian")
Case "cs"
Response.write("Czech")
Case "da"
Response.write("Danish")
Case "nl"
Response.write("Dutch")
Case "nl-be"
Response.write("Dutch/Belgium")
Case "en"
Response.write("English")
Case "en-gb"
Response.write("English/United Kingdom")
Case "en-us"
Response.write("English/United Satates")
Case "en-au"
Response.write("English/Australian")
Case "en-ca"
Response.write("English/Canada")
Case "en-nz"
Response.write("English/New Zealand")
Case "en-ie"
Response.write("English/Ireland")
Case "en-za"
Response.write("English/South Africa")
Case "en-jm"
Response.write("English/Jamaica")
Case "en-bz"
Response.write("English/Belize")
Case "en-tt"
Response.write("English/Trinidad")
Case "et"
Response.write("Estonian")
Case "fo"
Response.write("Faeroese")
Case "fa"
Response.write("Farsi")
Case "fi"
Response.write("Finnish")
Case "fr"
Response.write("French")
Case "fr-be"
Response.write("French/Belgium")
Case "fr-fr"
Response.write("French/France")
Case "fr-ch"
Response.write("French/Switzerland")
Case "fr-ca"
Response.write("French/Canada")
Case "fr-lu"
Response.write("French/Luxembourg")
Case "gd"
Response.write("Gaelic")
Case "gl"
Response.write("Galician")
Case "de"
Response.write("German")
Case "de-at"
Response.write("German/Austria")
Case "de-de"
Response.write("German/Germany")
Case "de-ch"
Response.write("German/Switzerland")
Case "de-lu"
Response.write("German/Luxembourg")
Case "de-li"
Response.write("German/Liechtenstein")
Case "el"
Response.write("Greek")
Case "hi"
Response.write("Hindi")
Case "hu"
Response.write("Hungarian")
Case "is"
Response.write("Icelandic")
Case "id"
Response.write("Indonesian")
Case "in"
Response.write("Indonesian")
Case "ga"
Response.write("Irish")
Case "it"
Response.write("Italian")
Case "it-ch"
Response.write("Italian/ Switzerland")
Case "ja"
Response.write("Japanese")
Case "ko"
Response.write("Korean")
Case "lv"
Response.write("Latvian")
Case "lt"
Response.write("Lithuanian")
Case "mk"
Response.write("Macedonian")
Case "ms"
Response.write("Malaysian")
Case "mt"
Response.write("Maltese")
Case "no"
Response.write("Norwegian")
Case "pl"
Response.write("Polish")
Case "pt"
Response.write("Portuguese")
Case "pt-br"
Response.write("Portuguese/Brazil")
Case "rm"
Response.write("Rhaeto-Romanic")
Case "ro"
Response.write("Romanian")
Case "ro-mo"
Response.write("Romanian/Moldavia")
Case "ru"
Response.write("Russian")
Case "ru-mo"
Response.write("Russian /Moldavia")
Case "gd"
Response.write("Scots Gaelic")
Case "sr"
Response.write("Serbian")
Case "sk"
Response.write("Slovack")
Case "sl"
Response.write("Slovenian")
Case "sb"
Response.write("Sorbian")
Case "es"
Response.write("Español")
Case "es-do"
Response.write("Español")
Case "es-ar"
Response.write("Español/Argentina")
Case "es-co"
Response.write("Español/Colombia")
Case "es-mx"
Response.write("Español/Mexico")
Case "es-es"
Response.write("Español/Spain")
Case "es-gt"
Response.write("Español/Guatemala")
Case "es-cr"
Response.write("Español/Costa Rica")
Case "es-pa"
Response.write("Español/Panama")
Case "es-ve"
Response.write("Español/Venezuela")
Case "es-pe"
Response.write("Español/Peru")
Case "es-ec"
Response.write("Español/Ecuador")
Case "es-cl"
Response.write("Español/Chile")
Case "es-uy"
Response.write("Español/Uruguay")
Case "es-py"
Response.write("Español/Paraguay")
Case "es-bo"
Response.write("Español/Bolivia")
Case "es-sv"
Response.write("Español/El salvador")
Case "es-hn"
Response.write("Español/Honduras")
Case "es-ni"
Response.write("Español/Nicaragua")
Case "es-pr"
Response.write("Español/Puerto Rico")
Case "sx"
Response.write("Sutu")
Case "sv"
Response.write("Swedish")
Case "sv-fi"
Response.write("Swedish/Findland")
Case "ts"
Response.write("Thai")
Case "tn"
Response.write("Tswana")
Case "tr"
Response.write("Turkish")
Case "uk"
Response.write("Ukrainian")
Case "ur"
Response.write("Urdu")
Case "vi"
Response.write("Vietnamese")
Case "xh"
Response.write("Xshosa")
Case "ji"
Response.write("Yiddish")
Case "zu"
Response.write("Zulu")
Case Else
Response.write (Languagetowrite & ": Lenguaje no identificado")
End Select
Response.Write "<br>"
End Sub
%>
http://www.microsoft.com/globaldev/D...1/default.mspx