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