Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni_Spesa_2015\Aggiungi_movimento.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni_Spesa_2015&file=Aggiungi_movimento.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE = VBScript%&gt;
&lt;%
    Dim sc, cn, rs
    sc = &quot;driver={Microsoft Access Driver (*.mdb)};dbq=&quot;
    Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
    cn.Open sc &amp; Server.MapPath (&quot;/mdb-database/Buoni_Spesa_2015.mdb&quot;)
    Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Aggiungi un movimento&lt;/title&gt;
&lt;style type=&quot;text/css&quot;&gt;
.z {
	color: #390;
}
.m {
	color: #F00;
	font-weight: bold;
}
.n {
	font-size: 14px;
}
&lt;/style&gt;
&lt;/head&gt;
&lt;body&gt;

&lt;h1&gt;Aggiungi un movimento&lt;/h1&gt;

&lt;form method=&quot;post&quot; action=&quot;aggiungi_Movimento.asp&quot;&gt;
  &lt;p&gt;Seleziona Cognome e Nome del beneficiario del Buono:&lt;br&gt;
    &lt;select name=&quot;M_N_Buono&quot;&gt;
  &lt;option value=&quot;&quot;&gt;&lt;/option&gt;
  &lt;%
    rs.Open &quot;SELECT * FROM Buoni_Spesa ORDER BY N_Buono_id ASC&quot;, cn, 1
    While rs.EOF = False
%&gt;
  &lt;option value=&quot;&lt;%=rs(&quot;N_Buono_id&quot;)%&gt;&quot;&gt;&lt;%=rs(&quot;Cognome_Nome&quot;)%&gt;&lt;/option&gt;
      
  &lt;%
        rs.MoveNext
    Wend
    rs.Close
%&gt;
    &lt;/select&gt;
    &lt;br&gt;&lt;br&gt;
IMPORTO&lt;br&gt;
(&lt;span class=&quot;m&quot;&gt;ricorda il  - prima della cifra&lt;/span&gt;):&lt;br&gt;
  &lt;input type=&quot;number&quot; name=&quot;M_Movimento&quot; &gt;&lt;br&gt;&lt;br&gt;
    DATA:&lt;br&gt;
  &lt;input type=&quot;Date&quot; name=&quot;M_Data_movimento&quot; &gt;&lt;br&gt;&lt;br&gt;
    
  &lt;input type=&quot;submit&quot; name=&quot;aggiungi&quot; value=&quot;Aggiungi un Movimento&quot;&gt;
  &lt;/p&gt;
&lt;/form&gt;

&lt;%
    If Request.Form(&quot;aggiungi&quot;) &lt;&gt; &quot;&quot; Then
		Dim N_Buono, Movimento, X_Data_movimento
		        
		N_Buono      	= Request.Form(&quot;M_N_Buono&quot;)
        
		Movimento    	= Request.Form(&quot;M_Movimento&quot;)
		X_Data_movimento  = Request.Form(&quot;M_Data_movimento&quot;)
		
		
		If N_Buono = &quot;&quot;  Or Movimento = &quot;&quot; Or X_Data_Movimento = &quot;&quot; Then
		
%&gt;
&lt;p&gt;Tutti i campi sono obbligatori&lt;/p&gt;
&lt;%
        Else
            rs.Open &quot;Movimenti&quot;, cn, 3, 3
            rs.AddNew
            rs(&quot;N_Buono&quot;) = N_Buono
            'rs(&quot;Cognome_nome&quot;) = Cognome_Nome
			rs(&quot;Movimento&quot;) = Movimento
			rs(&quot;Data_movimento&quot;) = X_Data_movimento
            rs.Update
            rs.Close
%&gt;
&lt;h1&gt;&lt;p class=&quot;z&quot;&gt;Inserimento effettuato con successo!&lt;/p&gt;&lt;/h1&gt;
&lt;p&gt;
  &lt;%
        End If
    End If
%&gt;
  
&lt;/p&gt;
&lt;p&gt;&lt;a href=&quot;index.html&quot;&gt;&lt;img src=&quot;images/Esci.png&quot; width=&quot;90&quot; height=&quot;90&quot;&gt;&lt;/a&gt;&lt;/p&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%5FSpesa%5F2015">Íàçàä</a>]