Necesito ayuda con ASP

[Luchi]

Mi pregunta es como hago detectar el pais visitante.Espero que alguien pueda ayudarme!!1Gracias

[univercity]

mmmm, he visto el codigo pero no recuerdo donde, pero me suena mas Javascript que ASP... haber si alguien lo sabe...

[sqa212]

Con esto ves el idioma del navegador:
lengua=Request.ServerVariables("HTTP_ACCEPT_LANGUA GE")

[lexus]

hola
tengo este codigo qeu te saca los idiomas pero creo qeu haciendole un par de cambios lo puedes adaptar a lo qeu necesitas..

Código:

 
<% 
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 desconocido") 
End Select 
Response.Write "<br>"
End Sub 
%>

si quieres ver mas informacion visita esta pagina
http://www.microsoft.com/globaldev/D...1/default.mspx