<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
Dim usrPath
usrPath = LCase(Request.ServerVariables("PATH_INFO"))
Dim usrLC
usrLC = request.QueryString("lc")
if usrLC = "sl" Then
Response.Redirect("/sl"+usrPath+"?lc=sl")
Response.End()
end if
if usrLC = "en" Then
Response.Redirect("/en"+usrPath+"?lc=en")
Response.End()
end if
Dim usrLocale
usrLocale = request.servervariables("HTTP_ACCEPT_LANGUAGE")
Dim usrLanguages
usrLanguages = Split(usrLocale, ",", -1)
Dim usrLanguage
for Each usrLanguage in usrLanguages
if (InStr(usrLanguage, "sl") <> 0) Then
Response.Redirect("/sl"+usrPath+"?lc=sl")
Response.End()
elseif (InStr(usrLanguage, "en") <> 0) Then
Response.Redirect("/en"+usrPath+"?lc=en")
Response.End()
else
Response.Redirect("/sl"+usrPath+"?lc=sl")
Response.End()
end if
next
%>