case

[irenem]

<%

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?

[99eros9]

puoi mettere tutto ciò che vuoi.

[maximum]

Si.

[irenem]

Grazie ma non funziona, cmq riprovo

[buji]

Posta il codice

[irenem]

function campi(VLang,name)
Select Case name
Case "Nome e Cognome"
if VLang="IT" then campi="Nome e Cognome" else campi="Name and surname"
Case "Telefono"
if VLang="IT" then campi="Telefono" else campi="Phone"
Case "Fax"
campi="Fax"
Case else
campi=""
End Select
end function

e se è così?

[maximum]

function campi(VLang,name) 
Select Case name 
  Case "Nome e Cognome" 
     if VLang="IT" then 
        campi="Nome e Cognome" 
     else 
        campi="Name and surname" 
     end if 
  Case "Telefono" 
     if VLang="IT" then 
        campi="Telefono" 
     else 
        campi="Phone" 
     end if 
  Case "Fax" 
     campi="Fax" 
  Case else 
     campi="" 
End Select 
end function

Così!!!

[irenem]

e se ho anche altre lingue?

[buji]

Fai un altro select case annidato per le lingue opure if elseif

[irenem]

non funziona....
credo dia noia function