<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLAggiungi, RSAggiungi, FNomeFile, FSezione, FAutore, FDescrizione, FData, FOra, FLetture, FHeader, Errore, FilSezioneFotografie, SezioneFotografie, SQLSezioneFotografie, RSSezioneFotografie %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Fotografie%> : <%=Testo_Modulo_PulsanteAggiungi%>

<%=Testo_Fotografie_IntroduzioneAggiungi%>

<% If Request.QueryString("a") = "aggiungi" Then FNomeFile = DoppioApice(Request.Form("NomeFile")) FSezione = DecodeEntities(SostituisciCaratteri(DoppioApice(Request.Form("Sezione")), "No")) FAutore = Session("BLOGNick") FDescrizione = DoppioApice(SostituisciCaratteri(Request.Form("Descrizione"), "No")) FData = DoppioApice(Request.Form("Data")) FOra = DoppioApice(Request.Form("Ora")) FLetture = DoppioApice(Request.Form("Letture")) FHeader = Request.Form("Header") Errore = False If FNomeFile = "" Then Errore = True End If If FSezione = "" Then Errore = True End If If FDescrizione = "" Then Errore = True End If If FData = "" OR Len(FData) <> 8 OR IsNumeric(FData) = False OR IsDate(StrToData(FData)) = False Then Errore = True End If If FOra = "" OR Len(FOra) <> 6 OR IsNumeric(FOra) = False Then Errore = True End If If FLetture = "" OR IsNumeric(FLetture) = False Then Errore = True End If If Errore = False Then SQLAggiungi = " INSERT INTO [Fotografie] ([NomeFile], [Sezione], [Autore], [Descrizione], [Data], [Ora], [Letture], [Header]) VALUES ('"& FNomeFile &"', '"& FSezione &"', '"& FAutore &"', '"& FDescrizione &"', '"& FData &"', '"& FOra &"', "& cInt(FLetture) &", " If FHeader = "si" Then SQLAggiungi = SQLAggiungi & "True)" Else SQLAggiungi = SQLAggiungi & "False)" End If Set RSAggiungi = Server.CreateObject("ADODB.Recordset") RSAggiungi.Open SQLAggiungi, Conn, 1, 3 Set RSAggiungi = Nothing %>

<%=Testo_Fotografie_AggiuntaABuonFine%>
<%=Testo_Fotografie_LinkTornaIndietro%>, <%=Testo_Fotografie_LinkVaiElenco%> <%=Testo_SceltaOppure%> <%=Testo_Link_AvviaUploadFile%>.

<% Else %>

<%=Testo_Fotografie_ErroreInserimento%>
<%=Testo_Fotografie_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Fotografie_LinkVaiElenco%>.

<% End If Else %>

<%=Testo_Modulo_CampoNomeFileFotografia%> * <% If NOT Abilita_ResizeASPNET Then %> <%=Testo_Modulo_CampoNomeFileFotografiaSpiegazione%> <% Else %> <%=Testo_Modulo_CampoNomeFileFotografiaSpiegazioneConResizeASPNET%> <% End If %>
     <%=Testo_Modulo_PulsanteUpload%> <%=Testo_SceltaComplementare%> <%=Testo_Modulo_LinkPopupCampoFileFotografia%>
<%=Testo_Modulo_CampoSezione%> * <%=Testo_Modulo_SpiegazioneCampoSezione%>
     <%=Testo_SceltaOppure%> <%=Testo_Modulo_LinkPopupCampoSezione%>
<%=Testo_Modulo_CampoDescrizione%> * <%=Testo_Modulo_SpiegazioneCampoDescrizione%>

<%=Testo_Modulo_CampoData%> <%=Testo_Modulo_SpiegazioneCampoData%>
     <%=Testo_SceltaOppure%> <%=Testo_Modulo_LinkPopupCampoData%>
<%=Testo_Modulo_CampoOra%> <%=Testo_Modulo_SpiegazioneCampoOra%>
     <%=Testo_SceltaOppure%> <%=Testo_Modulo_LinkPopupCampoOra%>
<%=Testo_Modulo_CampoLetture%> <%=Testo_Modulo_SpiegazioneCampoLetture%>

<%=Testo_Modulo_CampoHeader%> <%=Testo_Modulo_SpiegazioneCampoHeader%>
    <%=Testo_Modulo_CampoHeaderSi%> <%=Testo_Modulo_CampoHeaderNo%>

<%=Testo_Legenda_CampiObbligatori%>

<% End If %>

<% Conn.Close Set Conn = Nothing %>