<% ' 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("argomenti")<> 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") & "video WHERE Id = " & replace(Request("CatId"),"'","''") & 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"),",") %>
<%=replace(DICLanguage(332),"[VIDEO]","")%>: <%if Session("supervisor") = true then%> <%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("alttext_" & Session("reflanguage")),"d")%>

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

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

<%end if%> ucase(Session("backofficelanguage")) then%> <%=lac(lingua(j))%>"<%end if%> type="text" name="captions_<%=lingua(j)%>" class="input-lungo" id="captions_<%=lingua(j)%>" value="<%=fixstring(rs("captions_" & lingua(j)),"d")%>" />
<%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%>
<%=DICLanguage(20)%>

" /> " /> " />

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