<%
' 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("strutture")<> 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(142) & ""
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(147),"[UFFICIO]","")
elseif Request("function") = "addmanu" then
percorso = percorso & " / " & DICLanguage(144)
end if
%>
<%=DICLanguage(142)%>
<%
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("showofficelist.asp?key=" & Request("key") & "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "listmanuusr" Then
Response.Clear
response.redirect("showofficelist.asp?office=" & Request("officeid")& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "listall" Then
Response.Clear
response.redirect("showofficelist.asp?key="& "&mnu=" & request("mnu") & "&submnu=" & request("submnu"))
elseif strfunction = "albero" Then
Response.Clear
response.redirect("officetree.asp?mnu=" & request("mnu") & "&submnu=" & request("submnu"))
else %>
<% End If %>