<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLAggiungi, RSAggiungi, SQLCercaID, RSCercaID, SQLNomeFileTXT, RSNomeFileTXT, FilStuff, Stuff, I, NomeFileTXT, FTesto, FSezione, FAutore, FTitolo, FPodcast, FData, FOra, FLetture, FBozza, Errore, SQLSezioneArticoli, RSSezioneArticoli %>

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

<%=Testo_Articoli_IntroduzioneAggiungi%>

<% If Request.QueryString("a") = "aggiungi" Then FTesto = SostituisciCaratteri(Request.Form("Testo"), "Si") FSezione = DecodeEntities(SostituisciCaratteri(DoppioApice(Request.Form("Sezione")), "No")) FAutore = Session("BLOGNick") FTitolo = DecodeEntities(SostituisciCaratteri(DoppioApice(Request.Form("Titolo")), "No")) FPodcast = DoppioApice(Request.Form("NomeFile")) FData = DoppioApice(Request.Form("Data")) FOra = DoppioApice(Request.Form("Ora")) FLetture = DoppioApice(Request.Form("Letture")) FBozza = Request.Form("Bozza") Errore = False If FTesto = "" Then Errore = True End If If FSezione = "" 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 [Articoli] ([Sezione], [Autore], [Titolo], [Podcast], [Data], [Ora], [Letture], [Bozza]) VALUES ('"& FSezione &"', '"& FAutore &"', '"& FTitolo &"', '"& FPodcast &"', '"& FData &"', '"& FOra &"', '"& FLetture &"', " If FBozza = "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 SQLCercaID = " SELECT TOP 1 [ID] FROM [Articoli] ORDER BY [ID] DESC " Set RSCercaID = Server.CreateObject("ADODB.Recordset") RSCercaID.Open SQLCercaID, Conn, 1, 3 RSCercaID.MoveFirst NomeFileTXT = cStr(RSCercaID("ID")) If Len(NomeFileTXT) < 6 Then For I = 1 To 6 - Len(NomeFileTXT) NomeFileTXT = "0" & NomeFileTXT Next End If NomeFileTXT = NomeFileTXT & ".txt" SQLNomeFileTXT = " UPDATE [Articoli] SET [Testo] = '"& NomeFileTXT &"' WHERE [ID] = "& RSCercaID("ID") &" " Set RSNomeFileTXT = Server.CreateObject("ADODB.Recordset") RSNomeFileTXT.Open SQLNomeFileTXT, Conn, 1, 3 Set RSCercaID = Nothing Set RSNomeFileTXT = Nothing Set FilStuff = CreateObject("Scripting.FileSystemObject") Set Stuff = FilStuff.CreateTextFile(Server.MapPath(Path_DirPublic & NomeFileTXT), True) Stuff.Write FTesto Set Stuff = Nothing Set FilStuff = Nothing %>

<%=Testo_Articoli_AggiuntaABuonFine%>.
<%=Testo_Articoli_LinkTornaIndietro%>, <%=Testo_Articoli_LinkVaiElenco%> <%=Testo_SceltaOppure%> <%=Testo_Link_AvviaUploadFile%>.

Ping Weblogs.com/Technorati/Feedster via Ping-o-matic.

<% Else %>

<%=Testo_Articoli_ErroreInserimento%>
<%=Testo_Articoli_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Articoli_LinkVaiElenco%>.

<% End If Else %>

<%=Testo_Modulo_CampoSezione%> * <%=Testo_Modulo_SpiegazioneCampoSezione%>
      <%=Testo_SceltaOppure%> <%=Testo_Modulo_LinkPopupCampoSezione%>
<%=Testo_Modulo_CampoAutore%> * <%=Testo_Modulo_SpiegazioneCampoAutore%>
     <%=Session("BLOGNick")%> ">
<%=Testo_Modulo_CampoTitolo%> <%=Testo_Modulo_SpiegazioneCampoTitolo%>

<%=Testo_Modulo_CampoContenuto%> * <%=Testo_Modulo_SpiegazioneCampoContenuto%>

<%=Testo_Modulo_SpiegazioneEditorHTML%> <%=Testo_Modulo_LinkEditorHTML%>
<%=Testo_Modulo_SpiegazioneConversioneSmile%> <%=Testo_Modulo_LinkPopupConversioneSmile%>.
<%=Testo_Modulo_CampoPodcast%> <%=Testo_Modulo_SpiegazioneCampoPodcast%>
      <%=Testo_SceltaOppure%> <%=Testo_Modulo_LinkPopupCampoFilePodcast%>
<%=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_CampoBozze%> <%=Testo_Modulo_SpiegazioneCampoBozze%>
     <%=Testo_Modulo_CampoBozzeSi%> <%=Testo_Modulo_CampoBozzeNo%>

<%=Testo_Legenda_CampiObbligatori%>

<% End If %>

<% Conn.Close Set Conn = Nothing %>