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 %>