Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni_Spesa_2015\Leggi.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni_Spesa_2015&file=Leggi.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;) 
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 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; 
	
	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 

		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;) 

		For i=1 to RecordsPerPagina 

			if Not objRS.EOF then 

				Response.Write(&quot;&lt;tr&gt;&lt;td&gt;&quot; &amp; objRS(&quot;N_Buono_ID&quot;) &amp; &quot;&lt;/td&gt;&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;) 
				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;) 

				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>]