Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni_Spesa_2015\Modifica_Buoni_spesa.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni_Spesa_2015&file=Modifica_Buoni_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;)
    Dim id
    id = Request.QueryString(&quot;id&quot;)
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Modifica un Buono Spesa&lt;/title&gt;
&lt;style type=&quot;text/css&quot;&gt;
.c {
	color: #C60;
}
.v {
	color: #FFF;
}
&lt;/style&gt;
&lt;/head&gt;
&lt;body&gt;

&lt;h1&gt;Modifica un Buono Spesa&lt;/h1&gt;

&lt;form method=&quot;post&quot; action=&quot;modifica_Buoni_Spesa.asp?id=&lt;%=id%&gt;&quot;&gt;
Seleziona il Buono da Modificare:&lt;br&gt;&lt;br&gt;
&lt;select name=&quot;autore&quot;
onchange=&quot;location.href='modifica_Buoni_Spesa.asp?id='+this.value&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;
&lt;%
    If id &lt;&gt; &quot;&quot; Then
        rs.Open &quot;SELECT * FROM Buoni_Spesa WHERE N_Buono_ID = &quot; &amp; id, cn, 1
%&gt;
Cognome e Nome&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;M_Cognome_Nome&quot; maxlength=&quot;50&quot; 
value=&quot;&lt;%=rs(&quot;Cognome_Nome&quot;)%&gt;&quot;&gt;
&lt;br&gt;&lt;br&gt;
Importo&lt;br&gt;
&lt;input type=&quot;number&quot; name=&quot;M_Importo&quot; maxlength=&quot;8&quot;
value=&quot;&lt;%=rs(&quot;Importo&quot;)%&gt;&quot;&gt;
&lt;br&gt;&lt;br&gt;
Durata del Buono&lt;br&gt;&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;M_Durata&quot; maxlength=&quot;15&quot;
value=&quot;&lt;%=rs(&quot;Durata&quot;)%&gt;&quot;&gt;
&lt;br&gt;&lt;br&gt;


&lt;input type=&quot;submit&quot; name=&quot;modifica&quot; value=&quot;Modifica un Buono Spesa&quot;&gt;
&lt;/form&gt;
&lt;%
        rs.Close
    End If
    If Request.Form(&quot;modifica&quot;) &lt;&gt; &quot;&quot; Then
        Dim Cognome_nome, importo, durata
        Cognome_nome = Request.Form(&quot;M_Cognome_nome&quot;)
		importo = Request.Form(&quot;M_Importo&quot;)
		durata = Request.Form(&quot;M_Durata&quot;)
        If Cognome_nome = &quot;&quot; Then
%&gt;
&lt;p&gt;Specifica il Cognome e Nome&lt;/p&gt;
&lt;%
        Else
            Dim SQL
            SQL = &quot;SELECT * FROM Buoni_spesa WHERE N_Buono_ID = &quot; &amp; id
            rs.Open SQL, cn, 3, 3
            rs(&quot;Cognome_nome&quot;) = Cognome_nome
			rs(&quot;Importo&quot;) = importo
			rs(&quot;durata&quot;) = durata
            rs.Update
            rs.Close
%&gt;
&lt;p&gt;&lt;h1 class=&quot;c&quot;&gt;Modifica effettuata con successo!&lt;/h1&gt;&lt;/p&gt;
&lt;p&gt;
  &lt;%
        End If
    End If
%&gt;
  
&lt;/p&gt;
&lt;p&gt;&lt;img src=&quot;images/bianco.jpg&quot; width=&quot;80&quot; height=&quot;80&quot;&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>]