Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\compatta_archivi_nascita.asp</i><br><form method=post action="edit.asp?action=save&dir=&file=compatta_archivi_nascita.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;html&gt;

&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;&gt;
&lt;title&gt;Compattazione&amp;nbsp; Archivi NASCITA&lt;/title&gt;
&lt;/head&gt;

&lt;style type=&quot;text/css&quot;&gt;
&lt;!--
.Stile1 {
	font-family: verdana;
	font-size: x-small;
	font-weight: bold;
}
--&gt;
&lt;/style&gt;
&lt;body&gt;
&lt;div align=&quot;center&quot; class=&quot;Stile1&quot;&gt; 
	&amp;nbsp;&lt;p&gt;&amp;nbsp;&lt;/p&gt;
	&lt;p&gt;&amp;nbsp;&lt;/p&gt;
	&lt;p&gt;&amp;nbsp;&lt;/p&gt;
	&lt;p&gt;&amp;nbsp;&lt;/p&gt;
	&lt;p&gt;&lt;img src=&quot;Logo04-100x99.png&quot; width=&quot;100&quot; height=&quot;99&quot;&gt;&lt;br&gt;
		&lt;font color=&quot;#0000FF&quot;&gt;
  	&lt;br&gt;
	&lt;/font&gt;
	&lt;font size=&quot;5&quot; color=&quot;#FF0000&quot;&gt;Compattazione Archivi&amp;nbsp; in corso.....&lt;/font&gt;&lt;font color=&quot;#0000FF&quot;&gt;&lt;br&gt;
	&lt;br&gt;
  Attendere prego.....
	&lt;/font&gt;
	&lt;/p&gt;
&lt;p&gt; &lt;img border=&quot;0&quot; src=&quot;immagini/access.png&quot; width=&quot;50&quot; height=&quot;50&quot;&gt;&lt;/div&gt;

&lt;p align=&quot;center&quot;&gt;
&lt;% 
     
  strFile = Server.MapPath(&quot;mdb-database/E-commerce.mdb&quot;) 
  strFileTo = Server.MapPath(&quot;mdb-database/E-commerce_compattato.mdb&quot;) 
  
  strConn = &quot;Provider=Microsoft.Jet.OLEDB.4.0;&quot; &amp;_ 
     &quot;Data Source=&quot; &amp; strFile 
 
  strConnTo = &quot;Provider=Microsoft.Jet.OLEDB.4.0;&quot; &amp;_ 
            &quot;Data Source=&quot; &amp; strFileTo 
 
 
  set objJro = server.createobject(&quot;jro.JetEngine&quot;) 
  objJro.CompactDatabase strConn, strConnTo 
    
  if err &lt;&gt; 0 then 
    Response.Write &quot;Errore:&lt;br&gt;&quot; &amp; err.description 
  else 
    Response.Write &quot;Database compattato con successo su &quot; &amp; strFileTo 
  end if 
 
  set objJro = Nothing 
  
  '===================================
  'Rinomino Database
  '===================================
  Dim fso
  Set fso= Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
  ' CANCELLO IL FILE ORIGINALE
  fso.DeleteFile strFile
  'Rinomino il file Compresso
  fso.Movefile strFileTo, strFile
%&gt;





&lt;font face=&quot;Verdana&quot;&gt;&lt;font size=&quot;5&quot;&gt; &lt;/font&gt;
	&lt;/font&gt;
&lt;/p&gt;
&lt;p align=&quot;center&quot;&gt;

&lt;font face=&quot;Verdana&quot;&gt;&lt;font size=&quot;5&quot; color=&quot;#0000FF&quot;&gt;Il Database è stato cancellato.....&lt;/font&gt;&lt;font size=&quot;5&quot;&gt;
	&lt;/font&gt;&lt;/font&gt;
	&lt;br&gt;
&lt;font face=&quot;Verdana&quot;&gt;&lt;font size=&quot;5&quot;&gt; &lt;/font&gt;
	&lt;/font&gt;
&lt;/p&gt;
&lt;p align=&quot;center&quot;&gt;

&lt;font face=&quot;Verdana&quot;&gt;&lt;font size=&quot;5&quot; color=&quot;#0000FF&quot;&gt;Il Database è stato SOSTITUITO.....&lt;/font&gt;&lt;font size=&quot;5&quot;&gt;
	&lt;/font&gt;&lt;/font&gt;
	&lt;br&gt;
&lt;font face=&quot;Verdana&quot;&gt;&lt;font size=&quot;5&quot;&gt; &lt;/font&gt;
	&lt;/font&gt;
&lt;/p&gt;
&lt;p align=&quot;center&quot;&gt;

&lt;font face=&quot;Verdana&quot;&gt;&lt;b&gt;&lt;font size=&quot;5&quot; color=&quot;#FF0000&quot;&gt;Il Database è stato compattato con successo.....&lt;/font&gt;&lt;/b&gt;&lt;font size=&quot;5&quot;&gt;
	&lt;/font&gt;&lt;/font&gt;
	&lt;br&gt;
   &lt;%
%&gt;

&lt;/p&gt;




&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; size=&quot;4&quot; color=&quot;#0000FF&quot;&gt;&amp;nbsp;&lt;a href=&quot;Admin/default.asp&quot;&gt;ESCI&lt;/a&gt;&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;




&lt;/body&gt;

&lt;/html&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=">Íàçàä</a>]