' keep track for statistical purposes

Dim currentLocale,theCountry,theCounter
currentLocale = GetLocale

Select Case currentLocale
  case	1078  	
    theCountry="Afrikaans"
  case	1052
    theCountry="Albanian"
  case	1025
    theCountry="Arabic_Saudi_Arabia"
  case	2049
    theCountry="Arabic_Iraq"
  case	3073
    theCountry="Arabic_Egypt"
  case 	4097
    theCountry="Arabic_Libya"
  case	5121
    theCountry="Arabic_Libya"
  case	6145
    theCountry="Arabic_Morocco"
  case	7169
    theCountry="Arabic_Tunisia"
  case	8193
    theCountry="Arabic_Oman"
  case	9217
    theCountry="Arabic_Yemen"
  case 	10241
    theCountry="Arabic_Syria"
  case	11265
    theCountry="Arabic_Jordan"
  case	12289
    theCountry="Arabic_Lebanon"
  case	13313
    theCountry="Arabic_Kuwait"
  case	14337
    theCountry="Arabic_UAE"
  case	15361
    theCountry="Arabic_Bahrain"
  case 	16385
    theCountry="Arabic_Qatar"
  case	1067
    theCountry="Armenian"
  case	1068
    theCountry="Azeri_Latin"
  case	2092
    theCountry="Azeri_Cyrillic"
  case	1069
    theCountry="Basque"
  case	1059
    theCountry="Belarusian"
  case	1026
    theCountry="Bulgarian"
  case	1027
    theCountry="Catalan"
  case	1028
    theCountry="Chinese_Taiwan"
  case	2052
    theCountry="Chinese_PRC"
  case	3076
    theCountry="Chinese_Hong_Kong"
  case	4100
    theCountry="Chinese_Singapore"
  case	5124
    theCountry="Chinese_Macau"
  case	1050
    theCountry="Croatian"
  case	1029
    theCountry="Czech"
  case	1030
    theCountry="Danish"
  case	1125
    theCountry="Divehi"
  case	1043
    theCountry="Dutch_Standard"
  case	2067
    theCountry="Dutch_Belgian"
  case	1033
    theCountry="English_United_States"
  case	2057
    theCountry="English_United_Kingdom"
  case	3081
    theCountry="English_Australian"
  case	4105
    theCountry="English_Canadian"
  case	5129
    theCountry="English_New_Zealand"
  case	6153
    theCountry="English_Irish"
  case	7177
    theCountry="English_South_Africa"
  case	8201
    theCountry="English_Jamaica"
  case	9225
    theCountry="English_Caribbean"
  case	10249
    theCountry="English_Belize"
  case	11273
    theCountry="English_Trinidad"
  case	12297
    theCountry="English_Zimbabwe"
  case	13321
    theCountry="English_Philippines"
  case	1061
    theCountry="Estonian"
  case	1080
    theCountry="Faeroese"
  case	1065
    theCountry="Farsi"
  case	1035
    theCountry="Finnish"
  case	1036
    theCountry="French_Standard"
  case	2060
    theCountry="French_Belgian"
  case	3084
    theCountry="French_Canadian"
  case	4108
    theCountry="French_Swiss"
  case	5132
    theCountry="French_Luxembourg"
  case	6156
    theCountry="French_Monaco"
  case	1079
    theCountry="Georgian"
  case	1110
    theCountry="Galician"
  case	1031
    theCountry="German_Standard"
  case	2055
    theCountry="German_Swiss"
  case	3079
    theCountry="German_Austrian"
  case	4103
    theCountry="German_Luxembourg"
  case	5127
    theCountry="German_Liechtenstein"
  case	1032
    theCountry="Greek"
  case	1095
    theCountry="Gujarati"
  case	1037
    theCountry="Hebrew"
  case	1081
    theCountry="Hindi"
  case	1038
    theCountry="Hungarian"
  case	1039
    theCountry="Icelandic"
  case	1057
    theCountry="Indonesian"
  case	1040
    theCountry="Italian_Standard"
  case	2064
    theCountry="Italian_Swiss"
  case	1041
    theCountry="Japanese"
  case	1099
    theCountry="Kannada"
  case	1087
    theCountry="Kazakh"
  case	1111
    theCountry="Konkani"
  case	1042
    theCountry="Korean"
  case	1088
    theCountry="Kyrgyz"
  case	1062
    theCountry="Latvian"
  case	1063
    theCountry="Lithuanian"
  case	1071
    theCountry="Macedonian"
  case	1086
    theCountry="Malay_Malaysia"
  case	2110
    theCountry="Malay_Brunei_Darussalam"
  case	1102
    theCountry="Marathi"
  case	1104
    theCountry="Mongolian"
  case	1044
    theCountry="Norwegian_Bokmal"
  case	2068
    theCountry="Norwegian_Nynorsk"
  case	1045
    theCountry="Polish"
  case	1046
    theCountry="Portuguese_Brazilian"
  case	2070
    theCountry="Portuguese_Standard"
  case	1094
    theCountry="Punjabi"
  case	1048
    theCountry="Romanian"
  case	1049
    theCountry="Russian"
  case	1103
    theCountry="Sanskrit"
  case	2074
    theCountry="Serbian_Latin"
  case	3098
    theCountry="Serbian_Cyrillic"
  case	1051
    theCountry="Slovak"
  case	1060
    theCountry="Slovenian"
  case	1034
    theCountry="Spanish_Traditional_Sort"
  case	2058
    theCountry="Spanish_Mexican"
  case	3082
    theCountry="Spanish_Modern_Sort"
  case	4106
    theCountry="Spanish_Guatemala"
  case	5130
    theCountry="Spanish_Costa_Rica"
  case	6154
    theCountry="Spanish_Panama"
  case	7178
    theCountry="Spanish_Dominican_Republic"
  case	8202
    theCountry="Spanish_Venezuela"
  case	9226
    theCountry="Spanish_Colombia"
  case	10250
    theCountry="Spanish_Peru"
  case	11274
    theCountry="Spanish_Argentina"
  case	12298
    theCountry="Spanish_Ecuador"
  case	13322
    theCountry="Spanish_Chile"
  case	14346
    theCountry="Spanish_Uruguay"
  case	15370
    theCountry="Spanish_Paraguay"
  case	16394
    theCountry="Spanish_Bolivia"
  case	17418
    theCountry="Spanish_El_Salvador"
  case	18442
    theCountry="Spanish_Honduras"
  case	19466
    theCountry="Spanish_Nicaragua"
  case 	20490
    theCountry="Spanish_Puerto_Rico"
  case	1089
    theCountry="Swahili"
  case	1053
    theCountry="Swedish"
  case	2077
    theCountry="Swedish_Finland"
  case	1114
    theCountry="Syriac"
  case	1097
    theCountry="Tamil"
  case	1092
    theCountry="Tatar"
  case 	1098
    theCountry="Telugu"
  case	1054
    theCountry="Thai"
  case	1055
    theCountry="Turkish"
  case	1058
    theCountry="Ukrainian"
  case	1056
    theCountry="Urdu"
  case	1091
    theCountry="Uzbek_Latin"
  case	2115
    theCountry="Uzbek_Cyrillic"
  case	1066
    theCountry="Vietnamese"
  case else
    theCountry="Unknown"
End Select

document.forms(0).locale.value=theCountry