<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLArticolo, RSArticolo, SQLModifica, RSModifica, FID, FNomeFileTXT, FTesto, FSezione, FAutore, FTitolo, FPodcast, FData, FOra, FLetture, FBozza, Errore, FilSezioneArticoli, SezioneArticoli, SQLSezioneArticoli, RSSezioneArticoli, FilContenutoArticolo, ContenutoArticolo, ContenutoArticoloTemp, SQLListBox, RSListBox If Request.QueryString("id") <> "" AND Request.QueryString("id") <> "0" AND IsNumeric(Request.QueryString("id")) = True Then FID = Request.QueryString("id") Else FID = 0 End If %>

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

<%=Testo_Articoli_IntroduzioneModifica%>

<% If Request.QueryString("a") = "modifica" Then FNomeFileTXT = DoppioApice(Request.Form("NomeFileTXT")) FTesto = SostituisciCaratteri(Request.Form("Testo"), "Si") FSezione = DecodeEntities(SostituisciCaratteri(DoppioApice(Request.Form("Sezione")), "No")) If Request.Form("Autore") = "" Then FAutore = Session("BLOGNick") Else FAutore = DoppioApice(Request.Form("Autore")) End If 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 SQLModifica = " UPDATE [Articoli] SET Articoli.Sezione = '"& FSezione &"', Articoli.Autore = '"& FAutore &"', Articoli.Titolo = '"& FTitolo &"', Articoli.Podcast = '"& FPodcast &"', Articoli.Data = '"& FData &"', Articoli.Ora = '"& FOra &"', Articoli.Letture = "& FLetture &", " If FBozza = "si" Then SQLModifica = SQLModifica & "Articoli.Bozza = True " Else SQLModifica = SQLModifica & "Articoli.Bozza = False " End If SQLModifica = SQLModifica & "WHERE Articoli.ID = "& FID &" " If Session("BLOGAdmin") = False Then SQLModifica = SQLModifica & "AND Articoli.Autore = '"& Session("BLOGNick") &"' " End If Set RSModifica = Server.CreateObject("ADODB.Recordset") RSModifica.Open SQLModifica, Conn, 1, 3 Set RSModifica = Nothing Set FilContenutoArticolo = CreateObject("Scripting.FileSystemObject") Set ContenutoArticolo = FilContenutoArticolo.GetFile(Server.MapPath(Path_DirPublic & FNomeFileTXT)) Set ContenutoArticoloTemp = ContenutoArticolo.OpenAsTextStream(2, 0) ContenutoArticoloTemp.Write FTesto ContenutoArticoloTemp.Close Set ContenutoArticolo = Nothing Set ContenutoArticoloTemp = Nothing %>

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

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

<% Else %>

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

<% End If Else If Session("BLOGAdmin") = True Then SQLArticolo = " SELECT * FROM [Articoli] WHERE [ID] = "& FID &" " Else SQLArticolo = " SELECT * FROM [Articoli] WHERE [ID] = "& FID &" AND [Autore] = '"& Session("BLOGNick") &"' " End If Set RSArticolo = Server.CreateObject("ADODB.Recordset") RSArticolo.Open SQLArticolo, Conn, 1, 3 If NOT RSArticolo.EOF Then %>
"> <%=Testo_Modulo_CampoSezione%> * <%=Testo_Modulo_SpiegazioneCampoSezione%>
     " size="50" maxlength="100"> o scegli <% If Session("BLOGAdmin") = True Then SQLListBox = " SELECT [Nick] FROM [Autori] GROUP BY Autori.Nick " Set RSListBox = Server.CreateObject("ADODB.Recordset") RSListBox.Open SQLListBox, Conn, 1, 3 %>
<%=Testo_Modulo_CampoAutore%> * <%=Testo_Modulo_SpiegazioneCampoAutore%>
      <% End If %>
<%=Testo_Modulo_CampoTitolo%> <%=Testo_Modulo_SpiegazioneCampoTitolo%>
     " size="50" maxlength="100">
<%=Testo_Modulo_CampoContenuto%> * <%=Testo_Modulo_SpiegazioneCampoContenuto%>
     
<%=Testo_Modulo_SpiegazioneEditorHTML%> <%=Testo_Modulo_LinkEditorHTML%>
<%=Testo_Modulo_SpiegazioneConversioneSmile%> <%=Testo_Modulo_LinkPopupConversioneSmile%>.
<%=Testo_Modulo_CampoPodcast%> <%=Testo_Modulo_SpiegazioneCampoPodcast%>
      0 Then Response.Write Server.HTMLEncode(RSArticolo("Podcast")) End If%>" size="50" maxlength="250"> <%=Testo_SceltaOppure%> <%=Testo_Modulo_LinkPopupCampoFilePodcast%>
<%=Testo_Modulo_CampoData%> <%=Testo_Modulo_SpiegazioneCampoData%>
     " size="50" maxlength="8"> o scegli
<%=Testo_Modulo_CampoOra%> <%=Testo_Modulo_SpiegazioneCampoOra%>
     " size="50" maxlength="6"> o scegli
<%=Testo_Modulo_CampoLetture%> <%=Testo_Modulo_SpiegazioneCampoLetture%>
     " size="50" maxlength="5">
<%=Testo_Modulo_CampoBozze%> <%=Testo_Modulo_SpiegazioneCampoBozze%>
     <%=Testo_Modulo_CampoBozzeSi%> > <%=Testo_Modulo_CampoBozzeNo%> >

<%=Testo_Legenda_CampiObbligatori%>

<% Else %>

<%=Testo_TabellaArticoli_ErroreNessunArticoloTrovato%>: <%=Testo_Errore_PassaggioParametri%>
<%=Testo_Articoli_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_LinkTornaElenco%>.

<% End If Set RSArticolo = Nothing End If %>
<% Conn.Close Set Conn = Nothing %>