<% ' 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("contenuti")<> 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(79) & "" percorso = percorso & " / " & DICLanguage(129) %> <% intCountData = request.form("ids").count 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 sub CreaModulo Response.Write "

" & intCountData & " " & IIf(intCountData > 1, lcase(DICLanguage(31)), lcase(DICLanguage(31))) & " " & IIf(intCountData > 1, lcase(DICLanguage(98)), lcase(DICLanguage(99))) & ".

" & vbcrlf Response.Write "

" & DICLanguage(100) & "

" & vbcrlf Response.Write "

" & DICLanguage(48) & "   " Response.Write "" & DICLanguage(101) & vbcrlf for ia = 1 to request.form("ids").count Response.Write "" & vbcrlf next Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "

" & vbcrlf & "

" & vbcrlf end sub %>
<%=DICLanguage(102)%> <%if request("cf") = "yes" then sql = "DELETE FROM " & application("prefix") & "documenti WHERE id IN (" & request.form("ids") & ")" & aggiunta_sql set objRS = Conn.execute(sql) response.redirect "contenuti.asp?cat=" & request("cat") & "&;mnu=" & request("mnu") & "&submnu=" & request("submnu") elseif request("cf") = "no" then response.redirect "contenuti.asp?cat=" & request("cat") & "&mnu=" & request("mnu") & "&submnu=" & request("submnu") else CreaModulo end if %>

<%=DICLanguage(103)%><%=DICLanguage(0)%>