dim stracceptlanguage
dim strlcid
dim strpos
stracceptlanguage = request.servervariables("http_accept_language")
strpos = instr(1, stracceptlanguage, ",")
if strpos > 0 then
stracceptlanguage = left(stracceptlanguage, strpos - 1)
end if
select case lcase(stracceptlanguage)
case "af"
strlcid = 1078 ' afrikaans
case "sq"
strlcid = 1052 ' albanian
case "ar-sa"
strlcid = 1025 ' arabic(saudi arabia)
case "ar-iq"
strlcid = 2049 ' arabic(iraq)
case "ar-eg"
strlcid = 3073 ' arabic(egypt)
case "ar-ly"
strlcid = 4097 ' arabic(libya)
case "ar-dz"
strlcid = 5121 ' arabic(algeria)
case "ar-ma"
strlcid = 6145 ' arabic(morocco)
case "ar-tn"
strlcid = 7169 ' arabic(tunisia)
case "ar-om"
strlcid = 8193 ' arabic(oman)
case "ar-ye"
strlcid = 9217 ' arabic(yemen)
case "ar-sy"
strlcid = 10241 ' arabic(syria)
case "ar-jo"
strlcid = 11265 ' arabic(jordan)
case "ar-lb"
strlcid = 12289 ' arabic(lebanon)
case "ar-kw"
strlcid = 13313 ' arabic(kuwait)
case "ar-ae"
strlcid = 14337 ' arabic(u.a.e.)
case "ar-bh"
strlcid = 15361 ' arabic(bahrain)
case "ar-qa"
strlcid = 16385 ' arabic(qatar)
case "eu"
strlcid = 1069 ' basque
case "bg"
strlcid = 1026 ' bulgarian
case "be"
strlcid = 1059 ' belarusian
case "ca"
strlcid = 1027 ' catalan
case "zh-tw"
strlcid = 1028 ' chinese(taiwan)
case "zh-cn"
strlcid = 2052 ' chinese(prc)
case "zh-hk"
strlcid = 3076 ' chinese(hong kong)
case "zh-sg"
strlcid = 4100 ' chinese(singapore)
case "hr"
strlcid = 1050 ' croatian
case "cs"
strlcid = 1029 ' czech
case "da"
strlcid = 1030 ' danish
case "n"
strlcid = 1043 ' dutch(standard)
case "nl-be"
strlcid = 2067 ' dutch(belgian)
case "en"
strlcid = 9 ' english
case "en-us"
strlcid = 1033 ' english(united states)
case "en-gb"
strlcid = 2057 ' english(british)
case "en-au"
strlcid = 3081 ' english(australian)
case "en-ca"
strlcid = 4105 ' english(canadian)
case "en-nz"
strlcid = 5129 ' english(new zealand)
case "en-ie"
strlcid = 6153 ' english(ireland)
case "en-za"
strlcid = 7177 ' english(south africa)
case "en-jm"
strlcid = 8201 ' english(jamaica)
case "en"
strlcid = 9225 ' english(caribbean)
case "en-bz"
strlcid = 10249 ' english(belize)
case "en-tt"
strlcid = 11273 ' english(trinidad)
case "et"
strlcid = 1061 ' estonian
case "fo"
strlcid = 1080 ' faeroese
case "fa"
strlcid = 1065 ' farsi
case "fi"
strlcid = 1035 ' finnish
case "fr"
strlcid = 1036 ' french(standard)
case "fr-be"
strlcid = 2060 ' french(belgian)
case "fr-ca"
strlcid = 3084 ' french(canadian)
case "fr-ch"
strlcid = 4108 ' french(swiss)
case "fr-lu"
strlcid = 5132 ' french(luxembourg)
case "gd"
strlcid = 1084 ' gaelic(scots)
case "gd-ie"
strlcid = 2108 ' gaelic(irish)
case "de"
strlcid = 1031 ' german(standard)
case "de-ch"
strlcid = 2055 ' german(swiss)
case "de-at"
strlcid = 3079 ' german(austrian)
case "de-lu"
strlcid = 4103 ' german(luxembourg)
case "de-li"
strlcid = 5127 ' german(liechtenstein)
case "e"
strlcid = 1032 ' greek
case "he"
strlcid = 1037 ' hebrew
case "hi"
strlcid = 1081 ' hindi
case "hu"
strlcid = 1038 ' hungarian
case "is"
strlcid = 1039 ' icelandic
case "in"
strlcid = 1057 ' indonesian
case "it"
strlcid = 1040 ' italian(standard)
case "it-ch"
strlcid = 2064 ' italian(swiss)
case "ja"
strlcid = 1041 ' japanese
case "ko"
strlcid = 1042 ' korean
case "ko"
strlcid = 2066 ' korean(johab)
case "lv"
strlcid = 1062 ' latvian
case "lt"
strlcid = 1063 ' lithuanian
case "mk"
strlcid = 1071 ' macedonian
case "ms"
strlcid = 1086 ' malaysian
case "mt"
strlcid = 1082 ' maltese
case "no"
strlcid = 1044 ' norwegian(bokmal)
case "no"
strlcid = 2068 ' norwegian(nynorsk)
case "p"
strlcid = 1045 ' polish
case "pt-br"
strlcid = 1046 ' portuguese(brazilian)
case "pt"
strlcid = 2070 ' portuguese(standard)
case "rm"
strlcid = 1047 ' rhaeto-romanic
case "ro"
strlcid = 1048 ' romanian
case "ro-mo"
strlcid = 2072 ' romanian(moldavia)
case "ru"
strlcid = 1049 ' russian
