Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\home_pin.asp</i><br><form method=post action="edit.asp?action=save&dir=&file=home_pin.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% 
Dim N_Lista
N_Lista = request.cookies(&quot;Lista&quot;)
%&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;META NAME=&quot;GENERATOR&quot; Content=&quot;Microsoft Visual Studio 6.0&quot;&gt;

&lt;TITLE&gt;Visualizza Lista di Nascita&lt;/TITLE&gt;
&lt;STYLE TYPE=&quot;text/css&quot;&gt;
&lt;!--
.formhdr {
			background-image:url('immagini/head-px.bmp');
			/*background:blue;*/
			color:white;
			font-family:tahoma;
			font-size:12
			}
.formbody{
			border:blue thin solid;
			background:lightyellow;
			font-family:tahoma;
			font-size:12
			}
.formclosebtn{
			background-image:url('immagini/close-px.bmp');
			width: 21px;
			height: 21px;
			border: medium none;
			cursor: hand
			}

.toolbar{
			border-bottom:blue 1px solid;
			}			
.datacell{
			font-size:12px;
			}
.rowover{
			background-color:blue;
			background-image:url('immagini/head-px.bmp');
			color:white
			}
.rowout{
			background-color:white;
			color:black
			}						
IMG{
			cursor: hand;
			border: none;
			}
TH{
			background-color:lightblue;
			color: blue;
			font-size:12px;
			}
DIV{
			overflow:scroll;
			border:blue 1px solid;
			Height:250px;
			}
body{       font-family: tahoma; font-size: 5pt;
            color: blue;
            }						
--&gt;

&lt;/STYLE&gt;

&lt;SCRIPT Language&gt;
function changecolor(nid){
	var ee = eval(&quot;window.&quot; + nid);
	ee.className=&quot;rowover&quot;;
	return
}

function changecolorback(nid){
	var ee = eval(&quot;window.&quot; + nid);
	ee.className=&quot;rowout&quot;;
	return
}


function close_win(){return window.close();}

&lt;/SCRIPT&gt;

&lt;%
dim rs
dim cn
'***********************************************
' Aggiunta
'***********************************************
dim strDataBasePath ' Percorso del database

set rs=server.CreateObject(&quot;ADODB.RECORDSET&quot;)
set cn=server.CreateObject(&quot;ADODB.CONNECTION&quot;)

'********************************************
' Cambiare il Path del database
'********************************************
strDataBasePath = &quot;/mdb-database/E-commerce.mdb&quot;

cn.ConnectionString = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source= &quot; &amp; Server.MapPath(strDataBasePath)
cn.Open

'***********************************
' Apre il database
' rs.Source=&quot;Select * from Strutture_Aziendali&quot; &lt;&lt;&lt;-****** (OLD)
'***********************************

rs.Source=&quot;select * from Prodotti WHERE Marca = '&quot;&amp;N_Lista&amp;&quot;'&quot; 
rs.ActiveConnection = cn
rs.Open ,,0,1

IF not rs.EOF then
	rs.MoveFirst
end if

%&gt;
&lt;/HEAD&gt;
&lt;H2 align=&quot;center&quot;&gt;Lista di Nascita di : &lt;font color=&quot;#669999&quot;&gt; &lt;%=n_lista%&gt;&lt;/font&gt;&lt;BODY&gt;&lt;BR&gt;

&lt;/H2&gt;

&lt;CENTER&gt;

&lt;TABLE CLASS=formbody border=0 cellspacing=0 width=&quot;513&quot; height=&quot;461&quot;&gt;

&lt;TR CLASS=formhdr&gt;
	&lt;TD colspan=3&gt;&lt;B&gt;&amp;nbsp;Martinucci regali e ...&lt;/B&gt;&lt;/TD&gt;
	&lt;TD align=right&gt;
	&lt;a title=&quot;Torna al menu principale&quot; target=&quot;_self&quot; href=&quot;mainmenu.html&quot;&gt;&lt;img border=&quot;0&quot; src=&quot;immagini/close-px.bmp&quot; width=&quot;21&quot; height=&quot;21&quot;&gt;&lt;/a&gt;&lt;/TD&gt;
&lt;/TR&gt;

&lt;TR&gt;
&lt;TD CLASS=toolbar&gt;
&amp;nbsp;&amp;nbsp;

&lt;/TD&gt;
&lt;TD CLASS=toolbar&gt;&amp;nbsp;&lt;/TD&gt;
&lt;TD CLASS=toolbar&gt;&amp;nbsp;&lt;/TD&gt;
&lt;TD CLASS=toolbar&gt;&amp;nbsp;&lt;/TD&gt;
&lt;/TR&gt;
  &lt;TR&gt;
&lt;TD colspan=4&gt;
&lt;DIV Style=&quot;OVERFLOW: scroll; width:614px; height:620px&quot;&gt;

&lt;%

'**************************************
'Scrive l'intestazione delle colonne
'***************************************
Response.Write &quot;&lt;TABLE width=100% cellpadding=2 cellspacing=2&gt;&quot; &amp; chr(13)
Response.Write &quot;&lt;TH&gt;---&lt;/TH&gt;&quot; &amp; chr(13)
Response.Write &quot;&lt;TH&gt;Cod&lt;/TH&gt;&quot; &amp; chr(13)
Response.Write &quot;&lt;TH&gt; Articolo &lt;/TH&gt;&quot; &amp; chr(13)
Response.Write &quot;&lt;TH&gt; Descrizione&lt;/TH&gt;&quot; &amp; chr(13)
Response.Write &quot;&lt;TH&gt; Prezzo &lt;/TH&gt;&quot; &amp; chr(13)
Response.Write &quot;&lt;TH&gt; Prenotato da &lt;/TH&gt;&quot; &amp; chr(13)

while not rs.EOF 
	Response.Write &quot;&lt;TR BGCOLOR=white ID=row&quot; &amp; rs.Fields(&quot;id&quot;) &amp; &quot; onmouseover=changecolor(this.id) onmouseout=changecolorback(this.id)&gt;&quot; &amp; chr(13)
	Response.Write &quot;&lt;TD CLASS=datacell&gt;&lt;A href=# &gt;&quot; &amp; chr(13)
	Response.Write &quot; &quot; &amp; chr(13)
	Response.Write &quot;&lt;/A&gt;&lt;/TD&gt;&quot; &amp; chr(13)
	'**************************************
	' campo 1
	'**************************************
	Response.Write &quot;&lt;TD CLASS=datacell&gt;&quot; &amp; chr(13)
	Response.Write rs.Fields(1) &amp; chr(13)
	Response.Write &quot;&lt;/TD&gt;&quot; &amp; chr(13)
	'**************************************
	' campo 2
	'**************************************
	Response.Write &quot;&lt;TD CLASS=datacell&gt;&quot; &amp; chr(13)
	Response.Write rs.Fields(2) &amp; chr(13)
	Response.Write &quot;&lt;/TD&gt;&quot; &amp; chr(13)
	'**************************************
	' campo 3
	'**************************************
	Response.Write &quot;&lt;TD CLASS=datacell&gt;&quot; &amp; chr(13)
	Response.Write rs.Fields(3) &amp; chr(13)
	Response.Write &quot;&lt;/TD&gt;&quot; &amp; chr(13)
	'**************************************
	' campo 4 ////=FormatCurrency((Lista.Fields.Item(&quot;Prezzo&quot;).Value))
	'**************************************
	Response.Write &quot;&lt;TD CLASS=datacell&gt;&quot; &amp; chr(13)
	Response.Write FormatCurrency(rs.Fields(4)) &amp; chr(13)
	Response.Write &quot;&lt;/TD&gt;&quot; &amp; chr(13)
	'**************************************
	' campo 5
	'**************************************
	Response.Write &quot;&lt;TD CLASS=datacell&gt;&quot; &amp; chr(13)
	Response.Write rs.Fields(9) &amp; chr(13)
	Response.Write &quot;&lt;/TD&gt;&quot; &amp; chr(13)
	
	Response.Write &quot;&lt;/TR&gt;&quot; &amp; chr(13)
		
	rs.MoveNext
wend
Response.Write &quot;&lt;/TABLE&gt;&quot;
%&gt;
&lt;/DIV&gt;
&lt;/TD&gt;&lt;/TR&gt;
&lt;/TABLE&gt;
&lt;/CENTER&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=">Íàçàä</a>]