Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Backup 02-06-2024\home_pin_OLD.asp</i><br><form method=post action="edit.asp?action=save&dir=\Backup 02-06-2024&file=home_pin_OLD.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;html&gt; 
&lt;head&gt; 
&lt;title&gt;Vedi Lista&lt;/title&gt; 
&lt;/head&gt; 
&lt;body&gt; 
&lt;% 
	Dim N_Lista
	N_Lista = request.cookies(&quot;Lista&quot;)
%&gt;

&lt;% 
'Stringa per la connessione 
cString = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; Server.MapPath(&quot;/mdb-database/E-commerce.mdb&quot;) 

'creazione connessione 
Set objConn=Server.CreateObject(&quot;ADODB.Connection&quot;) 

'apertura connessione 
objConn.Open cString 

'creazione recordset 
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;) 

nometabella=&quot;Prodotti&quot; ' inserisci qui il nome della tabella da vedere 

'query sql 
sql = &quot;select * from &quot;&amp;nometabella&amp;&quot; WHERE Marca = '&quot;&amp;N_Lista&amp;&quot;'&quot; 

'apertura recordset 
rs.Open sql, objConn, 3, 3 

if rs.eof then 'se il recordset è vuoto..... 

%&gt; 
&lt;br/&gt;&lt;br/&gt; 
&lt;center&gt;&lt;table border=&quot;0&quot; width=&quot;80%&quot;&gt; 
&lt;tr&gt; 
&lt;td align=&quot;center&quot;&gt;&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;&lt;b&gt;Niente dati&lt;/b&gt;&lt;/font&gt;&lt;/td&gt; 
&lt;/tr&gt; 
&lt;/table&gt; 
&lt;/center&gt; 
&lt;br/&gt; 
&lt;% 
else 'se invece il recordset contiene dei dati..... 
%&gt; 
&lt;br/&gt; 
&lt;center&gt;&lt;table border=&quot;0&quot; width=&quot;80%&quot;&gt; 
&lt;tr&gt; 
&lt;td align=&quot;center&quot;&gt;&lt;font face=&quot;Verdana&quot; color=&quot;#0000FF&quot;&gt;&lt;b&gt;Questa è la lista di nascita di : &lt;%=n_lista%&gt;&lt;/b&gt;&lt;/font&gt;&lt;/td&gt; 
&lt;/tr&gt; 
&lt;/table&gt; 
&lt;br/&gt; 
&lt;table border=&quot;1&quot; cellspacing='0' cellpadding='2' width=&quot;80%&quot;&gt; 
&lt;tr&gt; 
&lt;% 
	For Each campo in rs.Fields ' per ogni campo presente nel database ...
%&gt; 
&lt;td align='center'&gt;&lt;b&gt; 
&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;
&lt;%
IF campo.name &lt;&gt; &quot;ID&quot; OR campo.name &lt;&gt; &quot;foto&quot; OR campo.name &lt;&gt; &quot;marca&quot; OR campo.name &lt;&gt; &quot;classe&quot; OR campo.name &lt;&gt; &quot;dispo&quot; THEN 
%&gt;
	&lt;%=campo.name%&gt; 
&lt;%
END IF
%&gt;

&lt;/font&gt; 
&lt;/b&gt;&lt;/td&gt; 
&lt;% 
Next 
%&gt; 
&lt;/tr&gt; 
&lt;% 
do until rs.eof ' per tutti i records ... 
For Each campo in rs.Fields '... scrivo di ogni campo ... 
%&gt; 
&lt;td&gt; 
&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;
&lt;%
IF campo.name &lt;&gt; &quot;ID&quot; OR campo.name &lt;&gt; &quot;foto&quot; OR campo.name &lt;&gt; &quot;marca&quot; OR campo.name &lt;&gt; &quot;classe&quot; OR campo.name &lt;&gt; &quot;dispo&quot; Then 
%&gt;
	&lt;%=campo.value%&gt; 
&lt;%
END IF	
%&gt;
&lt;/font&gt; 
&lt;/td&gt; 
&lt;% 
next 
%&gt; 
&lt;/tr&gt; 
&lt;% 
rs.movenext 
loop 
%&gt; 
&lt;/table&gt; 
&lt;/center&gt; 
&lt;% 
end if 

'chiusura e distruzione recordset 
rs.close 
set rs=nothing 

'chiusura e distruzione connessione 
objConn.close 
set objconn=nothing 
%&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>]