El codigo es el siguiente:
Código:
Espero que no sea mucho pedir y gracias de nuevo... <%
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 asignamos el idioma predeterminado
case Else
Response.Write "en"
end select
%>

