<% ' 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("comunicati")<> 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 '--------------------------------------------------------- %> <% if Session("supervisor") = true then aggiunta_sql = "" aggiunta_where_sql = "" else aggiunta_sql = " and office_id=" & Session("Office_ID") aggiunta_where_sql = " where office_id=" & Session("Office_ID") end if Set rs = Server.CreateObject("ADODB.Recordset") sql= "SELECT * FROM " & application("prefix") & "comunicati WHERE Id = " & replace(Request("Id"),"'","''") & aggiunta_sql rs.Open sql,Conn, adOpenStatic, adLockOptimistic If rs.EOF and rs.BOF Then %>

<%=DICLanguage(12)%>.

" onclick="history.back()" onkeypress="history.back()"><%=DICLanguage(2)%>.

<% Else %> <% lingua = split(Session("editlanguage"),",") 'RICHIAMO ELENCO STRUTTURE Set objX = Server.CreateObject("XStandard.Structure") Set objDoc = Server.CreateObject("MSXML2.DOMDocument.4.0") objDoc.async = False Set rsData = Conn.Execute("SELECT Id, parentid, title_" & Session("Language") & " FROM strutture WHERE visibile=1") objX.RootID = "0" objX.AddNode "0", "root", "" objX.AddNode "0-a", "id", "0", 2 objX.AddRelationship "0-a", "0" Do Until rsData.EOF strID = CStr(rsData("id").Value) If Not IsNull(rsData("parentid").Value) Then If Len(CStr(rsData("parentid").Value)) > 0 Then If CStr(rsData("parentid").Value) = "0" Then objX.AddNode strID, "group", "" Else objX.AddNode strID, "item", "" End If objX.AddRelationship strID, CStr(rsData("parentid").Value) End If End If objX.AddNode strID & "-a", "id", strID, 2 objX.AddRelationship strID & "-a", strID objX.AddNode strID & "-b", "title", rsData("title_" & Session("Language")).Value, 2 objX.AddRelationship strID & "-b", strID rsData.MoveNext Loop rsdata.close set rsdata = nothing objDoc.loadXML objX.XML %>
<%=replace(DICLanguage(69),"[NOTIZIA]","")%>: <%if Session("supervisor") = true then%> <%end if%>
"" then%><%=day(rs("disp_da")) & "/" & month(rs("disp_da")) & "/" & year(rs("disp_da"))%><%end if%>" />
<% conta = 0 for j=LBound(lingua) to UBound(lingua) conta = conta + 1 SQL = "SELECT * FROM " & application("prefix") & "configurazione_lingue where codice='" & lingua(j) & "'" SET lng = conn.execute(sql) CODLINGUA = trim(lng("codice")) if lcase(codlingua) = Session("backofficelanguage") then NOMELINGUA = fixstring(lng("lingua"),"d") else NOMELINGUA = "" & fixstring(lng("lingua_int"),"d") & "" end if set lng = nothing %>

<%=nomelingua%>

<%=replace(DICLanguage(49),"[LINGUA]", NOMELINGUA)%>: <%if Session("supervisor") = true or Session("reviewer") = true or Session("poweruser") = true then%> <%end if%>
checked="checked"<%end if%> /> <%=DICLanguage(48)%>
<%if Session("translator") = true then%> ucase(Session("backofficelanguage")) then%> <%=lac(Session("reflanguage"))%><%end if%>><%=DICLanguage(371)%>: <%=fixstring(rs("title_" & Session("reflanguage")),"d")%>

<%end if%> ucase(Session("backofficelanguage")) then%> <%=lac(lingua(j))%>"<%end if%> type="text" name="Title_<%=lingua(j)%>" class="input-lungo" id="Title_<%=lingua(j)%>" value="<%=fixstring(rs("title_" & lingua(j)),"d")%>" />
<%if Session("translator") = true then%> ucase(Session("backofficelanguage")) then%> <%=lac(Session("reflanguage"))%><%end if%>><%=DICLanguage(371)%>: <%=fixstring(rs("tagtitle_" & Session("reflanguage")),"d")%>

<%end if%> ucase(Session("backofficelanguage")) then%> <%=lac(lingua(j))%>"<%end if%> type="text" name="tagTitle_<%=lingua(j)%>" class="input-lungo" id="tagTitle_<%=lingua(j)%>" value="<%=fixstring(rs("tagtitle_" & lingua(j)),"d")%>"/>
<%if Session("translator") = true then%> ucase(Session("backofficelanguage")) then%> <%=lac(Session("reflanguage"))%><%end if%>><%=DICLanguage(371)%>: <%=fixstring(rs("descrizione_" & Session("reflanguage")),"d")%>

<%end if%>
<%if Session("translator") = true then%> ucase(Session("backofficelanguage")) then%> <%=lac(Session("reflanguage"))%><%end if%>><%=DICLanguage(371)%>: <%=fixstring(rs("keywords_" & Session("reflanguage")),"d")%>

<%end if%>
<%if Session("translator") = true then%><%=DICLanguage(371)%>:
<% call XStandard("editor" & conta & Session("reflanguage"),"content_" & Session("reflanguage"),Session("reflanguage"),rs("content_" & Session("reflanguage")),2)%> <%end if%>
<% call XStandard("editor" & conta,"content_" & lingua(j),lingua(j),rs("content_" & lingua(j)),1)%>
<%next%> <% Set BanRS = conn.Execute("SELECT * FROM " & application("prefix") & "comunicati_allegati where bandoid=" & rs("id") & " and tipodoc=0") j = 1 While NOT BanRS.EOF %>
<%=DICLanguage(230)%> (<%=j%>/<%=Application("MAXITEMS")%>):
" />
" />
<%=DICLanguage(48)%>
<% j = j +1 BanRS.MoveNext Wend set BanRS = nothing For ia = j to cint(Application("MAXITEMS"))%>
<%=DICLanguage(230)%> (<%=ia%>/<%=Application("MAXITEMS")%>):
<%next%>
<%=DICLanguage(20)%>

" /> " /> " />

<% rs.Close set rs=nothing End If %>