Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Backup 02-06-2024\default_OLD_070708.asp</i><br><form method=post action="edit.asp?action=save&dir=\Backup 02-06-2024&file=default_OLD_070708.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%&gt;
&lt;!--#include file=&quot;Connections/ecommerce.asp&quot; --&gt;
&lt;% 
Dim N_Lista
N_Lista = request.cookies(&quot;Lista&quot;)
%&gt;

&lt;%
Dim marca
Dim marca_numRows

Set marca = Server.CreateObject(&quot;ADODB.Recordset&quot;)
marca.ActiveConnection = MM_ecommerce_STRING
marca.Source = &quot;SELECT DISTINCT Marca  FROM Prodotti&quot;

marca.CursorType = 0
marca.CursorLocation = 2
marca.LockType = 1
marca.Open()

marca_numRows = 0
%&gt;
&lt;%
Dim Tipo
Dim Tipo_numRows

Set Tipo = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Tipo.ActiveConnection = MM_ecommerce_STRING
Tipo.Source = &quot;SELECT DISTINCT Classe  FROM Prodotti&quot;
Tipo.CursorType = 0
Tipo.CursorLocation = 2
Tipo.LockType = 1
Tipo.Open()

Tipo_numRows = 0
%&gt;
&lt;%
if Request.QueryString(&quot;fcampo&quot;) &lt;&gt; &quot;&quot; Or Request.QueryString(&quot;fcosa&quot;) &lt;&gt; &quot;&quot; then
	Dim Prodo
	Dim Prodo_numRows

	Set Prodo = Server.CreateObject(&quot;ADODB.Recordset&quot;)
	Prodo.ActiveConnection = MM_ecommerce_STRING
'	Prodo.Source = &quot;SELECT * FROM Prodotti WHERE &quot;&amp;Request.QueryString(&quot;fcampo&quot;)&amp;&quot;='&quot;&amp;Request.QueryString(&quot;fcosa&quot;)&amp;&quot;' AND Dispo = 'Y'&quot;
	Prodo.Source = &quot;SELECT * FROM Prodotti WHERE Marca = '&amp; N_Lista' AND Dispo = 'Y'&quot;



	Prodo.CursorType = 0
	Prodo.CursorLocation = 2
	Prodo.LockType = 1
	Prodo.Open()

	Prodo_numRows = 0
end if
%&gt;
&lt;%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
marca_numRows = marca_numRows + Repeat1__numRows
%&gt;
&lt;%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
Tipo_numRows = Tipo_numRows + Repeat2__numRows
%&gt;
&lt;%
Dim Repeat3__numRows
Dim Repeat3__index

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;script language=&quot;javascript&quot;&gt;


&lt;!-- Questa è la funzione da utlilizzare per l'inserimento della password, Richiamata dal listbox --&gt;

function vai(val,campo) {
if (val!=&quot;&quot;) {
document.location.href=&quot;?az=list&amp;fcampo=&quot;+campo+&quot;&amp;fcosa=&quot;+val;
}
}
&lt;/script&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;
}
.Stile4 {color: #E5E5E5}
--&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;table border=&quot;0&quot; width=&quot;83%&quot; id=&quot;table1&quot;&gt;
	&lt;tr&gt;
		&lt;td width=&quot;212&quot;&gt;
		&lt;p align=&quot;center&quot;&gt; &lt;img border=&quot;0&quot; src=&quot;logo_73x78.jpg&quot; width=&quot;73&quot; height=&quot;78&quot;&gt;&lt;/td&gt;
		&lt;td&gt;
		&lt;p align=&quot;justify&quot;&gt;&lt;font face=&quot;Verdana&quot; size=&quot;2&quot; color=&quot;#0000FF&quot;&gt;
		L'acquisto dell'articolo prenotato può essere effettuato attraverso il 
		pagamento in contanti&lt;br&gt;
		oppure a mezzo Bonifico Bancario presso BCC di Anagni (FR) filiale di 
		Montelanico (RM)&lt;br&gt;
		&lt;b&gt;intestato a: Martinucci Luigina &amp;amp; C. s.n.c. &lt;br&gt;
		Coord. Bancarie:&amp;nbsp; &lt;br&gt;
		&lt;/b&gt;
		&lt;/font&gt;
		&lt;b&gt;&lt;font face=&quot;Verdana&quot; size=&quot;2&quot; color=&quot;#FF0000&quot;&gt;EU IBAN: IT94 R083 
		4439 2100 0000 8827 626 &lt;/font&gt;
		&lt;font face=&quot;Verdana&quot; size=&quot;2&quot; color=&quot;#0000FF&quot;&gt;&lt;br&gt;
		Tel. e FAX 06 97304143&lt;br&gt;
		&lt;/font&gt;
		&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;E-mail:&lt;/font&gt;&lt;font face=&quot;Verdana&quot; size=&quot;2&quot; color=&quot;#0000FF&quot;&gt;
		&lt;a href=&quot;mailto:martinucci@martinucci-regali.com?subject=Richiesta da Lista NASCITE&quot;&gt;
		martinucci@martinucci-regali.com&lt;/a&gt;&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
	&lt;/tr&gt;
	&lt;/table&gt;
  &lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot;&gt;
    &lt;tr&gt;
      &lt;td width=&quot;1977&quot; height=&quot;19&quot; bgcolor=&quot;#CCCCCC&quot; class=&quot;Stile3 Stile4&quot;&gt;&lt;div align=&quot;right&quot;&gt;
		&lt;a href=&quot;&quot; target=&quot;_blank&quot;&gt;&lt;b&gt;&lt;font color=&quot;#000080&quot;&gt;Martinucci regali e 
		...&amp;nbsp;&lt;/font&gt;&lt;/b&gt;&amp;nbsp; &lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;table 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 valign=&quot;top&quot;&gt;&amp;nbsp;&lt;/td&gt;
      &lt;td valign=&quot;top&quot;&gt;&amp;nbsp;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td width=&quot;200&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;150&quot; border=&quot;1&quot; align=&quot;center&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; bordercolor=&quot;#C0C0C0&quot; style=&quot;border-collapse: collapse&quot;&gt;
            &lt;tr&gt;
              &lt;td valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot;&gt;
                  &lt;tr&gt;
                    &lt;td style=&quot;border: 1px solid #EBEBEB&quot;&gt;&lt;span class=&quot;Stile1 Stile2&quot;&gt;&lt;strong&gt;Liste 
					di Nascite&lt;/strong&gt;&lt;/span&gt;&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td bgcolor=&quot;#FFFF99&quot;&gt;&lt;div align=&quot;center&quot;&gt;
						&lt;font face=&quot;Verdana&quot; size=&quot;2&quot;&gt;&lt;% response.write N_lista %&gt;&lt;br&gt;
              			&lt;/font&gt;
              &lt;select name=&quot;Marca&quot; id=&quot;Marca&quot; style=&quot;font-family:Verdana; font-size:x-small&quot; onChange=&quot;vai(this.value,'Marca')&quot;&gt;
                                &lt;option value=&quot;&quot;&gt;..:: Seleziona la lista da questo elenco ::..&lt;/option&gt;
                        &lt;% 
                           '********************************
                           ' VISUALIZZA L'ELENCO DELLE LISTE
                           ' CHE SI TROVANO NEL CAMPO MARCA
                           '********************************
							While ((Repeat1__numRows &lt;&gt; 0) AND (NOT marca.EOF)) 
						%&gt;
                            	&lt;option value=&quot;&lt;%=(marca.Fields.Item(&quot;Marca&quot;).Value)%&gt;&quot; 
                            	&lt;%if ucase(request.QueryString(&quot;fcosa&quot;))=ucase((marca.Fields.Item(&quot;Marca&quot;).Value)) then
							 		response.Write(&quot; selected&quot;) 
								end if%&gt;&gt;
									&lt;%=(marca.Fields.Item(&quot;Marca&quot;).Value)%&gt;&lt;/option&gt;	
                        &lt;% 
  								Repeat1__index=Repeat1__index+1
  								Repeat1__numRows=Repeat1__numRows-1
  								marca.MoveNext()
							Wend
						%&gt;
                      &lt;/select&gt;
                    &lt;/div&gt;&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td&gt;
					&lt;p align=&quot;center&quot;&gt;
					&lt;object classid=&quot;clsid:D27CDB6E-AE6D-11CF-96B8-444553540000&quot; id=&quot;obj1&quot; codebase=&quot;http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0&quot; border=&quot;0&quot; width=&quot;193&quot; height=&quot;39&quot;&gt;
						&lt;param name=&quot;movie&quot; value=&quot;immagini/freccia.swf&quot;&gt;
						&lt;param name=&quot;quality&quot; value=&quot;High&quot;&gt;
						&lt;embed src=&quot;immagini/freccia.swf&quot; pluginspage=&quot;http://www.macromedia.com/go/getflashplayer&quot; type=&quot;application/x-shockwave-flash&quot; name=&quot;obj1&quot; width=&quot;160&quot; height=&quot;160&quot;&gt;&lt;/object&gt;
					&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td style=&quot;border: 1px solid #EBEBEB&quot;&gt;&amp;nbsp;&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td&gt; &lt;div align=&quot;center&quot;&gt;&lt;br&gt;
                          &amp;nbsp;&lt;br&gt;
                      &lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td&gt;&amp;nbsp;&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td style=&quot;border: 1px solid #EBEBEB&quot;&gt;&lt;span class=&quot;Stile3&quot;&gt;&lt;strong&gt;Azioni:&lt;/strong&gt;&lt;/span&gt;&lt;/td&gt;
                  &lt;/tr&gt;
                  &lt;tr&gt;
                    &lt;td bgcolor=&quot;#EBEBEB&quot;&gt;&lt;div align=&quot;left&quot;&gt;&lt;span class=&quot;Stile3&quot;&gt;&lt;img src=&quot;images/carrello.gif&quot; width=&quot;14&quot; height=&quot;10&quot;&gt; &lt;a href=&quot;?az=carrList&quot;&gt;Carrello&lt;/a&gt; &lt;br&gt;
                          &lt;br&gt;
                      &lt;img src=&quot;images/home.gif&quot; width=&quot;15&quot; height=&quot;15&quot;&gt; &lt;a href=&quot;default.asp&quot;&gt;Home&lt;/a&gt; &lt;br&gt;
                      &lt;br&gt;
                      &lt;img src=&quot;images/ordine.gif&quot; width=&quot;15&quot; height=&quot;15&quot;&gt; &lt;a href=&quot;?az=ordina&quot;&gt;Ordine&lt;/a&gt;&lt;/span&gt;&lt;br&gt;
						&amp;nbsp;&lt;/div&gt;
					&lt;p&gt;&lt;span class=&quot;Stile3&quot;&gt;
                      &lt;img src=&quot;images/home.gif&quot; width=&quot;15&quot; height=&quot;15&quot;&gt; &lt;a href=&quot;../mainmenu.html&quot;&gt;ESCI&lt;/a&gt;&lt;/span&gt;&lt;/td&gt;
                  &lt;/tr&gt;
                &lt;/table&gt;
                &lt;div align=&quot;left&quot;&gt;&lt;/div&gt;              &lt;/td&gt;
            &lt;/tr&gt;
          &lt;/table&gt;      
        &lt;div align=&quot;left&quot;&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;td valign=&quot;top&quot;&gt;&amp;nbsp;&lt;/td&gt;
    &lt;/tr&gt;
&lt;/table&gt;
  &lt;p&gt;
&lt;%  
  if request.QueryString(&quot;az&quot;)=&quot;prod&quot; then%&gt;
  &lt;!--#include file=&quot;Lista/default.asp&quot; --&gt;
  
  &lt;%end if
  
  if request.QueryString(&quot;az&quot;)=&quot;list&quot; then%&gt;
  
    &lt;!--#include file=&quot;home.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if

  if request.QueryString(&quot;az&quot;)=&quot;carr&quot; then%&gt;
  
    &lt;!--#include file=&quot;Carrello/addCarrello.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if
  if request.QueryString(&quot;az&quot;)=&quot;carrList&quot; then%&gt;
  
    &lt;!--#include file=&quot;Carrello/default.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if
  if request.QueryString(&quot;az&quot;)=&quot;&quot; then%&gt;
  
    &lt;!--#include file=&quot;home.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if
    if request.QueryString(&quot;az&quot;)=&quot;ordina&quot; then%&gt;
  
    &lt;!--#include file=&quot;Ordine/formdati.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if
    if request.QueryString(&quot;az&quot;)=&quot;ricerca&quot; then%&gt;
  
    &lt;!--#include file=&quot;Ricerca/Search.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if
  
   if request.QueryString(&quot;az&quot;)=&quot;errore&quot; then%&gt;
  
    &lt;!--#include file=&quot;errore.asp&quot; --&gt;&amp;nbsp;     &lt;/p&gt;
  &lt;%end if

%&gt;
  
&lt;/body&gt;
&lt;/html&gt;
&lt;%
marca.Close()
Set marca = Nothing
%&gt;
&lt;%
Tipo.Close()
Set Tipo = Nothing
%&gt;
&lt;%if Request.QueryString(&quot;fcampo&quot;) &lt;&gt; &quot;&quot; Or Request.QueryString(&quot;fcosa&quot;) &lt;&gt; &quot;&quot; then
Prodo.Close()
Set Prodo = Nothing
end if%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBackup+02%2D06%2D2024">Íàçàä</a>]