<%
Dim userLocale
userLocale = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

Dim languages
languages = Split(userLocale, ",", -1)

Dim language
For Each language in languages
  If InStr(language, "de") <> 0 Then          'German?
    Response.Write "Kodun herneyse"
  ElseIf InStr(language, "fr") <> 0 Then      'French?
    Response.Write "Kodun herneyse"
  ElseIf InStr(language, "es") <> 0 Then      'Spanish?
    Response.Write "Kodun herneyse"
  ElseIf Instr(language,"en-us") <> 0 Then  'English?
    Response.Write "Kodun herneyse"
  End If
Next

%>