<%
' 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("contenuti")<> 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(79)
%>
<%
currentPage = replace(trim(Request.QueryString("sp")),"'","''")
fieldName = replace(trim(Request.QueryString("fn")),"'","''")
sortType = replace(trim(Request.QueryString("st")),"'","''")
if currentPage = "" then
currentPage = 1
end if
if fieldName = "" then
fieldName = "posizione"
end if
if sortType = "" then
sortType = "ASC"
end if
%>
<%=DICLanguage(79)%>
<%=DICLanguage(46)%>
<%=getCategoryName(strCat)%>
<%=replace(DICLanguage(84),"[ARGOMENTO]",getCategoryName(strCat))%>
<%=GetCategoryList(strCat)%>
<%=GetDocumentList(strCat)%>