<%Option Explicit%>
Select Color
<%
Dim Culture, Title, Cancel
Culture = Trim(Request.QueryString("UC"))
Select Case lcase(Culture)
Case "fr","fr-ca","fr-be","fr-ch","fr-lu":
Title = "Choisir la couleur"
Cancel = "Annuler"
Case Else
Title = "Select Color"
Cancel = "Cancel"
End Select
%>