<%@ LANGUAGE = VBScript %>
<%

' DESCRIPTION: Speech-on-Demand Online Help redirection service.

const SupportedLangs = "en-GB|de-DE"

Dim strContentUrl
Dim strLang
Dim strContent

Response.Buffer=True
Response.Expires=0

strLang = LCase(Request.QueryString("lang"))
If strLang = "" Then strLang = "default"

strContent = LCase(Request.QueryString("content"))
If strContent = "" Then strContent = "SoD"

Response.Write "Redirecting to the language specific content (" & strLang & ") ..."

If Right(strLang,1) <> "-" Then strLang = strLang + "-"

If (InStr(LCase(SupportedLangs), strLang) = 0) Then
    strLang = LCase(Left(SupportedLangs, 2))
Else
    strLang = Left(strLang, 2)
End If

strContentUrl = strLang & "/" & strContent & ".htm"

Response.Redirect strContentUrl

Response.Flush

%>
