<% @ language=VBScript %> <% Option Explicit %> <% Response.Expires = -1 %> <% Response.Buffer = True session("MenuSecondaire") = -1 If Len(Request.Cookies("axionlangue")) = 0 Then 'If InStr(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"), "es") > 0 Then ' Response.Cookies("axionlangue") = "es" 'Else If InStr(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"), "en") > 0 Then Response.Cookies("axionlangue") = "an" Else Response.Cookies("axionlangue") = "fr" End If 'End If Response.Cookies("axionlangue").Expires = Date + 3650 Else If Len(Request.QueryString("langue")) > 0 Then Response.Cookies("axionlangue") = Request.QueryString("langue") Response.Cookies("axionlangue").Expires = Date + 3650 End If End If%>