<% ' 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 '--------------------------------------------------------- %> <% Set rs = Server.CreateObject("ADODB.Recordset") sql= "SELECT * FROM " & application("prefix") & "modelli_css WHERE Id = " & replace(Request("CatId"),"'","''") 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"),",") %>
<%=replace(DICLanguage(90),"[MODELLO]","")%>:
" />
checked="checked"<%end if%> /> <%=DICLanguage(48)%>
<% Set BanRS = conn.Execute("SELECT * FROM " & application("prefix") & "modelli_css_allegati where cssid=" & rs("id") & " order by posizione") j = 1 While NOT BanRS.EOF %>
<%=DICLanguage(235)%> (<%=j%>/<%=Application("MAXITEMS")%>): <% conta = 0 for k=LBound(lingua) to UBound(lingua) conta = conta + 1 SQL = "SELECT * FROM " & application("prefix") & "configurazione_lingue where codice='" & lingua(k) & "'" 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 %> <%next%>
ucase(Session("backofficelanguage")) then%> <%=lac(lingua(k))%>"<%end if%> type="text" name="BanTitle_<%=lingua(k)%><%= j %>" class="input-lungo" id="BanTitle_<%=lingua(k)%><%= j %>" value="<%=fixstring(banrs("title_" & lingua(k)),"d")%>" />
<%=DICLanguage(180)%>: <%if banrs("validato")=1 then%><%=DICLanguage(48)%><%else%><%=DICLanguage(101)%><%end if%>
" />
checked="checked"<%end if%>/> <%=DICLanguage(48)%>
" />
<%=DICLanguage(48)%>
<% j = j +1 BanRS.MoveNext Wend set BanRS = nothing For ia = j to cint(Application("MAXITEMS"))%>
<%=DICLanguage(235)%> (<%=ia%>/<%=Application("MAXITEMS")%>):
<%=DICLanguage(48)%>
<%next%>
<%=DICLanguage(20)%>

" /> " /> " />

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