
<%@Language="VBScript"%>
<%Response.Buffer = True%>

<%

lang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
real_lang = Left(lang,2)
'Response.Write real_lang
Select case real_lang
    case "en"
        Response.Redirect "/Android/wdservice_en.html"
    case "es"
        Response.Redirect "/Android/wdservice_es.html"
    case "pt"
        Response.Redirect "/Android/wdservice_pt.html"
    case else
        Response.Redirect "/Android/wdservice_en.html"
End Select

%>