Ayuda con redirección por paises.

[leopardix]

Alguien sabe como hacer esto??:

Necesito hacer que los usuarios de mi web http://www.jovenesadventistas.org sean redireccionados a ciertos contenidos dependiendo del país desde el que se conectan. Cómo hago esto??? Hay IPs para cada país?? Dónde las encuentro??

Gracias a todos los usuarios del foro que me puedan aportar algo.

[Ruchu]

has de recuperar la variable de servidor HTTP_ACCEPT_LANGUAGE, mediante esto obtienes el idioma/pais del sistema operativo del usuario.

idioma=request.servervariables("HTTP_ACCEPT_LANGUA GE")

[VRaul]

mirate este manual, creo que es exactamente lo qeu buscabas:

http://asp.com-e.net/codigo/paisip.asp

[lexus]

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