Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni_Spesa_2015\Leggi_2.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni_Spesa_2015&file=Leggi_2.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE = VBScript%&gt;
&lt;% Dim DBConn,strconn 
set dbconn=server.createobject(&quot;ADODB.connection&quot;)
  strconn=&quot;Provider = Microsoft.Jet.OLEDB.4.0; Data Source =&quot; &amp; Server.MapPath (&quot;/mdb-database/Buoni_Spesa_2015.mdb&quot;)
   dbconn.open strconn

Dim objRS 
Set objRS = Server.CreateObject(&quot;ADODB.Recordset&quot;) 
' numero di record per pagina
RecordsPerPagina = 100 
page = Request(&quot;page&quot;) 
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Elenco Buoni Spesa Emessi&lt;/title&gt; 
&lt;/head&gt;
&lt;body&gt;

&lt;h1&gt;Elenco Buoni Spesa/Movimenti Emessi&lt;/h1&gt;
&lt;p&gt;
  &lt;%
if page=&quot;&quot; then page=1 

	'strSQL = &quot;SELECT * FROM Buoni_spesa order by N_Buono_ID ASC&quot; 
	
	'strSQL =  &quot;SELECT Buoni_Spesa.Cognome_Nome, Movimenti.N_Buono FROM Buoni_spesa LEFT JOIN Movimenti ON Buoni_spesa.N_Buono_ID=Movimenti.N_buono ORDER BY Buoni_spesa.Cognome_nome ASC&quot;
	
	strSQL = &quot;SELECT * FROM Movimenti LEFT JOIN Buoni_spesa ON Movimenti.N_buono = Buoni_spesa.N_Buono_ID ORDER BY Buoni_spesa.N_Buono_ID&quot;
	
	
	
	objRS.open strSQL, DBConn, 1 

	objRS.PageSize = RecordsPerPagina 

	' objRS.AbsolutePage = page 

	If objRS.Eof=True or objRS.Bof=True then 

		Response.Write &quot;&lt;P&gt;Nessun risultato trovato&lt;/P&gt;&quot; 

	Else 
        objRS.AbsolutePage = page
		Response.Write (&quot;&lt;center&gt;&lt;table border=1&gt;&lt;tr&gt;&lt;th bgcolor=lightyellow&gt;N Buono&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Cognome Nome&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Importo&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Durata&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Titolare&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Scade&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Emesso&lt;/th&gt;&lt;th bgcolor=lightyellow&gt;Chiuso&lt;/th&gt;&lt;/tr&gt;&quot;) 
		'conta = 0 
		M_Cognome_nome_OLD = &quot;&quot;
		M_Cognome_nome = &quot;&quot;
		somma = 0
		For i=1 to RecordsPerPagina
   

			if Not objRS.EOF then 
			    M_cognome_nome =  objRS(&quot;Cognome_Nome&quot;)
				
				if M_cognome_nome &lt;&gt; M_cognome_nome_OLD then
				somma = 0
				Response.Write(&quot;&lt;tr&gt;&lt;td&gt;&quot; &amp; objRS(&quot;N_Buono_ID&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				'M_cognome_nome =  objRS(&quot;Cognome_Nome&quot;)
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;Cognome_Nome&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;importo&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				M_importo = objRS(&quot;importo&quot;)
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;durata&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;titolare&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;Scade&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;emesso&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;chiuso&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&quot;)
				somma = somma + M_importo 
				' dati movimento
				Response.Write(&quot;&lt;tr&gt;&lt;td&gt;&quot; &amp; objRS(&quot;N_Buono&quot;) &amp; &quot;&lt;/td&gt;&quot;)
				Response.Write(&quot;&lt;td&gt;&quot; &amp; space(Len(objRS(&quot;Cognome_Nome&quot;))) &amp; &quot;&lt;/td&gt;&quot;)  
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;Movimento&quot;) &amp; &quot;&lt;/td&gt;&quot;)
				M_movimento =  objRS(&quot;Movimento&quot;)
				somma = somma + M_movimento
				Response.Write(&quot;&lt;td&gt;&lt;B&gt;&quot; &amp; somma &amp; &quot;&lt;/B&gt;&lt;/td&gt;&quot;)
				Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;Data_movimento&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&quot;)
				M_cognome_nome_OLD = M_cognome_nome 
				
				
				else
				    M_cognome_nome_OLD  = M_cognome_nome
     				Response.Write(&quot;&lt;tr&gt;&lt;td&gt;&quot; &amp; objRS(&quot;N_Buono&quot;) &amp; &quot;&lt;/td&gt;&quot;)
					Response.Write(&quot;&lt;td&gt;&quot; &amp; space(Len(objRS(&quot;Cognome_Nome&quot;))) &amp; &quot;&lt;/td&gt;&quot;)  
					Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;Movimento&quot;) &amp; &quot;&lt;/td&gt;&quot;) 
					M_movimento =  objRS(&quot;Movimento&quot;)
				    somma = somma + M_movimento
				    Response.Write(&quot;&lt;td&gt;&lt;B&gt;&quot; &amp; somma &amp; &quot;&lt;/B&gt;&lt;/td&gt;&quot;)
					Response.Write(&quot;&lt;td&gt;&quot; &amp; objRS(&quot;Data_movimento&quot;) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&quot;) 
				 
				end if	
				
				objRS.MoveNext 
				
				
			end if 

		Next 

		Response.Write (&quot;&lt;/table&gt;&lt;/center&gt;&quot;) 

End if 

'Response.Write &quot;&lt;P&gt;&lt;B&gt;Pagine:&lt;/B&gt; &quot; 

'For pag=1 to objRS.PageCount 

'	Response.Write &quot;&lt;A href='default.asp?page=&quot; &amp; pag &amp; &quot;'&gt;&quot; 

'	Response.Write pag 

'	Response.Write &quot;&lt;/A&gt; &quot; 

'Next 

'Response.Write &quot;&lt;/P&gt;&quot; 

%&gt;
&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&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;%
objRS.Close 

Set objRS=Nothing 

DBConn.Close 

Set DBConn=Nothing 

%&gt; 
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%5FSpesa%5F2015">Íàçàä</a>]