Código:
<%
Dim idioma
idioma = Lcase(Left(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),2))
select case idioma
'Si el idioma del navegador es Aleman
case "de"
Response.Write "de"
'Si el idioma del navegador es Ingles
case "en"
Response.Write "en"
'Si el idioma del navegador es Español
case "es"
Response.Write "es"
'Si el idioma del navegador es Frances
case "fr"
Response.Write "fr"
'Si el idioma del navegador es Italiano
case "it"
Response.Write "it"
'Si el idioma del navegador es Portugues
case "pt"
Response.Write "pt"
'Si el idioma del navegador no coincide con ninguno de los demas enviamos a la pagina predeterminada
case Else
Response.Write "en"
end select
%>

