Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Ricerca\search.asp</i><br><form method=post action="edit.asp?action=save&dir=\Ricerca&file=search.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;%


Set prodricer = Server.CreateObject(&quot;ADODB.Recordset&quot;)
prodricer.ActiveConnection = MM_ecommerce_STRING
prodricer.Source = &quot;SELECT * FROM Prodotti WHERE &quot;&amp;Request.QueryString(&quot;campo&quot;)&amp;&quot; LIKE '%&quot; + Request.QueryString(&quot;cosa&quot;) + &quot;%'&quot;
prodricer.CursorType = 0
prodricer.CursorLocation = 2
prodricer.LockType = 1
prodricer.Open()

prodricer_numRows = 0
%&gt;
&lt;%


Repeat1__numRows = -1
Repeat1__index = 0
prodricer_numRows = prodricer_numRows + Repeat1__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;E-commerce - Daviduccio.it&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;link href=&quot;../CSS/style.css&quot; rel=&quot;stylesheet&quot; type=&quot;text/css&quot;&gt;
&lt;script language=&quot;javascript&quot;&gt;
function svuota() {
document.form1.cosa.value=&quot;&quot;;
}
&lt;/script&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;table width=&quot;0%&quot; border=&quot;0&quot;&gt;
  &lt;tr&gt;
    &lt;td&gt;&lt;div align=&quot;center&quot; class=&quot;Stile1&quot;&gt;
      &lt;table width=&quot;560&quot; border=&quot;0&quot;&gt;
        &lt;tr&gt;
          &lt;td height=&quot;19&quot; bgcolor=&quot;#efefef&quot;&gt;&lt;div align=&quot;right&quot; class=&quot;Stile3&quot;&gt;&lt;strong&gt;Pagina di ricerca &lt;/strong&gt;&lt;/div&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt;
          &lt;td&gt;&lt;p&gt;&amp;nbsp;&lt;/p&gt;
              &lt;form name=&quot;form1&quot; method=&quot;get&quot; action=&quot;&quot;&gt;
                &lt;table border=&quot;0&quot; class=&quot;Stile3&quot;&gt;
                  &lt;tr&gt;
                    &lt;td&gt;Cerca:&lt;/td&gt;
                    &lt;td&gt;&lt;input name=&quot;cosa&quot; type=&quot;text&quot; class=&quot;Stile3&quot; id=&quot;cosa&quot; onFocus=&quot;svuota()&quot; value=&quot;&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot; size=&quot;30&quot;&gt;&lt;/td&gt;
                    &lt;td&gt;&lt;select name=&quot;campo&quot; class=&quot;Stile3&quot; id=&quot;campo&quot;&gt;
                        &lt;option value=&quot;Nome&quot; &lt;%If (Not isNull(Request.QueryString(&quot;campo&quot;))) Then If (&quot;Nome&quot; = CStr(Request.QueryString(&quot;campo&quot;))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt;&gt;Nel Nome&lt;/option&gt;
                        &lt;option value=&quot;Descrizione&quot; &lt;%If (Not isNull(Request.QueryString(&quot;campo&quot;))) Then If (&quot;Descrizione&quot; = CStr(Request.QueryString(&quot;campo&quot;))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt;&gt;Nella Descrizione&lt;/option&gt;
                        &lt;option value=&quot;Marca&quot; &lt;%If (Not isNull(Request.QueryString(&quot;campo&quot;))) Then If (&quot;Marca&quot; = CStr(Request.QueryString(&quot;campo&quot;))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt;&gt;Nella Marca&lt;/option&gt;
                        &lt;option value=&quot;Classe&quot; &lt;%If (Not isNull(Request.QueryString(&quot;campo&quot;))) Then If (&quot;Classe&quot; = CStr(Request.QueryString(&quot;campo&quot;))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt;&gt;Nella Categoria&lt;/option&gt;
                    &lt;/select&gt;&lt;/td&gt;
                    &lt;td&gt;&lt;input name=&quot;Submit&quot; type=&quot;submit&quot; class=&quot;Stile3&quot; value=&quot;Cerca&quot;&gt;&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td&gt;&amp;nbsp;&lt;/td&gt;
                    &lt;td&gt;&amp;nbsp;&lt;/td&gt;
                    &lt;td&gt;&amp;nbsp;&lt;/td&gt;
                    &lt;td&gt;&amp;nbsp;&lt;/td&gt;
                  &lt;/tr&gt;
                &lt;/table&gt;
                &lt;input name=&quot;az&quot; type=&quot;hidden&quot; id=&quot;az&quot; value=&quot;ricerca&quot;&gt;
              &lt;/form&gt;&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
      &lt;% If Not prodricer.EOF Or Not prodricer.BOF Then %&gt;
      &lt;table width=&quot;575&quot; border=&quot;0&quot; class=&quot;Stile3&quot;&gt;
        &lt;tr bgcolor=&quot;#CCCCCC&quot;&gt;
          &lt;td&gt;Nome&lt;/td&gt;
          &lt;td width=&quot;350&quot;&gt;Descrizione&lt;/td&gt;
          &lt;td&gt;Prezzo&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt;
          &lt;td&gt;&amp;nbsp;&lt;/td&gt;
          &lt;td width=&quot;350&quot;&gt;&amp;nbsp;&lt;/td&gt;
          &lt;td&gt;&amp;nbsp;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;% 
While ((Repeat1__numRows &lt;&gt; 0) AND (NOT prodricer.EOF)) 
%&gt;
        &lt;tr bgcolor=&quot;&lt;%
If (Repeat1__numRows Mod 2) Then
	Response.Write(&quot;#E0DFE3&quot;)
Else
	Response.Write(&quot;#FFFFFF&quot;)
End IF
%&gt;&quot;&gt;
          &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;?az=prod&amp;IDpr=&lt;%=(prodricer.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;fcampo=Marca&amp;fcosa=&lt;%=(prodricer.Fields.Item(&quot;Marca&quot;).Value)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&quot;&gt;&lt;strong&gt;&lt;%=(prodricer.Fields.Item(&quot;Nome&quot;).Value)%&gt;&lt;/strong&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
          &lt;td width=&quot;350&quot;&gt;&lt;div align=&quot;left&quot;&gt;&lt;%
		  des=(prodricer.Fields.Item(&quot;Descrizione&quot;).Value)
		  if len(des) &gt; 50 then
		  response.Write(mid(des,1,50)&amp;&quot;...&quot;)
		  else
		  response.Write(des)
		  end if%&gt;&lt;/div&gt;&lt;/td&gt;
          &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;%=formatcurrency((prodricer.Fields.Item(&quot;Prezzo&quot;).Value))%&gt;&lt;/div&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  prodricer.MoveNext()
Wend
%&gt;
      &lt;/table&gt;
      &lt;% End If ' end Not prodricer.EOF Or NOT prodricer.BOF %&gt;
    &lt;/div&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
prodricer.Close()
Set prodricer = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CRicerca">Íàçàä</a>]