Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\registrazione\aggiorna_profilo.asp</i><br><form method=post action="edit.asp?action=save&dir=\registrazione&file=aggiorna_profilo.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_viewuser.asp&quot; --&gt;
&lt;!--#include file=&quot;inc_checklogin.asp&quot; --&gt;


&lt;% Server.Execute(&quot;header.asp&quot;) %&gt; &lt;%
	If str_users_name = &quot;&quot; Then
		Response.Redirect(&quot;noentry.asp&quot;)
	End If
%&gt;
&lt;%
	Dim isCodeValid
	Dim str_stato, str_name

	'Creo una nuova stringa SQL
	If Request.QueryString(&quot;userCode&quot;) &lt;&gt; &quot;&quot; Then
		validateSQL = &quot;SELECT * FROM tbl_Authors WHERE code = '&quot; &amp; Request.QueryString(&quot;userCode&quot;) &amp; &quot;'&quot;
	Else
		validateSQL = &quot;SELECT * FROM tbl_Authors WHERE code = '&quot; &amp; str_code &amp; &quot;'&quot;
	End If

	'Creo un nuovo recordsheet
	Set rs_validate = Server.CreateObject (&quot;ADODB.RecordSet&quot;)

	'Apro il record sheet e eseguo SQL
	rs_validate.open validateSQL,adoCon

	'Se il codice non è valido setta isCodeValid = false
	If rs_validate.EOF _
	Or rs_validate.BOF Then
		isCodeValid = false
	Else
		isCodeValid	= true
		str_stato	= rs_validate(&quot;stato&quot;)
		str_name	= rs_validate(&quot;name&quot;)
	End If

	'Chiudo rs_validate
	set rs_validate = Nothing
%&gt;
&lt;%
If Request.QueryString(&quot;step&quot;) = &quot;2&quot; AND isCodeValid = true AND str_users_stato = &quot;Active&quot; Then
	'Setto tutte le variabili da inserire nel database
	Dim new_nome, new_cognome, new_password, new_email, new_tel, new_authority, new_stato
	new_nome    			= Request.Form(&quot;nome&quot;)
	new_cognome 			= Request.Form(&quot;cognome&quot;)
	new_password			= Request.Form(&quot;pw1&quot;)
	new_email				= Request.Form(&quot;email&quot;)
	new_tel 				= Request.Form(&quot;Tel&quot;)
	'new_citta				= Request.Form(&quot;citta&quot;)
	'new_provincia			= Request.Form(&quot;provincia&quot;)
	'new_cap					= Request.Form(&quot;cap&quot;)
	'new_pagina_web			= Request.Form(&quot;pagina_web&quot;)
	new_utentesospeso	= Request.Form(&quot;utentesospesoInput&quot;)

	If new_nome = &quot;&quot; OR new_cognome = &quot;&quot; OR new_password = &quot;&quot; OR new_email = &quot;&quot; OR new_tel = &quot;&quot; OR (Request.Form(&quot;stato&quot;) = &quot;Disabled&quot; AND Request.Form(&quot;utentesospesoInput&quot;) = &quot;&quot;) Then
		emptyValue = True
	ElseIf Request.Form(&quot;pw1&quot;) &lt;&gt; Request.Form(&quot;pw2&quot;) Then
		badPass = True
	Else
		emptyValue = False

		If Request.Form(&quot;newAuthority&quot;) &lt;&gt; &quot;&quot; Then
			new_authority	= Request.Form(&quot;newAuthority&quot;)
		Else
			new_authority	= Request.Form(&quot;authority&quot;)
		End If

		If Request.Form(&quot;userStato&quot;) &lt;&gt; &quot;&quot; Then
			new_stato = Request.Form(&quot;userStato&quot;)
		Else
			new_stato = rs_viewuser(&quot;stato&quot;)
		End If

		If Request.QueryString(&quot;userCode&quot;) &lt;&gt; &quot;&quot; AND Request.Form(&quot;userStato&quot;) &lt;&gt; &quot;&quot; Then
			tempID = Request.QueryString(&quot;userCode&quot;)
		Else
			tempID = str_code
		End If

		Set RS = Server.CreateObject (&quot;ADODB.RecordSet&quot;)
		Sql = &quot;SELECT * FROM tbl_authors WHERE code='&quot; &amp; tempID &amp; &quot;'&quot;
		RS.Open Sql,adoCon,2,3
		RS(&quot;nome&quot;)  			= new_nome
		RS(&quot;cognome&quot;)  			= new_cognome
		RS(&quot;pass&quot;)				= new_password
		RS(&quot;email&quot;)				= new_email
		RS(&quot;Tel&quot;)				= new_Tel
		' ################################
		' TOLTO CAMPI
		' #################################		
		'RS(&quot;citta&quot;)			= new_citta
		'RS(&quot;provincia&quot;) 		= new_provincia
		'RS(&quot;cap&quot;)				= new_cap
		'RS(&quot;pagina_web&quot;)		= new_pagina_web
		RS(&quot;authority&quot;)     	= new_authority
		RS(&quot;stato&quot;) 			= new_stato
		RS(&quot;utentesospeso&quot;)	= new_utentesospeso
		RS.Update
		RS.Close

		If Request.QueryString(&quot;userCode&quot;) &lt;&gt; &quot;&quot; AND str_users_authority &lt;&gt; &quot;user&quot; AND Request.QueryString(&quot;userCode&quot;) &lt;&gt; Request.Form(&quot;userCode&quot;) Then
			Response.Redirect(&quot;lista_utenti.asp&quot;)
		Else
			Response.Redirect(&quot;visualizza_profilo.asp&quot;)
		End If
	End If
End If
%&gt;
&lt;title&gt;&lt;%=pageTitle%&gt; - Aggiorna Profilo&lt;/title&gt;
&lt;% If isCodeValid = false Then %&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;p align=&quot;center&quot;&gt;User Code non valido. &lt;a href=&quot;javascript:history.go(-1)&quot;&gt;Riprova&lt;/a&gt;&lt;/p&gt;
&lt;% ElseIf str_stato = &quot;Attesa&quot; AND str_users_authority = &quot;user&quot; Then %&gt;
&lt;p align=&quot;center&quot;&gt;Il tuo account è in Attesa di conferma.&amp;nbsp; 
  Per attivare l'account controllare l'email e clikkare sul link. In caso di problemi contatta il &lt;a href=&quot;mailto:&lt;%=adminEmail%&gt;&quot;&gt;Webmaster&lt;/a&gt;.&lt;/p&gt;
&lt;% ElseIf str_stato = &quot;Disabled&quot; AND str_users_authority = &quot;user&quot; Then %&gt;
&lt;div align=&quot;center&quot;&gt;
  &lt;center&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; id=&quot;AutoNumber1&quot;&gt;
    &lt;tr&gt;
      &lt;td colspan=&quot;2&quot;&gt;
      &lt;p align=&quot;center&quot;&gt;Il tuo account è stato sospeso.&amp;nbsp; Se pensi che possa 
            essere riattivato, contatta il &lt;a href=&quot;mailto:&lt;%=adminEmail%&gt;&quot;&gt;Webmaster&lt;/a&gt;.&lt;/p&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;p align=&quot;center&quot;&gt;Il tuo account è stato sospeso:&lt;/p&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 width=&quot;25%&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
      &lt;td width=&quot;75%&quot; height=&quot;1&quot;&gt;
        &lt;ul&gt;
&lt;%
curReason = Split(str_users_utentesospeso, &quot;;&quot;)
i = 0
For Each reason In curReason
%&gt;
            &lt;li&gt;&lt;b&gt;&lt;%=curReason(i)%&gt;&lt;/b&gt;&lt;/li&gt;
&lt;%
	i = i + 1
Next
%&gt;
          &lt;/li&gt;
        &lt;/ul&gt;
      &lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
  &lt;/center&gt;
&lt;/div&gt;
&lt;% ElseIf (rs_viewuser(&quot;authority&quot;) = &quot;admin&quot; AND str_users_authority &lt;&gt; &quot;admin&quot;) or (rs_viewuser(&quot;authority&quot;) = &quot;mod&quot; AND str_users_authority = &quot;user&quot;) Then %&gt;
&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;%=str_users_name%&gt;&lt;/b&gt;!&amp;nbsp; Stai tentando 
di modificare un account con privilegi di amministratore.&amp;nbsp; Tu puoi &lt;a href=&quot;aggiorna_profilo.asp&quot;&gt;aggiornare solo il tuo profilo&lt;/a&gt;&lt;/p&gt;
&lt;% Else %&gt; &lt;script language=&quot;JavaScript&quot;&gt;
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf(&quot;?&quot;))&gt;0&amp;&amp;parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&amp;&amp;d.all) x=d.all[n]; for (i=0;!x&amp;&amp;i&lt;d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&amp;&amp;d.layers&amp;&amp;i&lt;d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x &amp;&amp; d.getElementById) x=d.getElementById(n); return x;
}
function checkutentesospeso(obj)
{
	if(obj.selectedIndex==2)
	{
		MM_findObj('utentesospesoText', document).innerHTML = &quot;&lt;b&gt;Ragione per la sospensione dell'account*&lt;/b&gt;&quot;;
		MM_findObj('utentesospesoInputDiv', document).innerHTML = &quot;&lt;textarea name='utentesospesoInput' rows='3' cols='25'&gt;&quot; + document.updateForm.utentesospesoHidden.value + &quot;&lt;/textarea&gt;&quot;;
	}
	else
	{
		if(document.updateForm.utentesospesoInput != null)
		{
			document.updateForm.utentesospesoHidden.value = document.updateForm.utentesospesoInput.value;
		}
		MM_findObj('utentesospesoText', document).innerHTML = &quot;&quot;;
		MM_findObj('utentesospesoInputDiv', document).innerHTML = &quot;&quot;;
	}
}
&lt;/script&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_prifilo.gif&quot;&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;br&gt;
&lt;form action=&quot;aggiorna_profilo.asp?step=2&lt;% If Request.QueryString(&quot;userCode&quot;) &lt;&gt; &quot;&quot; Then Response.Write(&quot;&amp;userCode=&quot; &amp; Request.QueryString(&quot;userCode&quot;)) End If %&gt;&quot; name=&quot;updateForm&quot; method=&quot;post&quot;&gt;
  &lt;input type=&quot;hidden&quot; value=&quot;&lt;%=str_code%&gt;&quot; name=&quot;userCode&quot;&gt;
  &lt;input type=&quot;hidden&quot; name=&quot;authority&quot; value=&quot;&lt;%=rs_viewuser(&quot;authority&quot;)%&gt;&quot;&gt;
  &lt;input type=&quot;hidden&quot; name=&quot;utentesospesoHidden&quot; value=&quot;&lt;%If rs_viewuser(&quot;utentesospeso&quot;) &lt;&gt; &quot;&quot; Then Response.Write(Replace(rs_viewuser(&quot;utentesospeso&quot;), &quot;''&quot;, &quot;'&quot;)) End If%&gt;&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;% If emptyValue = True Then %&gt;
      &lt;tr&gt; 
        &lt;td colspan=&quot;2&quot;&gt; &lt;div align=&quot;center&quot;&gt; Alcuni campi richiesti, sono vuoti.&amp;nbsp;&lt;/div&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;% If new_stato = &quot;Disabled&quot; AND new_utentesospeso = &quot;&quot; Then %&gt;
      &lt;tr&gt; 
        &lt;td colspan=&quot;2&quot;&gt; &lt;div align=&quot;center&quot;&gt; Specifica una ragione per sospendere 
            un account.&lt;/div&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;% End If %&gt;
      &lt;% End If %&gt;
      &lt;% If badPass = True Then %&gt;
      &lt;tr&gt; 
        &lt;td colspan=&quot;2&quot;&gt; &lt;div align=&quot;center&quot;&gt; &lt;font color=&quot;#33cc33&quot;&gt;&lt;b&gt;Le password 
            devono essere uguali&lt;/b&gt;&lt;/font&gt;&lt;/div&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;% End If %&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;I campi 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 height=&quot;8&quot; colspan=&quot;2&quot;&gt;&lt;center&gt;
            &lt;p&gt;Ciao, &lt;b&gt;&lt;%=rs_viewuser(&quot;name&quot;)%&gt;&lt;/b&gt;&lt;/p&gt;
          &lt;/center&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt; &lt;img border=&quot;0&quot; src=&quot;images/trans.gif&quot; width=&quot;250&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;b&gt; 
          &lt;%If emptyValue = True AND new_nome = &quot;&quot; Then Response.Write(&quot;&lt;font color=&quot;&quot;&quot; &amp; errorColor &amp; &quot;&quot;&quot;&gt;Nome&lt;/font&gt;&quot;) Else Response.Write(&quot;Nome&quot;) End If%&gt;
          *&lt;/b&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt; &lt;input name=&quot;nome&quot; size=&quot;30&quot; maxlength=&quot;20&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(Request.Form(&quot;Nome&quot;)) Else Response.Write(rs_viewuser(&quot;nome&quot;)) End If%&gt;&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;b&gt; 
          &lt;%If emptyValue = True AND new_cognome = &quot;&quot; Then Response.Write(&quot;&lt;font color=&quot;&quot;&quot; &amp; errorColor &amp; &quot;&quot;&quot;&gt;Nome&lt;/font&gt;&quot;) Else Response.Write(&quot;Cognome&quot;) End If%&gt;
          *&lt;/b&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt; &lt;input name=&quot;cognome&quot; size=&quot;30&quot; maxlength=&quot;20&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(Request.Form(&quot;Cognome&quot;)) Else Response.Write(rs_viewuser(&quot;cognome&quot;)) End If%&gt;&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;b&gt; 
          &lt;%If emptyValue = True AND new_password = &quot;&quot; OR badPass = True Then Response.Write(&quot;&lt;font color=&quot;&quot;&quot; &amp; errorColor &amp; &quot;&quot;&quot;&gt;Password&lt;/font&gt;&quot;) Else Response.Write(&quot;Password&quot;) End If%&gt;
          *&lt;/b&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt; &lt;input type=&quot;password&quot; name=&quot;pw1&quot; size=&quot;30&quot; maxlength=&quot;20&quot; value=&quot;&lt;%If emptyValue = True OR badPass = True Then Response.Write(Request.Form(&quot;pass&quot;)) Else Response.Write(rs_viewuser(&quot;pass&quot;)) End If%&gt;&quot; &lt;%If str_users_authority &lt;&gt; &quot;admin&quot; AND str_users_name &lt;&gt; rs_viewuser(&quot;name&quot;) Then%&gt; disabled&lt;%End If%&gt;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;b&gt; 
          &lt;%If emptyValue = True AND new_password = &quot;&quot; OR badPass = True Then Response.Write(&quot;&lt;font color=&quot;&quot;&quot; &amp; errorColor &amp; &quot;&quot;&quot;&gt;Conferma Password&lt;/font&gt;&quot;) Else Response.Write(&quot;Conferma Password&quot;) End If%&gt;
          *&lt;/b&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt; &lt;input type=&quot;password&quot; name=&quot;pw2&quot; size=&quot;30&quot; maxlength=&quot;20&quot; value=&quot;&lt;%If emptyValue = True OR badPass = True Then Response.Write(Request.Form(&quot;pass&quot;)) Else Response.Write(rs_viewuser(&quot;pass&quot;)) End If%&gt;&quot; &lt;%If str_users_authority &lt;&gt; &quot;admin&quot; AND str_users_name &lt;&gt; rs_viewuser(&quot;name&quot;) Then%&gt; disabled&lt;%End If%&gt;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;b&gt; 
          &lt;%If emptyValue = True AND new_email = &quot;&quot; Then Response.Write(&quot;&lt;font color=&quot;&quot;&quot; &amp; errorColor &amp; &quot;&quot;&quot;&gt;Email&lt;/font&gt;&quot;) Else Response.Write(&quot;Email&quot;) End If%&gt;
          *&lt;/b&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt; &lt;input type=&quot;text&quot; name=&quot;email&quot; size=&quot;50&quot; maxlength=&quot;50&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(Request.Form(&quot;email&quot;)) Else Response.Write(rs_viewuser(&quot;email&quot;)) End If%&gt;&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;b&gt; 
          &lt;%If emptyValue = True AND new_Tel = &quot;&quot; Then Response.Write(&quot;&lt;font color=&quot;&quot;&quot; &amp; errorColor &amp; &quot;&quot;&quot;&gt;Tel./Cell.&lt;/font&gt;&quot;) Else Response.Write(&quot;Tel&quot;) End If%&gt;
          *&lt;/b&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt; &lt;input type=&quot;text&quot; name=&quot;Tel&quot; size=&quot;30&quot; maxlength=&quot;50&quot; value=&quot;&lt;%If emptyValue = True Then Response.Write(Request.Form(&quot;Tel&quot;)) Else Response.Write(rs_viewuser(&quot;Tel&quot;)) End If%&gt;&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;% If str_users_authority = &quot;admin&quot; AND rs_viewuser(&quot;authority&quot;) &lt;&gt; &quot;admin&quot; Then %&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;b&gt;Autorizzazione *&lt;/b&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt; &lt;select size=&quot;1&quot; name=&quot;newauthority&quot; &gt;
            &lt;option value=&quot;mod&quot; &lt;% If rs_viewuser(&quot;authority&quot;)=&quot;mod&quot; OR Request.Form(&quot;authority&quot;)=&quot;mod&quot; Then Response.Write(&quot; selected&quot;) End If%&gt;&gt; 
            Moderatore&lt;/option&gt;
            &lt;option value=&quot;user&quot; &lt;% If rs_viewuser(&quot;authority&quot;)=&quot;user&quot; OR Request.Form(&quot;authority&quot;)=&quot;user&quot; Then Response.Write(&quot; selected&quot;) End If%&gt;&gt; 
            User&lt;/option&gt;
          &lt;/select&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;b&gt;Stato*&lt;/b&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt; &lt;select size=&quot;1&quot; name=&quot;userStato&quot; id=&quot;userStato&quot; onChange=&quot;checkutentesospeso(this)&quot;&gt;
            &lt;option value=&quot;Active&quot; &lt;%If rs_viewuser(&quot;stato&quot;)=&quot;Active&quot; OR Request.Form(&quot;stato&quot;)=&quot;Active&quot; Then Response.Write(&quot; selected&quot;) End If%&gt;&gt; 
            Active&lt;/option&gt;
            &lt;option value=&quot;Attesa&quot; &lt;%If rs_viewuser(&quot;stato&quot;)=&quot;Attesa&quot; OR Request.Form(&quot;stato&quot;)=&quot;Attesa&quot; Then Response.Write(&quot; selected&quot;) End If%&gt;&gt; 
            Attesa&lt;/option&gt;stato
            &lt;option value=&quot;Disabled&quot; &lt;%If rs_viewuser(&quot;stato&quot;)=&quot;Disabled&quot; OR Request.Form(&quot;stato&quot;)=&quot;Disabled&quot; Then Response.Write(&quot; selected&quot;) End If%&gt;&gt; 
            Sospeso&lt;/option&gt;
          &lt;/select&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td height=&quot;8&quot; width=&quot;355&quot;&gt;&lt;/td&gt;
        &lt;td height=&quot;8&quot; width=&quot;622&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;tr&gt; 
        &lt;td width=&quot;355&quot;&gt; &lt;div id=&quot;utentesospesoText&quot;&gt; 
            &lt;%If rs_viewuser(&quot;stato&quot;)=&quot;Disabled&quot; Then%&gt;
            &lt;b&gt;Ecco perchè il tuo account è stato sospeso*&lt;/b&gt;&lt;/div&gt;
          &lt;%End If%&gt;
        &lt;/td&gt;
        &lt;td width=&quot;622&quot;&gt; &lt;div id=&quot;utentesospesoInputDiv&quot;&gt; 
            &lt;%If rs_viewuser(&quot;stato&quot;)=&quot;Disabled&quot; Then%&gt;
            &lt;textarea name=&quot;utentesospesoInput&quot; rows=&quot;3&quot; cols=&quot;25&quot;&gt;&lt;%If emptyValue = True Then Response.Write(Request.Form(&quot;utentesospesoInput&quot;)) Else Response.Write(rs_viewuser(&quot;utentesospeso&quot;)) End If%&gt;&lt;/textarea&gt;
            &lt;%End If%&gt;
          &lt;/div&gt;&lt;/td&gt;
      &lt;/tr&gt;
      &lt;% End If %&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;UpdateProfile&quot;&gt; 
        &lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;
  &lt;/div&gt;
&lt;/form&gt;
&lt;% End If %&gt; &lt;% Server.Execute(&quot;footer.asp&quot;) %&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Cregistrazione">Íàçàä</a>]