<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'response.write request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
response.redirect redirLang&"/default.asp"
function redirLang()
dim v,vv,defRep
defRep="eng"
vv=split(request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),";")
if ubound(vv)=-1 then
redirLang=defRep
else
v=split(vv(0),"-")
select case v(0)
case "en","eng"
redirLang="eng"
case "it","ita"
redirLang="ita"
case else
redirLang=defRep
end select
end if
end function
%>