<%
Dim pais, idioma
'Detectamos el pais del usuario
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
'A partir de los dos primeros caracteres detectamos el idioma
idioma = Left(pais, 2)
select case idioma
case "es"
idioma = "En Español: Bienvenido a Univercity.cl"
case "pt"
idioma = "En Portugués Bem-vindo a Univercity.cl"
case "en"
idioma = "En Inglés: Welcome to Univercity.cl"
end select
response.write idioma
%>
<img src="idioma_<%=pais%>.gif">
O aqui puedes hacer la redireccion
saludos
No sean Ingratos Visiten 