Mostrare un messaggio di auguri in base alla lingua del visitatore
Questo semplice script, rileva la lingua impostata nel browser, e dopo aver "scremato" la variabile così ottenuta, mostra un messaggio di auguri personalizzato in base alla lingua.
<%
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 "<p>" & frase & "!</p>"
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
