Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni_Spesa_2015\Aggiungi_Buono_Spesa.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni_Spesa_2015&file=Aggiungi_Buono_Spesa.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 Buono Spesa&lt;/title&gt;
&lt;style type=&quot;text/css&quot;&gt;
.centra {
	text-align: left;
}
.x {
	color: #00F;
}
.v {	color: #FFF;
}
&lt;/style&gt;
&lt;/head&gt;
&lt;body&gt;

&lt;h1&gt;Aggiungi un Buono Spesa&lt;/h1&gt;

&lt;form method=&quot;post&quot; action=&quot;aggiungi_Buono_Spesa.asp&quot;&gt;
Cognome e Nome&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;M_Cognome_Nome&quot; maxlength=&quot;50&quot;&gt;&lt;br&gt;
Importo del Buono&lt;br&gt;
&lt;input type=&quot;number&quot; name=&quot;M_Importo&quot; maxlength=&quot;8&quot;&gt;&lt;br&gt;
Durata del Buono&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;M_Durata&quot; maxlength=&quot;15&quot;&gt;&lt;br&gt;&lt;br&gt;
&lt;input type=&quot;checkbox&quot; name=&quot;M_Martinucci&quot; value=&quot;MARTINUCCI PIERLUIGI&quot;&gt; Martinucci Pierluigi&lt;br&gt;
&lt;input type=&quot;checkbox&quot; name=&quot;M_Martinucci&quot; value=&quot;MARTINUCCI CARLO&quot;&gt; Martinucci Carlo&lt;br&gt;&lt;br&gt;
Scadenza Buono&lt;br&gt;
&lt;input type=&quot;Date&quot; name=&quot;M_scade&quot;&gt;&lt;br&gt;
Data emissione Buono&lt;br&gt;
&lt;input type=&quot;date&quot; name=&quot;M_Emesso&quot;&gt;&lt;br&gt;&lt;br&gt;


&lt;input type=&quot;submit&quot; name=&quot;aggiungi&quot; value=&quot;Aggiungi il Buono Spesa&quot;&gt;
&lt;/form&gt;

&lt;%
    If Request.Form(&quot;aggiungi&quot;) &lt;&gt; &quot;&quot; Then
        Dim Cognome_Nome, Importo, Durata, Titolare, scade, Emesso, chiuso
        Cognome_Nome = Request.Form(&quot;M_Cognome_Nome&quot;)
		Importo      = Request.Form(&quot;M_Importo&quot;)
		Durata       = Request.Form(&quot;M_Durata&quot;)
		Titolare     = Request.Form(&quot;M_Martinucci&quot;)
		Scade        = Request.Form(&quot;M_Scade&quot;)
		Emesso       = Request.Form(&quot;M_Emesso&quot;)
		Chiuso       = False
		
		
        '###########################################
		' Verifica che Cognome e nome non sia vuota
		'###########################################
        If Cognome_nome = &quot;&quot; Then
%&gt;
	    	&lt;p&gt;Inserisci il Cognome e Nome del beneficiario del Buono Spesa&lt;/p&gt;
&lt;%
		Else
            rs.Open &quot;Buoni_spesa&quot;, cn, 3, 3
            rs.AddNew
            rs(&quot;Cognome_nome&quot;) 	= UCase(Cognome_nome)
			rs(&quot;Importo&quot;)      	= Importo
			rs(&quot;Durata&quot;) 		= UCase(Durata)
			rs(&quot;Titolare&quot;) 		= UCase(Titolare)
			rs(&quot;Scade&quot;) 		= Scade
			rs(&quot;Emesso&quot;) 		= Emesso
			rs(&quot;Chiuso&quot;) 		= Chiuso
			
			rs.Update
            rs.Close
%&gt;
			&lt;h1 class=&quot;x&quot;&gt;Inserimento effettuato con successo!&lt;/h1&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;
  &lt;%
        End If
    End If
%&gt;
              
&lt;/p&gt;
&lt;p class=&quot;centra&quot;&gt;&lt;a href=&quot;index.html&quot;&gt;&lt;span class=&quot;v&quot;&gt;&lt;img src=&quot;images/bianco.jpg&quot; width=&quot;80&quot; height=&quot;80&quot;&gt;&lt;/span&gt;&lt;img src=&quot;images/Esci.png&quot; width=&quot;90&quot; height=&quot;90&quot; alt=&quot;Torna al Menu BUONI SPESA&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>]