<%
' 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)
%>
<%
set oFormVars=GetFormObject()
'controllo sicurezza --------------
if Session("WEBGODLogin") <> "W3C_VALIDATOR" then
If session("manutenzione")<> 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(73)
%>
<%=DICLanguage(73)%>
<%
for each object in OFormVars
select case object
case "Ciapet"
case else
set rsupdate = Conn.execute("UPDATE " & application("prefix") & "configurazione set valore='" & fixstring(OFormVars(object),"f") & "' where elemento='" & object & "'")
end select
'response.write object & " - " & OFormVars(object) & "
"
next
Application.Lock
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='CON' or gruppo='FRU' or gruppo='GEN'"
rs.Open sql, conn, 0, 1
'Riceve tutte le impostazioni e le imposta come oggetti applicazione
Do while NOT rs.eof
Application(rs("elemento")) = Trim(rs("valore"))
rs.MoveNext
Loop
rs.Close
set rs = nothing
GMT = int(Application("localtimezoneoffset")) - int(Application("servertimezoneoffset"))
Application("GMT") = GMT
if left(application("localtimezoneoffset"),1) = "-" then
setoffset = zeropad(right(application("localtimezoneoffset"),len(application("localtimezoneoffset"))-1),2)
setoffset = "-" & setoffset & ":00"
elseif left(application("localtimezoneoffset"),1) = "+" then
setoffset = zeropad(right(application("localtimezoneoffset"),len(application("localtimezoneoffset"))-1),2)
setoffset = "+" & setoffset & ":00"
else
setoffset = "00:00"
end if
Application("offset") = setoffset
Application.UnLock
%>
<%=DICLanguage(78)%><%=DICLanguage(0)%>
&submnu=<%=request("submnu")%>" onclick="history.back()" onkeypress="history.back()"><%=DICLanguage(2)%><%=DICLanguage(0)%>