<%
' 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
'---------------------------------------------------------
%>
<%
percorso = " " & DICLanguage(354)
lastpage = Request.ServerVariables("HTTP_REFERER")
%>
<%=DICLanguage(354)%>
<%
if Request("Back") <> "" then
response.redirect request("lastpage")
end if
Set xhtml = Server.CreateObject("ADODB.Recordset")
sql = "select * from " & application("prefix") & "modelli_css where validato=0 order by titolo"
xhtml.Open sql, conn, 0, 1
If xhtml.EOF and xhtml.BOF Then%>
<%else
%>
<%
lingua = split(Application("DISP_LINGUE_BACKOFFICE"),",")
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
'===========================================
' PASSO 1
'===========================================
If Trim(Request("Step")) = "" Then
'PASSO 1
'Visualizza le informazioni correnti ed il primo form per modificare/visualizzare i dettagli
%>
<%
'===========================================
' PASSO 2
'===========================================
ElseIf Request("Step") = "2" Then
%>
<%=DICLanguage(357)%>.
<%=DICLanguage(211)%>
<%
'recupero titolo modello
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "select * from " & application("prefix") & "modelli_css WHERE Id = " & request("modello")
SET RS = conn.execute(sql)
titolomodello = fixstring(rs("titolo"),"d")
set rs = nothing
'avvio controllo CSS non verificati
strrisposta = null
sql = "select * from " & application("prefix") & "modelli_css_allegati WHERE cssId = " & request("modello") & " and validato = 0 order by posizione"
SET RS2 = conn.execute(sql)
while not rs2.eof
sql = "select * from " & application("prefix") & "modelli_css_mediatype where id=" & rs2("mediatype")
set rs3 = conn.execute(sql)
tipomedia = rs3("mediatype")
colour = cint(rs3("colour"))
set rs3 = nothing
strCSS = rs2("content")
If strCSS <> "" Then
if colour <> 0 then
strResults = Trim(analyseCSS(strCSS))
else
strResults = Trim(ValidateCSS(strCSS))
end if
End If
If strResults <> "" and instr(strResults, DICLanguage(352)) Then
strrisposta = strrisposta & "" & titolomodello & "(" & tipomedia & ")
" & vbcrlf
strrisposta = strrisposta & strResults & vbCrLf
errori = 1
Else
if instr(strResults, DICLanguage(353)) then
strrisposta = strResults & vbCrLf
end if
sql = "update " & application("prefix") & "modelli_css_allegati set validato=1 where id=" & rs2("id")
set rs3 = conn.execute(sql)
set rs3 = nothing
End If
rs2.movenext
wend
set rs2 = nothing
if errori <> 1 then
'AGGIORNA
sql = "update " & application("prefix") & "modelli_css set validato=1 where id=" & request("modello")
set rs3 = conn.execute(sql)
set rs3 = nothing
response.write "" & replace(DICLanguage(213),"[MODELLO]", titolomodello) & DICLanguage(0) & "
"
response.write strrisposta
else
response.write "" & DICLanguage(356) & DICLanguage(0) & "
"
response.write strrisposta
end if
End If%>
&submnu=<%=request("submnu")%>" onclick="history.back()" onkeypress="history.back()"><%=DICLanguage(2)%><%=DICLanguage(0)%>
<%end if
xhtml.close
set xhtml = nothing
%>