når du ved det er det "bare" at lave en funktion der tager tld, subdomain (osv), og "oversætter" til noget du kan hente fra din db...
jeg bruger bl.a. denne funktion tit (det er vb.net)
;o) Det må være et svar
Public Shared Function GetLangFromSubdomain() As String(,)
'** Returns languagecode, countrycode, language, languageNative from subdomain
Dim aout As String(,)
Dim server As String = "
http://<DIN URL>" '** Default value
Dim subdomain As String = "com"
Dim languagecode As String = "en" '** Default value
Dim countrycode As String = "uk" '** Default value
Dim language As String = "English" '** Default value
Dim languageNative As String = "English" '** Default value
Dim language2 As String = ""
'** Get server name
server = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
'** Get subdomain
If InStr(server, ".") > 0 Then
subdomain = Split(server, ".")(0)
Else
subdomain = server
End If
'HttpContext.Current.Response.Write("<br>server0: " & server)
'HttpContext.Current.Response.Write("<br>subdomain0: " & subdomain)
'** get language, countrycode
Select Case subdomain
Case "dk"
'** denmark
languagecode = "da"
countrycode = "dk"
language = "Danish"
languageNative = "Dansk"
Case "be"
'** Belgium
languagecode = "fr"
countrycode = "be"
language = "French"
'languageNative = ""
Case "no"
'** Norway
languagecode = "no"
countrycode = "no"
language = "Norwegian"
languageNative = "Norsk"
Case "de"
'** Germany
languagecode = "de"
countrycode = "de"
language = "German"
languageNative = "Deutsch"
Case "at"
'** Austria (German)
languagecode = "de"
countrycode = "at"
language = "German"
languageNative = "Deutsch"
Case "ch"
'** Switzerland (german)
languagecode = "de"
countrycode = "ch"
language = "German"
languageNative = "Deutsch"
'languagecode2 = "de"
'countrycode2 = "ch"
'language2 = "French"
'languageNative2 = "French..."
Case "nl"
'** Netherland
languagecode = "nl"
countrycode = "nl"
language = "Dutch"
'languageNative = "Dutch"
Case "fi"
'** Finland
languagecode = "fi"
countrycode = "fi"
language = "Finnish"
'languageNative = ""
Case "se"
'** Sweden
languagecode = "sv"
countrycode = "se"
language = "Swedish"
languageNative = "Svenska"
Case "fr"
'** France
languagecode = "fr"
countrycode = "fr"
language = "French"
'languageNative = ""
Case "es"
'** Spain
languagecode = "es"
countrycode = "es"
language = "Spanish"
'languageNative = ""
Case "jp"
'** Japan
languagecode = "jp"
countrycode = "jp"
language = "Japanese"
'languageNative = ""
Case "pt"
'** Portugal
languagecode = "pt"
countrycode = "pt"
language = "Portuguese"
'languageNative = ""
Case "it"
'** Italy
languagecode = "it"
countrycode = "it"
language = "Italian"
'languageNative = ""
Case "et"
languagecode = "et"
countrycode = "ee"
language = ""
'languageNative = ""
Case "ee"
'** Estonia
languagecode = "ee"
countrycode = "ee"
language = "Estonian"
'languageNative = ""
Case "ro"
'** Romania
languagecode = "ro"
countrycode = "ro"
language = "Romanian"
'languageNative = ""
Case "hu"
'** Hungary
languagecode = "hu"
countrycode = "hu"
language = "Hungarian"
'languageNative = ""
Case "sl"
'** Slovenia
languagecode = "sl"
countrycode = "sl"
language = "Slovenian"
'languageNative = ""
Case "lv"
'** Latvian
languagecode = "lv"
countrycode = "lv"
language = ""
'languageNative = ""
Case "lu"
'** Luxembourg
languagecode = "de"
countrycode = "lu"
language = "German"
languageNative = "Deutsch"
Case "pl"
'** Poland
languagecode = "pl"
countrycode = "pl"
language = "Polish"
'languageNative = ""
Case "ru"
'** Russia
languagecode = "ru"
countrycode = "ru"
language = "Russian"
languageNative = ""
Case "tr"
'** Turkey
languagecode = "tr"
countrycode = "tr"
language = "Turkish"
'languageNative = ""
Case "cn"
'** China
languagecode = "zh"
countrycode = "cn"
language = "Chinese"
'languageNative = ""
Case "gr"
'** Greece
languagecode = "el"
countrycode = "gr"
language = "Greek"
'languageNative = ""
Case Else
'** English
languagecode = "en"
End Select
aout = New String(,) {{languagecode, countrycode, language, languageNative}}
Return aout
End Function