<%@ Language=VBScript %> <% langageLocal=Lcase(left (Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),2)) LangueEnCours="GB" Select Case LangageLocal Case "fr" LangueEnCours="FR" Case "de" LangueEnCours="GR" Case "es" LangueEnCours="SP" End Select session("Espace")="G" session("Langue")=LangueEnCours %>