Código fuente de 'Detecta idioma.asp'

<html>
<head>
<title>Detecta idioma - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Detecta idioma</font></b></p>
</p><br>

Detecta el idioma del visitante en cuestión, y a partir de esa información, saludamos.
<br><br>
<%
Dim pais, idioma
'Detectamos el pais del usuario
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

'A partir de los dos primeros caracteres de la cadena, detectamos el idioma
idioma = Left(pais, 2)
select case idioma
case "es"
idioma = "Contenido en Español: Bienvenido"
case "pt"
idioma = "En Portugués Bem-vindo"
case "en"
idioma = "En Inglés: Welcome"
case "fr"
idioma = "En francés: Bienvenu"
case "de"
idioma = "En alemán: Herzliche Willkommen"
case else
idioma="Ni español, ni francés, ni alemán, ni portugués"
end select 
response.write idioma 
%>

</body>
</html>