Classic ASP - find supported languages on the Server

<% Option Explicit %>
<%
	'Credit is given to www.webwizguide.com for the list of languages and associated LCID value.
	'(chart was taken from this location: http://www.webwizguide.com/asp/faq/date_time_settings.asp)
	
	Dim objLangDic, strSupportedLanguages, key
	Dim originalLCID, curLCID, myCount
	Set objLangDic = Server.CreateObject("Scripting.Dictionary")
	strSupportedLanguages = ""
	objLangDic("Afrikaans") = 1078
	objLangDic("Albanian") = 1052
	objLangDic("Arabic - United Arab Emirates") = 14337
	objLangDic("Arabic - Bahrain") = 15361
	objLangDic("Arabic - Algeria") = 5121
	objLangDic("Arabic - Egypt") = 3073
	objLangDic("Arabic - Iraq") = 2049
	objLangDic("Arabic - Jordan") = 11265
	objLangDic("Arabic - Kuwait") = 13313
	objLangDic("Arabic - Lebanon") = 12289
	objLangDic("Arabic - Libya") = 4097
	objLangDic("Arabic - Morocco") = 6145
	objLangDic("Arabic - Oman") = 8193
	objLangDic("Arabic - Qatar") = 16385
	objLangDic("Arabic - Saudi Arabia") = 1025
	objLangDic("Arabic - Syria") = 10241
	objLangDic("Arabic - Tunisia") = 7169
	objLangDic("Arabic - Yemen") = 9217
	objLangDic("Armenian") = 1067
	objLangDic("Azeri - Latin") = 1068
	objLangDic("Azeri - Cyrillic") = 2092
	objLangDic("Basque") = 1069
	objLangDic("Belarusian") = 1059
	objLangDic("Bulgarian") = 1026
	objLangDic("Catalan") = 1027
	objLangDic("Chinese - China") = 2052
	objLangDic("Chinese - Hong Kong SAR") = 3076
	objLangDic("Chinese - Macau SAR") = 5124
	objLangDic("Chinese - Singapore") = 4100
	objLangDic("Chinese - Taiwan") = 1028
	objLangDic("Croatian") = 1050
	objLangDic("Czech") = 1029
	objLangDic("Danish") = 1030
	objLangDic("Dutch - the Netherlands") = 1043
	objLangDic("Dutch - Belgium") = 2067
	objLangDic("English - Australia") = 3081
	objLangDic("English - Belize") = 10249
	objLangDic("English - Canada") = 4105
	objLangDic("English - Caribbean") = 9225
	objLangDic("English - Ireland") = 6153
	objLangDic("English - Jamaica") = 8201
	objLangDic("English - New Zealand") = 5129
	objLangDic("English - Phillippines") = 13321
	objLangDic("English - South Africa") = 7177
	objLangDic("English - trinidad") = 11273
	objLangDic("English - United Kingdom") = 2057
	objLangDic("English - United States") = 1033
	objLangDic("Estonian") = 1061
	objLangDic("Farsi") = 1065
	objLangDic("Faroese") = 1080
	objLangDic("Finnish") = 1035
	objLangDic("French - France") = 1036
	objLangDic("French - Belgium") = 2060
	objLangDic("French - Canada") = 3084
	objLangDic("French - Luxembourg") = 5132
	objLangDic("French - Switzerland") = 4108
	objLangDic("Gaelic - Ireland") = 2108
	objLangDic("Gaelic - Scotland") = 1084
	objLangDic("German - Germany") = 1031
	objLangDic("German - Austria") = 3079
	objLangDic("German - Liechtenstein") = 5127
	objLangDic("German - Luxembourg") = 4103
	objLangDic("German - Switzerland") = 2055
	objLangDic("Greek") = 1032
	objLangDic("Hebrew") = 1037
	objLangDic("Hindi") = 1081
	objLangDic("Hungarian") = 1038
	objLangDic("Icelandic") = 1039
	objLangDic("Indonesian") = 1057
	objLangDic("Italian - Italy") = 1040
	objLangDic("Italian - Switzerland") = 2064
	objLangDic("Japanese") = 1041
	objLangDic("Korean") = 1042
	objLangDic("Latvian") = 1062
	objLangDic("Lithuanian") = 1063
	objLangDic("FYRO Macedonian") = 1071
	objLangDic("Malay - Malaysia") = 1086
	objLangDic("Malay – Brunei") = 2110
	objLangDic("Maltese") = 1082
	objLangDic("Marathi") = 1102
	objLangDic("Norwegian - Bokmal") = 1044
	objLangDic("Norwegian - Nynorsk") = 2068
	objLangDic("Polish") = 1045
	objLangDic("Portuguese - Portugal") = 2070
	objLangDic("Portuguese - Brazil") = 1046
	objLangDic("Raeto-Romance") = 1047
	objLangDic("Romanian - Romania") = 1048
	objLangDic("Romanian - Moldova") = 2072
	objLangDic("Russian") = 1049
	objLangDic("Russian - Moldova") = 2073
	objLangDic("Sanskrit") = 1103
	objLangDic("Serbian - Cyrillic") = 3098
	objLangDic("Serbian - Latin") = 2074
	objLangDic("Setsuana") = 1074
	objLangDic("Slovenian") = 1060
	objLangDic("Slovak") = 1051
	objLangDic("Sorbian") = 1070
	objLangDic("Spanish - Spain") = 1034
	objLangDic("Spanish - Argentina") = 11274
	objLangDic("Spanish - Bolivia") = 16394
	objLangDic("Spanish - Chile") = 13322
	objLangDic("Spanish - Colombia") = 9226
	objLangDic("Spanish - Costa Rica") = 5130
	objLangDic("Spanish - Dominican Republic") = 7178
	objLangDic("Spanish - Ecuador") = 12298
	objLangDic("Spanish - Guatemala") = 4106
	objLangDic("Spanish - Honduras") = 18442
	objLangDic("Spanish - Mexico") = 2058
	objLangDic("Spanish - Nicaragua") = 19466
	objLangDic("Spanish - Panama") = 6154
	objLangDic("Spanish - Peru") = 10250
	objLangDic("Spanish - Puerto Rico") = 20490
	objLangDic("Spanish - Paraguay") = 15370
	objLangDic("Spanish - El Salvador") = 17418
	objLangDic("Spanish - Uruguay") = 14346
	objLangDic("Spanish - Venezuela") = 8202
	objLangDic("Sutu") = 1072
	objLangDic("Swahili") = 1089
	objLangDic("Swedish - Sweden") = 1053
	objLangDic("Swedish - Finland") = 2077
	objLangDic("Tamil") = 1097
	objLangDic("Tatar") = 1092
	objLangDic("thai") = 1054
	objLangDic("Turkish") = 1055
	objLangDic("Tsonga") = 1073
	objLangDic("Ukrainian") = 1058
	objLangDic("Urdu") = 1056
	objLangDic("Uzbek - Cyrillic") = 2115
	objLangDic("Uzbek – Latin") = 1091
	objLangDic("Vietnamese") = 1066
	objLangDic("Xhosa") = 1076
	objLangDic("Yiddish") = 1085
	objLangDic("Zulu") = 1077
	
	originalLCID = Session.LCID
	myCount = 0
	For Each key in objLangDic.Keys
		curLCID = objLangDic(key)
		On Error Resume Next
			Session.LCID = curLCID
			If Err.Number=0 Then
				strSupportedLanguages = strSupportedLanguages & key & "<br />"
				myCount = myCount+1
			End If
			Err.Clear
		On Error Goto 0
	Next
	Session.LCID = originalLCID
%>
<html>
<head>
<title>Supported Languages</title>
</head>
<body>
Your server supports the following languages: (<%=myCount%> out of <%=objLangDic.Count%> possible languages)<br />
<%=strSupportedLanguages%>
</body>
</html>