Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Backup 02-06-2024\Esempio.asp</i><br><form method=post action="edit.asp?action=save&dir=\Backup 02-06-2024&file=Esempio.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot;&gt;
&lt;BODY&gt;
&lt;TABLE BORDER=1&gt;
&lt;TR&gt;&lt;TH&gt;ID&lt;/TH&gt;&lt;TH&gt;Codice&lt;/TH&gt;&lt;TH&gt;Nome&lt;/TH&gt;&lt;TH&gt;Descrizione&lt;/TH&gt;&lt;TH&gt;Prezzo&lt;/TH&gt;&lt;TH&gt;Foto&lt;/TH&gt;&lt;TH&gt;Marca&lt;/TH&gt;&lt;TH&gt;Vuoto&lt;/TH&gt;&lt;TH&gt;Dispo&lt;/TH&gt;&lt;TH&gt;Prenotato&lt;/TH&gt;&lt;TH&gt;E-Mail&lt;/TH&gt;&lt;/TR&gt;
&lt;%
Const ColonnaCod=1
Const ColonnaNome=2
Const ColonnaDescrizione=3
Const ColonnaPrezzo=4
Const ColonnaFoto=5
Const ColonnaMarca=6
Const ColonnaVuoto=7
Const ColonnaDispo=8
Const ColonnaPrenotato=9
Const ColonnaE_Mail=10


Set objExcel = CreateObject(&quot;Excel.Application&quot;)
objExcel.Visible = false
' Inserire Procedura automatica di lettura file
objExcel.Workbooks.Open(&quot;L:\! Martinucci\2015\Testi\Marazzi.xls&quot;)
Set objWorkbook = objExcel.Workbooks(&quot;Marazzi.xls&quot;).sheets(&quot;Foglio1&quot;)
riga= 2
Do While (objWorkbook.Cells(riga,ColonnaCod).Value &lt;&gt; &quot;&quot;)
   response.write &quot;&lt;TR&gt;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaCod).Value &amp; &quot;&lt;/TD&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaNome).Value &amp; &quot;&lt;/TD&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaDescrizione).Value &amp; &quot;&lt;/TD&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaPrezzo).Value &amp; &quot;&lt;/TD&gt;&lt;/TR&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaFoto).Value &amp; &quot;&lt;/TD&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaMarca).Value &amp; &quot;&lt;/TD&gt;&lt;/TR&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaVuoto).Value &amp; &quot;&lt;/TD&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaDispo).Value &amp; &quot;&lt;/TD&gt;&lt;/TR&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaPrenotato).Value &amp; &quot;&lt;/TD&gt;&quot;+vbcrlf
   response.write &quot;&lt;TD&gt;&quot; &amp; objWorkbook.Cells(riga, ColonnaE_mail).Value &amp; &quot;&lt;/TD&gt;&lt;/TR&gt;&quot;+vbcrlf

   riga = riga + 1
Loop
objExcel.Quit
Set objExcel=Nothing
%&gt;
&lt;/TABLE&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>]