Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\home.asp</i><br><form method=post action="edit.asp?action=save&dir=&file=home.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%
Set marca = Server.CreateObject(&quot;ADODB.Recordset&quot;)
marca.ActiveConnection = MM_ecommerce_STRING
marca.Source = &quot;SELECT DISTINCT Marca  FROM Prodotti ORDER BY marca ASC&quot;
marca.CursorType = 0
marca.CursorLocation = 2
marca.LockType = 1
marca.Open()

marca_numRows = 0
%&gt;

&lt;%
'**************************************************
if N_lista &lt;&gt; &quot;&quot;  then

		Set Prodo = Server.CreateObject(&quot;ADODB.Recordset&quot;)
		Prodo.ActiveConnection = MM_ecommerce_STRING
		Prodo.Source = &quot;SELECT * FROM Prodotti WHERE Marca = '&quot;&amp;N_Lista&amp;&quot;' AND Dispo = 'Y'&quot;

		Prodo.CursorType = 0
		Prodo.CursorLocation = 2
		Prodo.LockType = 1
		Prodo.Open()

		Prodo_numRows = 0
END IF
'***************************************************************
%&gt;
&lt;%


Repeat1__numRows = -1
Repeat1__index = 0
marca_numRows = marca_numRows + Repeat1__numRows
%&gt;

&lt;%


Repeat3__numRows = -1
Repeat3__index = 0
Prodo_numRows = Prodo_numRows + Repeat3__numRows
%&gt;
&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot; &quot;http://www.w3.org/TR/html4/loose.dtd&quot;&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Liste di Nascite - Martinucci regali e ...&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;style type=&quot;text/css&quot;&gt;
&lt;!--
.Stile1 {font-family: verdana}
.Stile2 {font-size: x-small}
.Stile3 {font-family: verdana; font-size: x-small; }
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #000000;
}
a:active {
	text-decoration: none;
	color: #000000;
}
--&gt;
&lt;/style&gt;
&lt;/head&gt;
&lt;body topmargin=&quot;0&quot; leftmargin=&quot;0&quot; rightmargin=&quot;0&quot; bottommargin=&quot;0&quot;&gt;
&lt;div align=&quot;center&quot;&gt;
  &lt;table height=&quot;285&quot; border=&quot;0&quot; align=&quot;left&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; bordercolor=&quot;#000000&quot;&gt;
  &lt;tr&gt;
    &lt;td height=&quot;266&quot; valign=&quot;top&quot;&gt;&lt;span class=&quot;Stile3&quot;&gt;&lt;strong&gt;
      &lt;%if N_Lista &lt;&gt; &quot;&quot; then%&gt;
      &lt;/strong&gt;&lt;/span&gt;      &lt;table width=&quot;501&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot;&gt;
      &lt;tr&gt;
          &lt;td width=&quot;599&quot; height=&quot;19&quot; bgcolor=&quot;#efefef&quot;&gt;&lt;div align=&quot;center&quot;&gt;
			&lt;span class=&quot;Stile3&quot;&gt;&lt;strong&gt;&amp;nbsp;&lt;font face=&quot;Verdana&quot;&gt;&lt;font color=&quot;#0000FF&quot;&gt;...:::&lt;/font&gt;&lt;font color=&quot;#FF0000&quot;&gt;
			&lt;/font&gt;&lt;/font&gt; 
        &lt;/strong&gt;&lt;/span&gt;&lt;b&gt;&lt;font color=&quot;#FF0000&quot;&gt;&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;Clicca sull'immagine per 
		vedere l'articolo in dettaglio &lt;/font&gt;&lt;/font&gt;
			&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;&lt;font color=&quot;#0000FF&quot;&gt;:::...&lt;/font&gt;&lt;/font&gt;&lt;/b&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;/table&gt;
      &lt;span class=&quot;Stile3&quot;&gt;&lt;strong&gt;
        &lt;%end if%&gt;
        &lt;/strong&gt;&lt;/span&gt;
	    &lt;table border=&quot;0&quot;&gt;
            &lt;tr&gt;
              &lt;td&gt;&amp;nbsp;&lt;/td&gt;
            &lt;/tr&gt;
        &lt;/table&gt;	  
		&lt;%if N_lista &lt;&gt; &quot;&quot; then%&gt;
		&lt;%
numero_riga = 0
While ((Repeat3__numRows &lt;&gt; 0) AND (NOT Prodo.EOF)) 
%&gt;
&lt;%
numero_riga = numero_riga+1
ci=(Prodo.Fields.Item(&quot;Foto&quot;).Value)
if ci &lt;&gt; &quot;&quot; then
	fotina=&quot;Admin/ImagesProd/&quot;&amp;(Prodo.Fields.Item(&quot;Foto&quot;).Value)
else 
	fotina=&quot;Admin/ImagesProd/nd.jpg&quot;
end if
descpro=mid((Prodo.Fields.Item(&quot;Descrizione&quot;).Value),1,300)&amp;&quot;.....&quot;
art_prezzo = FormatCurrency((Prodo.Fields.Item(&quot;Prezzo&quot;).Value),2)&amp;&quot; &quot;
%&gt;&lt;%
If (Repeat3__numRows Mod 2) Then
	col=&quot;#f0f0f0&quot;
	col2=&quot;#c0c0c0&quot;
Else
	col=&quot;#e5e5e5&quot;
	col2=&quot;#c0c0c0&quot;
End IF
%&gt;
      &lt;table width=&quot;501&quot; height=&quot;51&quot; border=&quot;0&quot; class=&quot;Stile3&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
        &lt;tr&gt;
          &lt;td width=&quot;84&quot; bgcolor=&quot;&lt;%=col%&gt;&quot; style=&quot;border-left: 1px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; &quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;br&gt;
                &lt;a href=&quot;?az=prod&amp;IDpr=&lt;%=(Prodo.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;fcampo=Marca&amp;fcosa=&lt;%=N_lista%&gt;&quot;&gt;&lt;img src=&quot;&lt;%=fotina%&gt;&quot; alt=&quot;&quot; width=&quot;70&quot; height=&quot;50&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;br&gt;
                &lt;b&gt;
                &lt;%=art_prezzo%&gt;&lt;/b&gt;&lt;br&gt;
          &lt;/div&gt;&lt;/td&gt;
          &lt;td width=&quot;6&quot; bgcolor=&quot;&lt;%=col%&gt;&quot; style=&quot;border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; &quot;&gt;&lt;div align=&quot;left&quot;&gt;  &lt;br&gt;
          &lt;/div&gt;&lt;/td&gt;
          &lt;td width=&quot;411&quot; valign=&quot;top&quot; bgcolor=&quot;&lt;%=col%&gt;&quot; style=&quot;border-right: 1px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; &quot;&gt;&lt;div align=&quot;left&quot;&gt;
          &lt;a href=&quot;?az=prod&amp;IDpr=&lt;%=(Prodo.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;fcampo=Marca&amp;fcosa=&amp;N_lista&quot;&gt;&lt;b&gt;&lt;%=Prodo(&quot;Nome&quot;)%&gt;&lt;/b&gt;&lt;br&gt;
          &lt;br&gt;&lt;%=descpro%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
      &lt;% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Prodo.MoveNext()
Wend
%&gt;      &lt;table width=&quot;501&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; style=&quot;border-left: 0px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom: 0px solid #C0C0C0; &quot;&gt;
        &lt;tr&gt;
          &lt;td&gt;&amp;nbsp;&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
      
        &lt;div align=&quot;center&quot;&gt;
		&lt;% If numero_riga = 0 then %&gt;       
              	&lt;font face=&quot;Verdana&quot; size=&quot;5&quot;&gt;&lt;b&gt;&lt;font color=&quot;#0000FF&quot;&gt;La Lista è stata completata&lt;/font&gt;&lt;/b&gt;&lt;br&gt;
			&lt;/font&gt;
          &lt;img border=&quot;0&quot; src=&quot;images/baby.jpg&quot; width=&quot;380&quot; height=&quot;276&quot;&gt;
			&lt;%end if%&gt;           
          &lt;%end if%&gt;
          &lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;
&lt;/div&gt;
&lt;/body&gt;
&lt;/html&gt;

</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=">Íàçàä</a>]