Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\verifica.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin&file=verifica.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;html&gt;
&lt;head&gt;

&lt;title&gt;AREA RISERVATA&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;/head&gt;

&lt;body background=&quot;../immagini/bg_sfumato.jpg&quot;&gt;

&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; size=&quot;5&quot; color=&quot;#FFFFFF&quot;&gt;Area Riservata 
Utenti&lt;/font&gt;&lt;font face=&quot;Verdana&quot; size=&quot;4&quot; color=&quot;#FFFFFF&quot;&gt; &lt;br&gt;
  &lt;br&gt;
&amp;nbsp;Accesso&lt;br&gt;
&lt;br&gt;
&lt;img src=&quot;../immagini/unlock_file.gif&quot; width=&quot;40&quot; height=&quot;47&quot;&gt;&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
&lt;!-- #include file = &quot;adovbs.inc&quot; --&gt;

&lt;% 
Dim N_Lista
N_Lista = request.cookies(&quot;Lista&quot;)
%&gt;

&lt;%
Dim controllo
controllo = &quot;0&quot;
'**************************************************************
' PRELEVA L'USERNAME E LA PASSWORD INSERITI
'**************************************************************
Dim N_password
Dim N_pin

N_Password = Replace(Request.Form(&quot;password&quot;), &quot;'&quot;, &quot;''&quot;)
N_Pin = Replace(Request.Form(&quot;pin&quot;), &quot;'&quot;, &quot;''&quot;)

'**************************************************************
' CONTROLLA INNANZITUTTO SE E' STATO PASSATO UN VALORE, CIOE' VERIFICA
' CHE I CAMPI &quot;Paswword&quot; o &quot;Pin&quot; NON SIANO VUOTI
'**************************************************************
' Se è inserita la password 
'**************************************************************
IF N_password &lt;&gt; &quot;&quot; then
	'**************************************************************	
	' Verifica fino alla fine del file
	' se la trova riporta i campi contenuti nell'archivio
	' inerenti alla lista associata
	'**************************************************************
	Dim Conn
	Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Conn.ConnectionString=&quot;DRIVER={Microsoft Access Driver (*.mdb)};&quot; &amp; &quot;DBQ=&quot; &amp; server.mappath(&quot;/mdb-database/E-commerce.mdb&quot;)
	Conn.Open
	SQL = &quot;SELECT * FROM admins where password = '&quot; &amp; N_password &amp;&quot;'&quot;
	Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
	rs.Open sql,conn,3,3

		IF rs.Eof Then
			contollo = &quot;1&quot;
		else
			Response.cookies(&quot;Password&quot;)=rs(&quot;password&quot;)		
			Response.cookies(&quot;Lista&quot;)=rs(&quot;lista&quot;)
			n_lista = rs(&quot;lista&quot;)
			controllo = &quot;2&quot;	
		End If
	rs.Close
	Set rs = Nothing
	Conn.Close
	set Conn = Nothing
End If
'**************************************************************
' Se è inserit il PIN 
'**************************************************************
IF N_Pin &lt;&gt; &quot;&quot; THEN
	'**************************************************************	
	' Verifica fino alla fine del file
	' se lo trova riporta i campi contenuti nell'archivio
	' inerenti alla lista associata
	'**************************************************************
	Dim Conn_pin
	Set Conn_pin = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Conn_pin.ConnectionString=&quot;DRIVER={Microsoft Access Driver (*.mdb)};&quot; &amp; &quot;DBQ=&quot; &amp; server.mappath(&quot;/mdb-database/E-commerce.mdb&quot;)
	Conn_pin.Open
	SQL = &quot;SELECT * FROM admins where pin = '&quot; &amp; N_pin &amp;&quot;'&quot;
	Set rs_pin = Server.CreateObject(&quot;ADODB.Recordset&quot;)
	rs_pin.Open sql,conn_pin,3,3

		IF rs_pin.Eof Then
			contollo = &quot;1&quot;
		else
			Response.cookies(&quot;Pin&quot;)=rs_pin(&quot;pin&quot;)
			Response.cookies(&quot;Lista&quot;)=rs_pin(&quot;lista&quot;)
			n_lista = rs_pin(&quot;lista&quot;)
			controllo = &quot;2&quot;	
		End If
	rs_pin.Close
	Set rs_pin = Nothing
	Conn_pin.Close
	set Conn_pin = Nothing

END IF
'**************************************************************	
' Se la variabile Controllo = 0
' Visualizza un messaggio e ritorna alla pagina inserimento password
'**************************************************************	
If Controllo = &quot;0&quot; Then
	'**************************************************************
    ' CAMPI &quot;PIN&quot; E &quot;PASSWORD&quot; VUOTI
   	'**************************************************************
	%&gt;
	&lt;hr color=&quot;#ff0000&quot;&gt;
	&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; size=&quot;4&quot; color=&quot;#FF0000&quot;&gt;Almeno uno dei campi deve essere inserito!&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
	&lt;hr color=&quot;#ff0000&quot;&gt;
	&lt;%
	response.redirect &quot;log_ut_pin_nascita.asp&quot;
End IF

'**************************************************************	
' Se la variabile Controllo = 1 (non trovati record
' Visualizza un messaggio e ritorna alla pagina inserimento password
'**************************************************************	
If Controllo = &quot;1&quot; Then
	'**************************************************************
    ' CAMPI &quot;PIN&quot; o &quot;PASSWORD&quot; ERRATI
   	'**************************************************************
	%&gt;
	&lt;hr color=&quot;#ff0000&quot;&gt;
	&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; size=&quot;4&quot; color=&quot;#FF0000&quot;&gt;La PASSWORD o il codice PIN non é corretta!&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
	&lt;hr color=&quot;#ff0000&quot;&gt;
	&lt;%
	response.redirect &quot;log_ut_pin_nascita.asp&quot;
End IF
'**************************************************************
' CAMPI &quot;PIN&quot; o &quot;PASSWORD&quot; INSERITI CONTEMPORANEAMENTE
'**************************************************************
IF N_password &lt;&gt; &quot;&quot; AND N_Pin &lt;&gt; &quot;&quot; THEN
		%&gt;
		&lt;hr color=&quot;#ff0000&quot;&gt;	
		&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; size=&quot;4&quot; color=&quot;#FF0000&quot;&gt;Solo uno dei campi deve contenere dati!&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
		&lt;hr color=&quot;#ff0000&quot;&gt;
		&lt;%
		response.redirect &quot;log_ut_pin_nascita.asp&quot;
END IF	
'**************************************************************
' CAMPO &quot;PASSWORD&quot; Accettata reindirizza la procedura
' su default.asp passando i paramtri di accesso alla lista
'**************************************************************
if N_password &lt;&gt; &quot;&quot; THEN
		response.redirect(&quot;../default.asp?az=list&amp;fcampo=Marca&amp;fcosa=&quot;&amp;n_lista)
End If
'**************************************************************
' CAMPO &quot;PIN&quot; Accettato reindirizza la procedura
' su default_pin.asp passando i paramtri di accesso alla lista
'**************************************************************
If N_pin &lt;&gt; &quot;&quot; THEN
        'response.redirect(&quot;../Home_pin.asp?az=list&amp;fcampo=Marca&amp;fcosa=&quot;&amp;n_lista)
        response.redirect(&quot;../Nascite/Prodotti_list.asp?az=list&amp;fcampo=Marca&amp;fcosa=&quot;&amp;n_lista)
End If
%&gt;
&lt;/body&gt;
&lt;/html&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin">Íàçàä</a>]