Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Backup 02-06-2024\compatta_archivi_nascita_OLD.asp</i><br><form method=post action="edit.asp?action=save&dir=\Backup 02-06-2024&file=compatta_archivi_nascita_OLD.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 border=&quot;0&quot; src=&quot;logo_73x78.jpg&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;%
'variabile con il percorso fisico del database.
dbName = &quot;\mdb-Database\E-commerce.mdb&quot;
numero = 0
'############################################
'###############NON MODIFICARE ##############
dbName = Server.MapPath(&quot;\&quot;) &amp; dbName
dbName = Replace(dbName, &quot;/&quot;, &quot;\&quot;)
dbSostituisci = Left(dbName, InStrRev(dbName, &quot;\&quot;)) &amp; &quot;temp.mdb&quot;
'===================================
'istruzione che compatta il database
'===================================
Set db = CreateObject(&quot;DAO.DBEngine.36&quot;)
   db.CompactDatabase dbName, dbSostituisci
   numero = numero+1
   if numero &gt;0 then
   %&gt;&lt;font face=&quot;Verdana&quot;&gt;&lt;font size=&quot;5&quot;&gt; &lt;/font&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;%
   numero = 0
   end if
   
   
Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
'============================
'Il file viene cancellato
'============================
   objFSO.DeleteFile(dbname)
   numero = numero+1
    if numero &gt;0 then
   %&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;%
   numero = 0
   end if
'===============
'Sposto il file
'===============
   objFSO.MoveFile dbSostituisci, dbname
    numero = numero+1
    if numero &gt;0 then
   %&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;%
   numero = 0
   end if

Set objFSO = Nothing
'response.Write(&quot;IL DATABASE E' STATO COMPATTATO CON SUCCESSO... !!!&quot;)&amp;vbCrLf
%&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=%5CBackup+02%2D06%2D2024">Íàçàä</a>]