<%
' Fruibile - L'elemento CMS Open Source che mancava
' Copyright (C) 2002-2006 Roberto Scano
'
' Licensed under the terms of the GNU Lesser General Public License:
' http://www.opensource.org/licenses/lgpl-license.php
'
' For further information visit:
' http://www.fruibile.it/
'
' File Author:
' Roberto Scano (mail@robertoscano.info)
%>
<%
'controllo sicurezza --------------
if Session("WEBGODLogin") <> "W3C_VALIDATOR" then
If session("utenti")<> 1 Then
response.Redirect "/backoffice/noentry.asp"
end if
end if
'----------------------------------
'Prevent your website from cross website attacks ---------
refererUrl = Cstr(Request.ServerVariables("HTTP_REFERER"))
serverName = Cstr(Request.ServerVariables("SERVER_NAME"))
refererName = mid(refererUrl,8,len(serverName))
if refererName <> serverName then
response.Redirect "/backoffice/noentry.asp"
response.end
end if
'---------------------------------------------------------
%>
<%
percorso = " " & DICLanguage(185) & ""
lastpage = replace(Request.ServerVariables("HTTP_REFERER"),"&","&")
if Request("Back") <> "" then
response.redirect request("lastpage")
end if
if Request("function") = "showmanu" then
percorso = percorso & " / " & replace(DICLanguage(205),"[UTENTE]","")
elseif Request("function") = "addmanu" then
percorso = percorso & " / " & DICLanguage(202)
end if
%>
<%=DICLanguage(185)%>
<%
strfunction = Request("function")
If strfunction = "showmanu" Then
If Request("key") <> "" OR Request("CatId") <> "" Then %>
<% Else %>
<%
End If
Elseif strfunction = "addmanu" Then %>
<%
elseif strfunction = "listmanu" Then
Response.Clear
response.redirect("showusrlist.asp?key=" & Request("key")& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "listmanuusr" Then
Response.Clear
response.redirect("showusrlist.asp?office=" & Request("officeid")& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "listmanuarea" Then
Response.Clear
response.redirect("showusrlist.asp?area=" & Request("areaid")& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "listmanuadm" Then
Response.Clear
response.redirect("showusrlist.asp?admin=" & Request("admin")& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "listall" Then
Response.Clear
response.redirect("showusrlist.asp?key="& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
else %>
<% End If %>