Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\registrazione\setup.asp</i><br><form method=post action="edit.asp?action=save&dir=\registrazione&file=setup.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;!--#include file=&quot;inc_common.asp&quot; --&gt;
&lt;!--#include file=&quot;inc_checklogin.asp&quot; --&gt;
&lt;% Server.Execute(&quot;header.asp&quot;) %&gt;
&lt;%
	If str_users_authority &lt;&gt; &quot;admin&quot; Then
		Response.Redirect(&quot;noentry.asp?entryType=noAdmin&quot;)
		'Response.Write(str_users_authority)
	End If
%&gt;
&lt;%
If Request.QueryString(&quot;step&quot;) = &quot;2&quot; Then
	'Set le variabili da inserire nel database da parte di admin
	new_adminEmail			= Replace(Request.Form(&quot;adminEmail&quot;), &quot;'&quot;, &quot;''&quot;)
	new_TitoloSito			= Replace(Request.Form(&quot;TitoloSito&quot;), &quot;'&quot;, &quot;''&quot;)
	new_homePage			= Replace(Request.Form(&quot;homePage&quot;), &quot;'&quot;, &quot;''&quot;)
	new_mailHost			= Replace(Request.Form(&quot;mailHost&quot;), &quot;'&quot;, &quot;''&quot;)
	new_tipoMail			= Request.Form(&quot;tipoMail&quot;)
	new_conf_email		= Request.Form(&quot;conf_email&quot;)

	If new_adminEmail = &quot;&quot; OR new_TitoloSito = &quot;&quot; OR new_homePage = &quot;&quot; Then
		emptyValue = True
	Else
		emptyValue = False
	End If

	If emptyValue = False Then
		Set RS = Server.CreateObject (&quot;ADODB.RecordSet&quot;)
		Sql = &quot;SELECT * FROM tbl_admin&quot;
		RS.Open Sql,adoCon,2,3
		RS(&quot;adminEmail&quot;)        	= new_adminEmail
		RS(&quot;TitoloSito&quot;)    		= new_TitoloSito
		RS(&quot;homePage&quot;)				= new_homePage
		RS(&quot;mailHost&quot;)				= new_mailHost
		RS(&quot;tipoMail&quot;)				= new_tipoMail
		RS(&quot;conf_email&quot;)			= new_conf_email
		RS.Update
		RS.Close

		Response.Redirect(&quot;visualizza_profilo.asp&quot;)
	End If
End If
%&gt;

&lt;/script&gt;
&lt;title&gt;&lt;%=pageTitle%&gt; - Modificare le impostazioni&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; style=&quot;border-collapse: collapse&quot; bordercolor=&quot;#111111&quot; width=&quot;100%&quot; height=&quot;14&quot;&gt;
  &lt;tr&gt;
    &lt;td width=&quot;100%&quot; height=&quot;14&quot;&gt;
    &lt;img border=&quot;0&quot; src=&quot;images/modifica_impostazioni.gif&quot;&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;% If Request.QueryString(&quot;setup&quot;) = &quot;firstTime&quot; Then %&gt;
&lt;p&gt;Ciao, &lt;%=str_users_name%&gt;!&amp;nbsp; da questo pannello di controllo potrai modificare 
  la tua email, il server di posta...&lt;/p&gt;
&lt;% Else %&gt; &lt;br&gt;
&lt;% End If %&gt;
&lt;div align=&quot;center&quot;&gt;
  &lt;center&gt;
  &lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;3&quot; style=&quot;border-collapse: collapse&quot; bordercolor=&quot;#111111&quot; width=&quot;100%&quot;&gt;
    &lt;tr&gt;
      &lt;td width=&quot;700&quot;&gt;
     
      &lt;form action=&quot;setup.asp?step=2&quot; name=&quot;setupForm&quot; method=&quot;post&quot; &gt;
        &lt;div align=&quot;left&quot;&gt;
              &lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; style=&quot;border-collapse: collapse&quot; bordercolor=&quot;black&quot; width=&quot;100%&quot;&gt;
                &lt;tr&gt; 
                  &lt;td colspan=&quot;2&quot;&gt;I campi contrassegnati con * sono obbligatori.&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td height=&quot;8&quot; colspan=&quot;2&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt; &lt;img border=&quot;0&quot; src=&quot;images/trans.gif&quot; width=&quot;100%&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;b&gt;
                    &lt;% If emptyValue = True AND new_adminEmail = &quot;&quot; Then %&gt;
                    &lt;font color=&quot;&lt;%=errorColor%&gt;&quot;&gt;
                    &lt;% End If %&gt;
                   Email Amministratore
                    &lt;% If emptyValue = True AND new_adminEmail = &quot;&quot; Then %&gt;
                    &lt;/font&gt;
                    &lt;% End If %&gt;
                    *&lt;/b&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt; &lt;input name=&quot;adminEmail&quot; size=&quot;50&quot; maxlength=&quot;255&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(new_adminEmail) Else Response.Write(adminEmail) End If%&gt;&quot;&gt; 
                  &lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt; &lt;img border=&quot;0&quot; src=&quot;images/trans.gif&quot; width=&quot;100%&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;b&gt;Server di Posta&lt;/b&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt; &lt;input name=&quot;mailHost&quot; size=&quot;30&quot; maxlength=&quot;255&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(new_mailHost) Else Response.Write(mailServer) End If%&gt;&quot;&gt; 
                  &lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;b&gt;Sistema invio email*&lt;/b&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;select name=&quot;tipoMail&quot;&gt;
                      &lt;option value=&quot;ASPEmail&quot; &lt;%If tipoMail = &quot;ASPEmail&quot; OR new_tipoMail = &quot;ASPEmail&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      ASPEmail&lt;/option&gt;
                      &lt;option value=&quot;ASPMail&quot; &lt;%If tipoMail = &quot;ASPMail&quot; OR new_tipoMail = &quot;ASPMail&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      ASPMail&lt;/option&gt;
                      &lt;option value=&quot;CDONTS&quot; &lt;%If tipoMail = &quot;CDONTS&quot; OR new_tipoMail = &quot;CDONTS&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      CDONTS&lt;/option&gt;
					  &lt;option value=&quot;CDOSYS&quot; &lt;%If tipoMail = &quot;CDOSYS&quot; OR new_tipoMail = &quot;CDOSYS&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      CDOSYS&lt;/option&gt;
                      &lt;option value=&quot;ChiliCDONTS&quot; &lt;%If tipoMail = &quot;ChiliCDONTS&quot; OR new_tipoMail = &quot;ChiliCDONTS&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      ChiliCDONTS&lt;/option&gt;
                      &lt;option value=&quot;JMail&quot; &lt;%If tipoMail = &quot;JMail&quot; OR new_tipoMail = &quot;JMail&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      JMail&lt;/option&gt;
                      &lt;option value=&quot;JMail4&quot; &lt;%If tipoMail = &quot;JMail4&quot; OR new_tipoMail = &quot;JMail4&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      JMail4&lt;/option&gt;
                      &lt;option value=&quot;SMTP&quot; &lt;%If tipoMail = &quot;SMTP&quot; OR new_tipoMail = &quot;SMTP&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      SMTP&lt;/option&gt;
                      &lt;option value=&quot;None&quot; &lt;%If tipoMail = &quot;None&quot; OR new_tipoMail = &quot;None&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      Niente&lt;/option&gt;
                    &lt;/select&gt; &lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;b&gt;Conferma per email*&lt;/b&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;select size=&quot;1&quot; name=&quot;conf_email&quot;&gt;
                      &lt;option value=&quot;True&quot;&lt;%If conf_email = &quot;True&quot; OR new_conf_email = &quot;True&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      Yes&lt;/option&gt;
                      &lt;option value=&quot;False&quot;&lt;%If conf_email = &quot;False&quot; OR new_conf_email = &quot;False&quot; Then%&gt; selected&lt;%End If%&gt;&gt; 
                      No&lt;/option&gt;
                    &lt;/select&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;8&quot;&gt;&lt;b&gt; 
                    &lt;% If emptyValue = True AND new_TitoloSito = &quot;&quot; Then %&gt;
                    &lt;font color=&quot;&lt;%=errorColor%&gt;&quot;&gt; 
                    &lt;% End If %&gt;
                    Titolo del Sito 
                    &lt;% If emptyValue = True AND new_TitoloSito = &quot;&quot; Then %&gt;
                    &lt;/font&gt; 
                    &lt;% End If %&gt;
                    *&lt;/b&gt;&lt;/td&gt;
                  &lt;td width=&quot;58%&quot; height=&quot;8&quot;&gt; &lt;input name=&quot;TitoloSito&quot; size=&quot;30&quot; maxlength=&quot;255&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(new_TitoloSito) Else Response.Write(pageTitle) End If%&gt;&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td height=&quot;8&quot; width=&quot;42%&quot;&gt;&lt;/td&gt;
                  &lt;td height=&quot;8&quot; width=&quot;58%&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td width=&quot;42%&quot; height=&quot;23&quot;&gt;&lt;b&gt; 
                    &lt;% If emptyValue = True AND new_homePage = &quot;&quot; Then %&gt;
                    &lt;font color=&quot;&lt;%=errorColor%&gt;&quot;&gt; 
                    &lt;% End If %&gt;
                    Home Page URL 
                    &lt;% If emptyValue = True AND new_homePage = &quot;&quot; Then %&gt;
                    &lt;/font&gt; 
                    &lt;% End If %&gt;
                    *&lt;/b&gt;&lt;/td&gt;
                  &lt;td height=&quot;23&quot; width=&quot;58%&quot;&gt; 
                    &lt;input name=&quot;homePage&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(new_homePage) Else Response.Write(homePage) End If%&gt;&quot; size=&quot;30&quot; maxlength=&quot;255&quot;&gt;
                    (http://www...)&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td height=&quot;8&quot; width=&quot;42%&quot;&gt;&lt;/td&gt;
                  &lt;td height=&quot;8&quot; width=&quot;58%&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td height=&quot;8&quot; colspan=&quot;2&quot;&gt;&lt;/td&gt;
                &lt;/tr&gt;
                &lt;tr&gt; 
                  &lt;td colspan=&quot;2&quot;&gt; &lt;input type=&quot;submit&quot; value=&quot;Aggiorna&quot; name=&quot;UpdateSettingsButton&quot;&gt;
                  &lt;/td&gt;
                &lt;/tr&gt;
              &lt;/table&gt;
        &lt;/div&gt;
      &lt;/form&gt;
      &lt;!-- End inner table --&gt;&lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;/center&gt;
&lt;/div&gt;
&lt;% Server.Execute(&quot;footer.asp&quot;) %&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Cregistrazione">Íàçàä</a>]