%
' 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)
%>
<%
percorso = " " & DICLanguage(92)
%>
<%=DICLanguage(92)%>
<%=DICLanguage(93)%>:
<%
'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
if Session("supervisor") = true then
SQL = "SELECT * from " & application("prefix") & "moduli where visibile=1 order by posizione"
else
SQL = "SELECT * from " & application("prefix") & "moduli where (" & session("SQLMENU") & ") and (visibile=1) order by posizione"
end if
Set rs = Conn.execute(SQL)
rowcount = 2
Do until rs.EOF %> - "><%=fixstring(MNULanguage(rs("title_id")),"d")%>
<%=fixstring(MNULanguage(rs("description_id")),"d")%><%=DICLanguage(0)%>
<%
rs.movenext
Loop
rs.close
set rs=nothing
%>
- <%=DICLanguage(94)%>
<%=DICLanguage(95)%><%=DICLanguage(0)%>