<%

dim lingua_1, lingua_2, lingua

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"
frase = "Buon Natale e felice anno nuovo"

case "FR"
frase = "Joyeux noël et bonne année"

case "ES"
frase = "Feliz navidad y próspero año nuevo"

case "PT"
frase = "Feliz Natal e próspero ano novo"

case "DE"
frase = "Frohe Weihnachten und ein gutes neues Jahr"

case else
frase = "Merry Christmas and a happy New Year"

end select

Response.write "

" & frase & "!</p>"

%>


Dentro a case posso mettere un if ... then ..... else ... end if

e piu' di uno?