Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\MarCat.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin&file=MarCat.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;%
' *** Restrict Access To Page: Grant or deny access to this page
' *** Restringa Accesso A Pagina: Grant o nega accesso a questa pagina
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;%
' *** Edit Operations: declare variables
' *** Edita Operazioni: dichiari variabili

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
' boolean per abortire record editato
MM_abortEdit = false

' query string to execute
' consulti sequenza per eseguire
MM_editQuery = &quot;&quot;
%&gt;
&lt;%
' *** Insert Record: set variables
' *** Inserisca Record: variabili fisse

If (CStr(Request(&quot;MM_insert&quot;)) = &quot;form1&quot;) Then

  MM_editConnection = MM_ecommerce_STRING
  MM_editTable = &quot;Marca&quot;
  MM_editRedirectUrl = &quot;&quot;
  MM_fieldsStr  = &quot;marca|value&quot;
  MM_columnsStr = &quot;nomeM|',none,''&quot;

  ' create the MM_fields and MM_columns arrays
  ' crei i MM_fields e gli array di MM_columns
  MM_fields = Split(MM_fieldsStr, &quot;|&quot;)
  MM_columns = Split(MM_columnsStr, &quot;|&quot;)
  
  ' set the form values
  ' mette i valori del form
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  ' aggiunge la sequenza di consultazione al reinstradi 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;%
' *** Insert Record: set variables
' ***Inserisca Record: variabili fisse

If (CStr(Request(&quot;MM_insert&quot;)) = &quot;form2&quot;) Then

  MM_editConnection = MM_ecommerce_STRING
  MM_editTable = &quot;Classe&quot;
  MM_editRedirectUrl = &quot;&quot;
  MM_fieldsStr  = &quot;categoria|value&quot;
  MM_columnsStr = &quot;Nclasse|',none,''&quot;

  ' create the MM_fields and MM_columns arrays
  ' crei i MM_fields e gli array di MM_columns  
  MM_fields = Split(MM_fieldsStr, &quot;|&quot;)
  MM_columns = Split(MM_columnsStr, &quot;|&quot;)
  
  ' set the form values
  ' mette i valori del form
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  ' aggiunge la sequenza di consultazione al reinstradi 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: declare variables
' *** Cancella Record: dichiara variabili

if (CStr(Request(&quot;MM_delete&quot;)) = &quot;form3&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_ecommerce_STRING
  MM_editTable = &quot;Marca&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
  ' aggiunge la sequenza di consultazione al reinstradi 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: declare variables
' *** Cancella Record: dichiara variabili

if (CStr(Request(&quot;MM_delete&quot;)) = &quot;form4&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_ecommerce_STRING
  MM_editTable = &quot;Classe&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
  ' aggiunge la sequenza di consultazione al reinstradi 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;%
' *** Insert Record: construct a sql insert statement and execute it
' *** Inserisce Record: costruisce un inserimento sql e lo esegue

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request(&quot;MM_insert&quot;)) &lt;&gt; &quot;&quot;) Then

  ' create the sql insert statement
  ' crea l'inserimento sql
  MM_tableValues = &quot;&quot;
  MM_dbValues = &quot;&quot;
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),&quot;,&quot;)
    MM_delim = MM_typeArray(0)
    If (MM_delim = &quot;none&quot;) Then MM_delim = &quot;&quot;
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = &quot;none&quot;) Then MM_altVal = &quot;&quot;
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = &quot;none&quot;) Then MM_emptyVal = &quot;&quot;
    If (MM_formVal = &quot;&quot;) Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal &lt;&gt; &quot;&quot;) Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = &quot;'&quot;) Then  ' escape quotes
                                    ' quote di fuga
        MM_formVal = &quot;'&quot; &amp; Replace(MM_formVal,&quot;'&quot;,&quot;''&quot;) &amp; &quot;'&quot;
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i &lt;&gt; LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues &amp; &quot;,&quot;
      MM_dbValues = MM_dbValues &amp; &quot;,&quot;
    End If
    MM_tableValues = MM_tableValues &amp; MM_columns(MM_i)
    MM_dbValues = MM_dbValues &amp; MM_formVal
  Next
  MM_editQuery = &quot;insert into &quot; &amp; MM_editTable &amp; &quot; (&quot; &amp; MM_tableValues &amp; &quot;) values (&quot; &amp; MM_dbValues &amp; &quot;)&quot;

  If (Not MM_abortEdit) Then
    ' execute the insert
    ' esegue l'inserimento
    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;%
' *** Delete Record: construct a sql delete statement and execute it
' *** Cancella Record: costruisce un comando sql per cancellare e lo esegue
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
  ' crea il comando sql cancellan
  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
    ' esegue la cancellazione
    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;%
Dim Marche
Dim Marche_numRows

Set Marche = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Marche.ActiveConnection = MM_ecommerce_STRING
Marche.Source = &quot;SELECT * FROM Marca&quot;
Marche.CursorType = 0
Marche.CursorLocation = 2
Marche.LockType = 1
Marche.Open()

Marche_numRows = 0
%&gt;
&lt;%
Dim catego
Dim catego_numRows

Set catego = Server.CreateObject(&quot;ADODB.Recordset&quot;)
catego.ActiveConnection = MM_ecommerce_STRING
catego.Source = &quot;SELECT * FROM Classe&quot;
catego.CursorType = 0
catego.CursorLocation = 2
catego.LockType = 1
catego.Open()

catego_numRows = 0
%&gt;
&lt;%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Marche_numRows = Marche_numRows + Repeat1__numRows
%&gt;
&lt;%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
catego_numRows = catego_numRows + Repeat2__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 di 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;style type=&quot;text/css&quot;&gt;
&lt;!--
.Stile5 {color: #FF0000}
--&gt;
&lt;/style&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/Modifica_lista.jpg&quot; width=&quot;249&quot; height=&quot;79&quot;&gt;&lt;/p&gt;
  &lt;p&gt;
    &lt;input name=&quot;Submit23&quot; type=&quot;button&quot; style=&quot;font-family: Verdana; font-size: 12px; 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;408&quot; border=&quot;0&quot;&gt;
    &lt;tr&gt;
      &lt;td width=&quot;402&quot;&gt;&lt;form name=&quot;form1&quot; method=&quot;POST&quot; action=&quot;&lt;%=MM_editAction%&gt;&quot;&gt;
        &lt;p align=&quot;center&quot;&gt;
        &lt;input name=&quot;marca&quot; type=&quot;text&quot; id=&quot;marca&quot; style=&quot;font-family: Verdana; font-size: 12px; border: 1px solid #C0C0C0&quot; size=&quot;20&quot;&gt;
        &lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Nuova Lista&quot; style=&quot;font-family: Verdana; font-size: 12px; border: 1px solid #C0C0C0&quot;&gt;
        &lt;input type=&quot;hidden&quot; name=&quot;MM_insert&quot; value=&quot;form1&quot;&gt;
      	&lt;/p&gt;
      &lt;/form&gt;&lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;p&gt;&amp;nbsp;&lt;/p&gt;
  &lt;p&gt;Liste Esistenti:&lt;/p&gt;
  
  &lt;% 
While ((Repeat1__numRows &lt;&gt; 0) AND (NOT Marche.EOF)) 
%&gt;
  &lt;table width=&quot;448&quot; align=&quot;center&quot; border=&quot;0&quot; class=&quot;Stile3&quot;&gt;
    &lt;tr&gt;
      &lt;td width=&quot;327&quot; &gt;&lt;div class=&quot;Stile1&quot; align=&quot;left&quot; &gt;&lt;%=(Marche.Fields.Item(&quot;nomeM&quot;).Value)%&gt;&lt;/div&gt;&lt;/td&gt;
      &lt;td width=&quot;111&quot;&gt;&lt;form name=&quot;form3&quot; method=&quot;POST&quot; action=&quot;&lt;%=MM_editAction%&gt;&quot;&gt;
          &lt;div align=&quot;left&quot;&gt;
            &lt;input type=&quot;submit&quot; name=&quot;Submit22&quot; value=&quot;Elimina&quot; style=&quot;font-family: Verdana; font-size: 12px; border: 1px solid #C0C0C0&quot;&gt;
          &lt;/div&gt;
      
                    &lt;input type=&quot;hidden&quot; name=&quot;MM_delete&quot; value=&quot;form3&quot;&gt;
          &lt;input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;&lt;%= Marche.Fields.Item(&quot;ID&quot;).Value %&gt;&quot;&gt;
      &lt;/form&gt;&lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Marche.MoveNext()
Wend
%&gt;
  &lt;p&gt;&amp;nbsp;&lt;/p&gt;
  
  &lt;% 
While ((Repeat2__numRows &lt;&gt; 0) AND (NOT catego.EOF)) 
%&gt;
  &lt;% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  catego.MoveNext()
Wend
%&gt;
  &lt;p&gt;&amp;nbsp; &lt;/p&gt;
  &lt;p class=&quot;Stile5&quot;&gt;Se viene eliminata una Lista, i menu vengono recuperati dalla tabella degli 
	articoli. &lt;br&gt;
	Eliminare definitivamente l'articolo, altrimenti la lista collegata verrà comunque visualizzata! &lt;/p&gt;
&lt;/div&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
Marche.Close()
Set Marche = Nothing
%&gt;
&lt;%
catego.Close()
Set catego = Nothing
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin">Íàçàä</a>]