<%
dim lingua_1, lingua_2, lingua, sPagina
lingua_1 = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
lingua_1 = Split(lingua_1, ";")
lingua_2 = Split(lingua_1(0), ",")
lingua = Split(lingua_2(0), "-")
select case UCASE(lingua(0))
case "IT"
sPagina = "ita/home_ita.htm"
'case "FR"
'case "ES"
'case "PT"
'case "DE"
case else
sPagina = "eng/home_eng.htm"
end select
Response.Redirect sPagina
%>
