Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Backup 02-06-2024\Prova-DM.asp</i><br><form method=post action="edit.asp?action=save&dir=\Backup 02-06-2024&file=Prova-DM.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE = VBScript%&gt;
&lt;%
    Dim invio, nome, cognome, indirizzo, telefono
    invio = Request.Form(&quot;invio&quot;)
    nome = Request.Form(&quot;nome&quot;)
    cognome = Request.Form(&quot;cognome&quot;)
    indirizzo = Request.Form(&quot;indirizzo&quot;)
    telefono = Request.Form(&quot;telefono&quot;)
    Dim messaggio, errore
    errore = 0
    messaggio = &quot;&lt;span style=&quot;&quot;color: #FF0000;&quot;&quot;&gt;Campo obbligatorio!&lt;/span&gt;&quot;
%&gt;
&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot;&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot; /&gt;
&lt;title&gt;Documento senza titolo&lt;/title&gt;
&lt;title&gt;Controllo integrato in un form con ASP ed i cookies&lt;/title&gt;
        &lt;style type=&quot;text/css&quot;&gt;
        p, input
        {
            font: normal 12px verdana;
        }
        input
        {
            width: 250px;
        }
        &lt;/style&gt;
&lt;/head&gt;

&lt;body&gt;

&lt;form method=&quot;post&quot; action=&quot;Prova-DM.asp&quot;&gt;
    &lt;p&gt;
        Nome
        &lt;%
            If invio &lt;&gt; &quot;&quot; And nome = &quot;&quot; Then
                Response.Write messaggio
                errore = errore + 1
            End If
        %&gt;
        &lt;br&gt;&lt;input type=&quot;text&quot; name=&quot;nome&quot; value=&quot;&lt;%=nome%&gt;&quot;&gt;
    &lt;/p&gt;
    &lt;p&gt;
        Cognome
        &lt;%
            If invio &lt;&gt; &quot;&quot; And cognome = &quot;&quot; Then
                Response.Write messaggio
                errore = errore + 1
            End If
        %&gt;
        &lt;br&gt;&lt;input type=&quot;text&quot; name=&quot;cognome&quot; value=&quot;&lt;%=cognome%&gt;&quot;&gt;
    &lt;/p&gt;
    &lt;p&gt;
        Indirizzo
        &lt;%
            If invio &lt;&gt; &quot;&quot; And indirizzo = &quot;&quot; Then
                Response.Write messaggio
                errore = errore + 1
            End If
        %&gt;
        &lt;br&gt;&lt;input type=&quot;text&quot; name=&quot;indirizzo&quot; value=&quot;&lt;%=indirizzo%&gt;&quot;&gt;
    &lt;/p&gt;
    &lt;p&gt;
        Telefono
        &lt;%
            If invio &lt;&gt; &quot;&quot; And telefono = &quot;&quot; Then
                Response.Write messaggio
                errore = errore + 1
            End If
        %&gt;
        &lt;br&gt;&lt;input type=&quot;text&quot; name=&quot;telefono&quot; value=&quot;&lt;%=telefono%&gt;&quot;&gt;
    &lt;/p&gt;
    &lt;p&gt;&lt;input type=&quot;submit&quot; name=&quot;invio&quot; value=&quot;Invio&quot;&gt;&lt;/p&gt;
&lt;/form&gt;

&lt;%
    If invio &lt;&gt; &quot;&quot; And errore = 0 Then
        With Response
            .Write &quot;&lt;p&gt;E' solo un esempio!&lt;/p&gt;&quot;
            .Write &quot;&lt;p&gt;&quot;
            .Write &quot;Nome: &quot; &amp; nome &amp; &quot;&lt;br&gt;&quot;
            .Write &quot;Cognome: &quot; &amp; cognome &amp; &quot;&lt;br&gt;&quot;
            .Write &quot;Indirizzo: &quot; &amp; indirizzo &amp; &quot;&lt;br&gt;&quot;
            .Write &quot;Telefono: &quot; &amp; telefono
            .Write &quot;&lt;/p&gt;&quot;
        End With
    End If
%&gt;

&lt;/body&gt;
&lt;/html&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBackup+02%2D06%2D2024">Íàçàä</a>]