C
Claus-Ole Olsen
Hi
I am trying to get the language information from Internet Explorer
When i load this webside inside of Outlook, I can't get the
HTTP_ACCEPT_LANGUAGE property
If I load it from Internet Explore, outside Outlook, the property is ok
Below is the asp code
<META HTTP-EQUIV="Refresh" CONTENT="5; ">
<%
Response.CacheControl = "no-cache"
Response.Expires = -1
Response.Write(Now())
Response.Write("<BR>")
TheLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
TheLanguages = Split (TheLanguage, ",")
Numberoflanguages = UBound(TheLanguages)
Response.Write("The languages selected in your browser: (" & TheLanguage &
")<BR>")
For i = 0 To Numberoflanguages
If InStr(TheLanguages(i), ";") Then
TheLanguages(i) = Mid(TheLanguages(i), 1, Instr(TheLanguages(i),
";") -1)
End If
WriteLanguage(TheLanguages(i))
Response.Write("<BR>")
Next
%>
<%
Sub WriteLanguage(LanguageToWrite)
Select Case LCase(LanguageToWrite)
Case "af"
Response.Write("Afrikaans")
Case "sq"
Response.Write("Albanian")
Case "eu"
Response.Write("Basque")
Case "bg"
Response.Write("Bulgarian")
Case "be"
Response.Write("Byelorussian")
Case "ca"
Response.Write("Catalan")
Case "zh"
Response.Write("Chinese")
Case "zh-cn"
Response.Write("Chinese/China")
Case "zh-tw"
Response.Write("Chinese/Taiwan")
Case "zh-hk"
Response.Write("Chinese/Hong Kong")
Case "zh-sg"
Response.Write("Chinese/singapore")
Case "hr"
Response.Write("Croatian")
Case "cs"
Response.Write("Czech")
Case "da"
Response.Write("Danish")
Case "nl"
Response.Write("Dutch")
Case "nl-be"
Response.Write("Dutch/Belgium")
Case "en"
Response.Write("English")
Case "en-gb"
Response.Write("English/United Kingdom")
Case "en-us"
Response.Write("English/United Satates")
Case "en-au"
Response.Write("English/Australian")
Case "en-ca"
Response.Write("English/Canada")
Case "en-nz"
Response.Write("English/New Zealand")
Case "en-ie"
Response.Write("English/Ireland")
Case "en-za"
Response.Write("English/South Africa")
Case "en-jm"
Response.Write("English/Jamaica")
Case "en-bz"
Response.Write("English/Belize")
Case "en-tt"
Response.Write("English/Trinidad")
Case "et"
Response.Write("Estonian")
Case "fo"
Response.Write("Faeroese")
Case "fa"
Response.Write("Farsi")
Case "fi"
Response.Write("Finnish")
Case "fr"
Response.Write("French")
Case "fr-be"
Response.Write("French/Belgium")
Case "fr-fr"
Response.Write("French/France")
Case "fr-ch"
Response.Write("French/Switzerland")
Case "fr-ca"
Response.Write("French/Canada")
Case "fr-lu"
Response.Write("French/Luxembourg")
Case "gd"
Response.Write("Gaelic")
Case "gl"
Response.Write("Galician")
Case "de"
Response.Write("German")
Case "de-at"
Response.Write("German/Austria")
Case "de-de"
Response.Write("German/Germany")
Case "de-ch"
Response.Write("German/Switzerland")
Case "de-lu"
Response.Write("German/Luxembourg")
Case "de-li"
Response.Write("German/Liechtenstein")
Case "el"
Response.Write("Greek")
Case "hi"
Response.Write("Hindi")
Case "hu"
Response.Write("Hungarian")
Case "is"
Response.Write("Icelandic")
Case "id"
Response.Write("Indonesian")
Case "in"
Response.Write("Indonesian")
Case "ga"
Response.Write("Irish")
Case "it"
Response.Write("Italian")
Case "it-ch"
Response.Write("Italian/ Switzerland")
Case "ja"
Response.Write("Japanese")
Case "ko"
Response.Write("Korean")
Case "lv"
Response.Write("Latvian")
Case "lt"
Response.Write("Lithuanian")
Case "mk"
Response.Write("Macedonian")
Case "ms"
Response.Write("Malaysian")
Case "mt"
Response.Write("Maltese")
Case "no"
Response.Write("Norwegian")
Case "pl"
Response.Write("Polish")
Case "pt"
Response.Write("Portuguese")
Case "pt-br"
Response.Write("Portuguese/Brazil")
Case "rm"
Response.Write("Rhaeto-Romanic")
Case "ro"
Response.Write("Romanian")
Case "ro-mo"
Response.Write("Romanian/Moldavia")
Case "ru"
Response.Write("Russian")
Case "ru-mo"
Response.Write("Russian /Moldavia")
Case "gd"
Response.Write("Scots Gaelic")
Case "sr"
Response.Write("Serbian")
Case "sk"
Response.Write("Slovack")
Case "sl"
Response.Write("Slovenian")
Case "sb"
Response.Write("Sorbian")
Case "es"
Response.Write("Spanish")
Case "es-do"
Response.Write("Spanish")
Case "es-ar"
Response.Write("Spanish/Argentina")
Case "es-co"
Response.Write("Spanish/Colombia")
Case "es-mx"
Response.Write("Spanish/Mexico")
Case "es-es"
Response.Write("Spanish/Spain")
Case "es-gt"
Response.Write("Spanish/Guatemala")
Case "es-cr"
Response.Write("Spanish/Costa Rica")
Case "es-pa"
Response.Write("Spanish/Panama")
Case "es-ve"
Response.Write("Spanish/Venezuela")
Case "es-pe"
Response.Write("Spanish/Peru")
Case "es-ec"
Response.Write("Spanish/Ecuador")
Case "es-cl"
Response.Write("Spanish/Chile")
Case "es-uy"
Response.Write("Spanish/Uruguay")
Case "es-py"
Response.Write("Spanish/Paraguay")
Case "es-bo"
Response.Write("Spanish/Bolivia")
Case "es-sv"
Response.Write("Spanish/El salvador")
Case "es-hn"
Response.Write("Spanish/Honduras")
Case "es-ni"
Response.Write("Spanish/Nicaragua")
Case "es-pr"
Response.Write("Spanish/Puerto Rico")
Case "sx"
Response.Write("Sutu")
Case "sv"
Response.Write("Swedish")
Case "sv-fi"
Response.Write("Swedish/Findland")
Case "ts"
Response.Write("Thai")
Case "tn"
Response.Write("Tswana")
Case "tr"
Response.Write("Turkish")
Case "uk"
Response.Write("Ukrainian")
Case "ur"
Response.Write("Urdu")
Case "vi"
Response.Write("Vietnamese")
Case "xh"
Response.Write("Xshosa")
Case "ji"
Response.Write("Yiddish")
Case "zu"
Response.Write("Zulu")
Case Else
Response.Write (LanguageToWrite & ": Language not identify")
End Select
End Sub
%>
I am trying to get the language information from Internet Explorer
When i load this webside inside of Outlook, I can't get the
HTTP_ACCEPT_LANGUAGE property
If I load it from Internet Explore, outside Outlook, the property is ok
Below is the asp code
<META HTTP-EQUIV="Refresh" CONTENT="5; ">
<%
Response.CacheControl = "no-cache"
Response.Expires = -1
Response.Write(Now())
Response.Write("<BR>")
TheLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
TheLanguages = Split (TheLanguage, ",")
Numberoflanguages = UBound(TheLanguages)
Response.Write("The languages selected in your browser: (" & TheLanguage &
")<BR>")
For i = 0 To Numberoflanguages
If InStr(TheLanguages(i), ";") Then
TheLanguages(i) = Mid(TheLanguages(i), 1, Instr(TheLanguages(i),
";") -1)
End If
WriteLanguage(TheLanguages(i))
Response.Write("<BR>")
Next
%>
<%
Sub WriteLanguage(LanguageToWrite)
Select Case LCase(LanguageToWrite)
Case "af"
Response.Write("Afrikaans")
Case "sq"
Response.Write("Albanian")
Case "eu"
Response.Write("Basque")
Case "bg"
Response.Write("Bulgarian")
Case "be"
Response.Write("Byelorussian")
Case "ca"
Response.Write("Catalan")
Case "zh"
Response.Write("Chinese")
Case "zh-cn"
Response.Write("Chinese/China")
Case "zh-tw"
Response.Write("Chinese/Taiwan")
Case "zh-hk"
Response.Write("Chinese/Hong Kong")
Case "zh-sg"
Response.Write("Chinese/singapore")
Case "hr"
Response.Write("Croatian")
Case "cs"
Response.Write("Czech")
Case "da"
Response.Write("Danish")
Case "nl"
Response.Write("Dutch")
Case "nl-be"
Response.Write("Dutch/Belgium")
Case "en"
Response.Write("English")
Case "en-gb"
Response.Write("English/United Kingdom")
Case "en-us"
Response.Write("English/United Satates")
Case "en-au"
Response.Write("English/Australian")
Case "en-ca"
Response.Write("English/Canada")
Case "en-nz"
Response.Write("English/New Zealand")
Case "en-ie"
Response.Write("English/Ireland")
Case "en-za"
Response.Write("English/South Africa")
Case "en-jm"
Response.Write("English/Jamaica")
Case "en-bz"
Response.Write("English/Belize")
Case "en-tt"
Response.Write("English/Trinidad")
Case "et"
Response.Write("Estonian")
Case "fo"
Response.Write("Faeroese")
Case "fa"
Response.Write("Farsi")
Case "fi"
Response.Write("Finnish")
Case "fr"
Response.Write("French")
Case "fr-be"
Response.Write("French/Belgium")
Case "fr-fr"
Response.Write("French/France")
Case "fr-ch"
Response.Write("French/Switzerland")
Case "fr-ca"
Response.Write("French/Canada")
Case "fr-lu"
Response.Write("French/Luxembourg")
Case "gd"
Response.Write("Gaelic")
Case "gl"
Response.Write("Galician")
Case "de"
Response.Write("German")
Case "de-at"
Response.Write("German/Austria")
Case "de-de"
Response.Write("German/Germany")
Case "de-ch"
Response.Write("German/Switzerland")
Case "de-lu"
Response.Write("German/Luxembourg")
Case "de-li"
Response.Write("German/Liechtenstein")
Case "el"
Response.Write("Greek")
Case "hi"
Response.Write("Hindi")
Case "hu"
Response.Write("Hungarian")
Case "is"
Response.Write("Icelandic")
Case "id"
Response.Write("Indonesian")
Case "in"
Response.Write("Indonesian")
Case "ga"
Response.Write("Irish")
Case "it"
Response.Write("Italian")
Case "it-ch"
Response.Write("Italian/ Switzerland")
Case "ja"
Response.Write("Japanese")
Case "ko"
Response.Write("Korean")
Case "lv"
Response.Write("Latvian")
Case "lt"
Response.Write("Lithuanian")
Case "mk"
Response.Write("Macedonian")
Case "ms"
Response.Write("Malaysian")
Case "mt"
Response.Write("Maltese")
Case "no"
Response.Write("Norwegian")
Case "pl"
Response.Write("Polish")
Case "pt"
Response.Write("Portuguese")
Case "pt-br"
Response.Write("Portuguese/Brazil")
Case "rm"
Response.Write("Rhaeto-Romanic")
Case "ro"
Response.Write("Romanian")
Case "ro-mo"
Response.Write("Romanian/Moldavia")
Case "ru"
Response.Write("Russian")
Case "ru-mo"
Response.Write("Russian /Moldavia")
Case "gd"
Response.Write("Scots Gaelic")
Case "sr"
Response.Write("Serbian")
Case "sk"
Response.Write("Slovack")
Case "sl"
Response.Write("Slovenian")
Case "sb"
Response.Write("Sorbian")
Case "es"
Response.Write("Spanish")
Case "es-do"
Response.Write("Spanish")
Case "es-ar"
Response.Write("Spanish/Argentina")
Case "es-co"
Response.Write("Spanish/Colombia")
Case "es-mx"
Response.Write("Spanish/Mexico")
Case "es-es"
Response.Write("Spanish/Spain")
Case "es-gt"
Response.Write("Spanish/Guatemala")
Case "es-cr"
Response.Write("Spanish/Costa Rica")
Case "es-pa"
Response.Write("Spanish/Panama")
Case "es-ve"
Response.Write("Spanish/Venezuela")
Case "es-pe"
Response.Write("Spanish/Peru")
Case "es-ec"
Response.Write("Spanish/Ecuador")
Case "es-cl"
Response.Write("Spanish/Chile")
Case "es-uy"
Response.Write("Spanish/Uruguay")
Case "es-py"
Response.Write("Spanish/Paraguay")
Case "es-bo"
Response.Write("Spanish/Bolivia")
Case "es-sv"
Response.Write("Spanish/El salvador")
Case "es-hn"
Response.Write("Spanish/Honduras")
Case "es-ni"
Response.Write("Spanish/Nicaragua")
Case "es-pr"
Response.Write("Spanish/Puerto Rico")
Case "sx"
Response.Write("Sutu")
Case "sv"
Response.Write("Swedish")
Case "sv-fi"
Response.Write("Swedish/Findland")
Case "ts"
Response.Write("Thai")
Case "tn"
Response.Write("Tswana")
Case "tr"
Response.Write("Turkish")
Case "uk"
Response.Write("Ukrainian")
Case "ur"
Response.Write("Urdu")
Case "vi"
Response.Write("Vietnamese")
Case "xh"
Response.Write("Xshosa")
Case "ji"
Response.Write("Yiddish")
Case "zu"
Response.Write("Zulu")
Case Else
Response.Write (LanguageToWrite & ": Language not identify")
End Select
End Sub
%>