<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim FilStuff, Stuff, ContenutoStuff, TSStuff %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Stuff%>

<% If Session("BLOGAdmin") = True Then %>

<%=Testo_Introduzione_Stuff%>

<% Set FilStuff = CreateObject("Scripting.FileSystemObject") If FilStuff.FileExists(Server.MapPath(Path_DirScrittura & "destra_stuff.txt")) = False Then Set Stuff = FilStuff.CreateTextFile(Server.MapPath(Path_DirScrittura & "destra_stuff.txt"), True) Stuff.WriteLine("#nd#") Set Stuff = Nothing End If If FilStuff.FileExists(Server.MapPath(Path_DirScrittura & "destra_stuff.txt")) = True Then If Request.QueryString("a") = "modifica" AND Request.Form("Testo") <> "" AND Request.Form("Testo") <> " " Then Set Stuff = FilStuff.GetFile(Server.MapPath(Path_DirScrittura & "destra_stuff.txt")) Set TSStuff = Stuff.OpenAsTextStream(2, 0) TSStuff.Write Request.Form("Testo") TSStuff.Close Set Stuff = Nothing %>

<%=Testo_Stuff_ModificaABuonFine%>
<%=Testo_Stuff_LinkTornaIndietro%>.

<% Else %>

<%=Testo_Modulo_CampoContenuto%> <%=Testo_Modulo_SpiegazioneCampoContenuto%>
<%=Testo_Modulo_SpiegazioneEditorHTML%> <%=Testo_Modulo_LinkEditorHTML%>.

<% End If End If Set FilStuff = Nothing %>
<% Else %> <%=Testo_Errore_FunzioneRiservataAdmin%> <% End If %>
<% Conn.Close Set Conn = Nothing %>