<%@ language="vbscript" codepage=65001 %>
lrss.fri.uni-lj.si/teaching/NPMP/
<%
Dim usrPath
usrPath = LCase(Request.ServerVariables("PATH_INFO"))
Dim usrLC
usrLC = request.QueryString("lc")
if usrLC = "" then
response.redirect(usrPath+"?lc=sl")
response.End()
end if
if InStr(usrLC, "sl") = 0 Then
if InStr(usrLC, "en") <> 0 Then
usrPathSplit = Split(usrPath, "/", -1)
usrPathSplit(1) = "en"
usrRedirect = Join(usrPathSplit,"/")
Response.Redirect(usrRedirect+"?lc=en")
Response.End()
else
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()
end if
next
Response.Redirect("/sl"+usrPath+"?lc=sl")
Response.End()
end if
end if
%>