Esto que es??

[lexus]

hola, lo puedes arreglar con un left(lengua,2)

mira asi:

<%
Dim pais, idioma

'Detectamos el pais del usuario
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

'A partir de los dos primeros caracteres detectamos el idioma
idioma = Left(pais, 2)

select case idioma
case "es"
idioma = "En Español: Bienvenido"
case "pt"
idioma = "En Portugués: Bem-vindo "
case "en"
idioma = "En Inglés: Welcome"
end select

response.write idioma
%>

suerte espero te sirva