<%
Dim pagina,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"
pagina = "esp/frame.asp"
case "en"
pagina = "ing/frame.asp"
end select
%>