<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim FilLink, Link, ContenutoLink, TSLink %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Link%>

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

<%=Testo_Introduzione_LinkAmici%>

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

<%=Testo_LinkAmici_ModificaABuonFine%>
<%=Testo_LinkAmici_LinkTornaIndietro%>.

<% Else %>

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

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