<% ' 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("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(219) %>

<%=DICLanguage(219)%>

<%=DICLanguage(220)%>: <% 'CARICAMENTO BACKOFFICE_CONFIG_XX.XML dim CONFLanguage (450) Set objDoc = Server.CreateObject("MSXML2.DOMDocument.4.0") objDoc.async = False descpath = Server.mapPath("\files\xml\backoffice_config_" & Session("backofficelanguage") & ".xml") set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(descpath)=true then else descpath = Server.mapPath("\files\xml\backoffice_config_" & Application("language") & ".xml") end if set fs=nothing If Not objDoc.load(descpath) Then Response.write "

ERRORE
codice: " & _ objDOC.parseError.errorCode & _ "
Linea/Col: " & _ objDOC.parseError.line & "/" & _ objDOC.parseError.linepos & "

" else For Each objNode In objDoc.selectNodes("/strings/row") ID_LANG = objNode.selectSingleNode("ref").Text 'ID_STRINGA = objNode.selectSingleNode("content[lang('it')]").Text ID_STRINGA = objNode.selectSingleNode("content").Text CONFLanguage(ID_LANG) = ID_STRINGA Next End If Set objDoc = Nothing Set objNode = Nothing Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='B' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else if rs_elemento = "" then rs_elemento = rs("elemento") end if %> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(221)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='S' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else if rs_elemento = "" then rs_elemento = rs("elemento") end if %> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(222)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='D' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else%> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(223)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='U' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else%> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(224)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='L' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else%> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(225)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='C' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else%> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(226)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='H' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else%> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(227)%>: <% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM " & application("prefix") & "configurazione where gruppo='XST' and sottogruppo ='N' order by ordine" rs.Open sql, conn, 0, 1 If rs.EOF and rs.BOF Then else%> <%Do while NOT rs.eof call Generacampo(rs("elemento"),CONFLanguage(rs("title_id")),rs("valore"), rs("opzioni"),rs("tipocampo")) rs.MoveNext Loop%> <%end if rs.close set rs = nothing%>
<%=DICLanguage(20)%>

" /> " />