Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\registrazione\registrazione.asp</i><br><form method=post action="edit.asp?action=save&dir=\registrazione&file=registrazione.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!--METADATA TYPE=&quot;typelib&quot; UUID=&quot;CD000000-8B95-11D1-82DB-00C04FB1625D&quot; NAME=&quot;CDO for Windows 2000 Type Library&quot; --&gt;
&lt;!--METADATA TYPE=&quot;typelib&quot; UUID=&quot;00000205-0000-0010-8000-00AA006D2EA4&quot; NAME=&quot;ADODB Type Library&quot; --&gt;
&lt;!--#include file=&quot;inc_common.asp&quot; --&gt;
&lt;% Server.Execute(&quot;header.asp&quot;) %&gt;
&lt;%
If Request.QueryString(&quot;step&quot;) = 2 Then
	Dim str_db_username				'username
	Dim str_wanted_username			'richiesto username
	Dim str_new_usercode			'generare user code
	Dim int_random_number			'numero random
	Dim int_random_number_max		'valore massimo del numero randomico
	Dim int_random_number_min		'valore minimo del numero randomico
	Dim str_password				'password
	Dim rs_new_user					'Recordsheet per il nuovo utente
	Dim rs_check_username			'Recordsheet per controllare username

	'Richiamo i valori
	str_wanted_username = Request.form(&quot;username&quot;)
	str_password = Request.form(&quot;pw1&quot;)

	'Creo una nuova stringa SQL
	strSQL = &quot;SELECT * FROM tbl_authors&quot;

	'Creo un nuovo RecordSet
	set rs_check_username=Server.CreateObject(&quot;ADODB.Recordset&quot;)

	'Apro il recordset e eseguo SQL
	rs_check_username.Open strSQL,adoCon

	'Eseguo un ciclo fino alla fine
	Do While NOT rs_check_username.EOF
		'Set variable to hold a database username value
		str_db_username = rs_check_username(&quot;name&quot;)
	
		'See l'username è già inserito nel database response.Redirect(&quot;errore.asp&quot;)
		If str_db_username = str_wanted_username Then Response.Redirect(&quot;errore.asp&quot;)
	
		'passo al record successivo
		rs_check_username.MoveNext
	'Loop
	Loop

	rs_check_username.Close
	Set rs_check_username = Nothing

	new_name		= Request.form(&quot;username&quot;)
	new_email		= Request.form(&quot;email&quot;)
	new_pass		= Request.form(&quot;pw1&quot;)
	new_nome    	= Request.form(&quot;nome&quot;)
	new_cognome    	= Request.form(&quot;cognome&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_authority	= &quot;user&quot;
	new_date		= Now()
	new_code		= str_new_usercode
	'new_pagina_web	= Request.form(&quot;pagina_web&quot;)
	
	If new_name = &quot;&quot; OR new_email = &quot;&quot; OR new_pass = &quot;&quot; OR new_nome = &quot;&quot; OR new_cognome = &quot;&quot; OR new_Tel = &quot;&quot; Then
		emptyValue = True
	Else
		If Request.Form(&quot;pw1&quot;) &lt;&gt; Request.Form(&quot;pw2&quot;) Then
			badPass = True
		Else
			badPass = False
		End If
		emptyValue = False
	End If

	If emptyValue = False AND badPass = False Then
		'Creo un numero random
		Randomize
		int_random_number_Min = 1
		int_random_number_Max = 999999999
		int_random_number = Int(((int_random_number_Max-int_random_number_Min+1) * Rnd) + int_random_number_Min)
		
		'converto il numero in una stringa
		int_random_number = Cstr(int_random_number)
	
		'concateno username e il numero random
		str_new_usercode = str_wanted_username + int_random_number
	
		'Creo una nuova stringa SQL
		strsql=&quot;SELECT * FROM tbl_authors&quot;
	
		'Creo un nuovo recordset
		set rs_new_user = Server.CreateObject(&quot;ADODB.Recordset&quot;)
	
		rs_new_user.CursorType = 2
		rs_new_user.LockType = 3
	
		'apro recordsheet e eseguo la stringa SQL
		rs_new_user.open strsql,adocon
	
		'setto recordsheet e aggiungo un nuovo record
		rs_new_user.AddNew
	
		'Enter a new record into the database
		rs_new_user.Fields(&quot;name&quot;)			= new_name
		rs_new_user.Fields(&quot;email&quot;)			= new_email
		rs_new_user.Fields(&quot;pass&quot;)			= new_pass
		rs_new_user.Fields(&quot;nome&quot;)  		= new_nome
		rs_new_user.Fields(&quot;cognome&quot;)  		= new_cognome
		rs_new_user.Fields(&quot;Tel&quot;)			= new_Tel
		'rs_new_user.Fields(&quot;citta&quot;)			= new_citta
		'rs_new_user.Fields(&quot;provincia&quot;)		= new_provincia
		'rs_new_user.Fields(&quot;cap&quot;)			= new_cap
		rs_new_user.Fields(&quot;authority&quot;)		= &quot;user&quot;
		rs_new_user.Fields(&quot;dataregistrazione&quot;)	= Now
		rs_new_user.Fields(&quot;code&quot;)			= str_new_usercode
		'rs_new_user.Fields(&quot;pagina_web&quot;)	= Request.form(&quot;pagina_web&quot;)
			If conf_email = &quot;False&quot; Then
			rs_new_user.Fields(&quot;stato&quot;)	= &quot;Active&quot;
		End If	
	
		'aggiorno il recordset
		rs_new_user.Update
	
		rs_new_user.Close
		set rs_new_user = Nothing
	
		curSubFolders = &quot;&quot;
		tempArray = Split(Replace(Request.ServerVariables(&quot;URL&quot;), &quot;\&quot;, &quot;/&quot;), &quot;/&quot;)
		Dim i
		i = 0
		For each chunk in tempArray
			i = i + 1
		Next
		For j = 0 to (i-2)
			curSubFolders = curSubFolders &amp; tempArray(j) &amp; &quot;/&quot;
		Next

		If conf_email = &quot;True&quot; AND tipoMail &lt;&gt; &quot;None&quot; Then
			strFromName			= pageTitle &amp; &quot; Webmaster&quot;
			strFromEmail		= adminEmail
			strRecipientsEmail	= new_email
			strRecipientsName	= new_name
			strSubject			= pageTitle &amp; &quot; Registrazione&quot;
			strMessage			= &quot;------------------------------------------&quot; &amp; vbCrLf &amp; _
			&quot;Grazie per esserti registrato, &quot; &amp; strRecipientsName &amp; &quot;!  &quot; &amp; vbCrLf &amp; _
			&quot;Per completare la registrazione, clikka sul seguente indirizzo:&quot; &amp; vbCrLf &amp; _
			&quot;	&quot; &amp; homePage &amp; curSubFolders &amp; &quot;attivo.asp?userCode=&quot; &amp; str_new_usercode &amp; vbCrLf &amp; vbCrLf &amp; _
			&quot;Grazie,&quot; &amp; vbCrLf &amp; pageTitle &amp; &quot; Webmaster&quot;
	
			Select Case LCase(tipoMail)
				Case &quot;aspemail&quot;
					Set objNewMail = Server.CreateObject(&quot;Persits.MailSender&quot;)
					objNewMail.Host = mailServer
					objNewMail.FromName = strFromName
					objNewMail.AddReplyTo strFromEmail
					objNewMail.From = strFromEmail
					objNewMail.AddAddress strRecipientsEmail, strRecipientsName
					objNewMail.Subject = strSubject
					objNewMail.Body = strMessage
					On Error Resume Next '## Ignora Errore
					objNewMail.Send
					If Err &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
					End if
				Case &quot;aspmail&quot;
					Set objNewMail = Server.CreateObject(&quot;SMTPsvg.Mailer&quot;)
					objNewMail.FromName = strFromName
					objNewMail.FromAddress = strFromEmail
					'objNewMail.AddReplyTo = strFromEmail
					objNewMail.RemoteHost = mailServer
					objNewMail.AddRecipient strRecipientsName, strRecipientsEmail
					objNewMail.Subject = strSubject
					objNewMail.BodyText = strMessage
					On Error Resume Next '## Ignora Errore
					SendOk = objNewMail.SendMail
					If not(SendOk) &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; objNewMail.Response &amp; &quot;&lt;/li&gt;&quot;
					End if
				Case &quot;cdonts&quot;
					Set objNewMail = Server.CreateObject (&quot;CDONTS.NewMail&quot;)
					objNewMail.BodyFormat = 1
					objNewMail.MailFormat = 0
					On Error Resume Next '## Ignora Errore
					objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
					If Err &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
					End if
					On Error Resume Next '## Ignora Errore

			Case &quot;cdosys&quot;
				'Set objMessage = CreateObject(&quot;CDO.Message&quot;) 
				'objMessage.Sender  = strFromEmail
				'objMessage.TextBody = strMessage
				' INVIA mail al destinatario
				'objMessage.To = strRecipientsEmail ' ERA --- strFromEmail 
				'objMessage.Subject = strSubject 
				'objMessage.Send 
				     ' Modifica per server Aruba 26/10/2015
				 Dim iMsg
				 Dim iConf
				 Dim Flds
				 
				 
				 set iMsg = CreateObject(&quot;CDO.Message&quot;)
				 set iConf = CreateObject(&quot;CDO.Configuration&quot;)
				 Set Flds = iConf.Fields
				 
				 				 
				 With Flds
  				  	.Item(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;)      = &quot;smtp.martinucci-regali.com&quot;
  				 	.Item(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25
  				 	'.Item(&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;)  = CdoSendUsingPort
					.Item(&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;)  = 2
    			 	.Update
				 End With
				
				With iMsg
   					Set .Configuration = iConf
					
					.Sender = strFromEmail
					.TextBody = strMessage  
   					.To = strRecipientsEmail
   					' **********************************************
   					.Subject = strSubject
   					'***********************************************
   					.From = strFromEmail 'strRecipientsEmail
  					.Send
				End With
				

				' Clean up variables.
				Set iMsg = Nothing
				Set iConf = Nothing
				Set Flds = Nothing
				
				
				
				
				
				
				If Err &lt;&gt; 0 Then 
				Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
				End if
				On Error Resume Next '## Ignora Errore
					
					
					
				Case &quot;chilicdonts&quot;
					Set objNewMail = Server.CreateObject (&quot;CDONTS.NewMail&quot;)
					On Error Resume Next '## Ignora Errore
					objNewMail.Host = mailServer
					objNewMail.To = strRecipientsEmail
					objNewMail.From = strFromEmail
					objNewMail.Subject = strSubject
					objNewMail.Body = strMessage
					objNewMail.Send
					If Err &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
					End if
					On Error Resume Next '## Ignora Errore
				Case &quot;jmail&quot;
					Set objNewMail = Server.CreateObject(&quot;Jmail.smtpmail&quot;)
					objNewMail.ServerAddress = mailServer
					objNewMail.AddRecipient strRecipientsEmail
					objNewMail.Sender = strFromEmail
					objNewMail.Subject = strSubject
					objNewMail.Body = strMessage
					objNewMail.Priority = 3
					On Error Resume Next '## Ignora Errore
					objNewMail.Execute
					If Err &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
					End if
				Case &quot;jmail4&quot;
					Set objNewMail = Server.CreateObject(&quot;Jmail.Message&quot;)
					'objNewMail.MailServerUserName = &quot;mioUserName&quot;
					'objNewMail.MailServerPassword = &quot;MiaPassword&quot;
					objNewMail.From = strFromEmail
					objNewMail.FromName = strFromName
					objNewMail.AddRecipient strRecipientsEmail, strRecipientsName
					objNewMail.Subject = strSubject
					objNewMail.Body = strMessage
					On Error Resume Next '## Ignora Errore
					objNewMail.Send(mailServer)
					If Err &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
					End if
				Case &quot;smtp&quot;
					Set objNewMail = Server.CreateObject(&quot;SmtpMail.SmtpMail.1&quot;)
					objNewMail.MailServer = mailServer
					objNewMail.Recipients = strRecipientsEmail
					objNewMail.Sender = strFromEmail
					objNewMail.Subject = strSubject
					objNewMail.Message = strMessage
					On Error Resume Next '## Ignora Errore
					objNewMail.SendMail2
					If Err &lt;&gt; 0 Then 
						Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile spedire l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
					End if
			End Select
			Set objNewMail = Nothing
			On Error Goto 0
	
			
			Response.Redirect(&quot;benvenuto.asp&quot;)
		Else
			Session(&quot;tmpUN&quot;) = new_name
			Response.Redirect(&quot;login.asp?disp=login&quot;)
		End If
	End If
End If
%&gt;
&lt;!doctype html public &quot;-//w3c//dtd html 3.2//en&quot;&gt;&lt;html&gt;

&lt;head&gt;&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;SCRIPT LANGUAGE=&quot;JavaScript&quot;&gt;
			&lt;!--
				function DoSubmit(obj) {
				var nome		 = obj.nome.value;
				var cognome		 = obj.cognome.value;
				var username     = obj.username.value;
				var password     = obj.pw1.value;
				var confirmation = obj.pw2.value;
				var email        = obj.email.value;
				var Tel 		 = obj.Tel.value;
				
				var strMailFilter   = /^.+@.+\..{2,3}$/;
				var strIllegalChars = /[\(\)\&lt;\&gt;\,\;\:\\\/\*\-\+\=\&quot;\[\]]/;
				      
				var submitform = true;
				var error      = '************************* REGISTRAZIONE *************************\n\n';
				error         += ' Attenzione :   \n\n';

			if (nome.length &lt; 3 ) {
				error     += '    + Nome è un campo richiesto  \n';
				submitform = false;
				}
				if (nome.length &gt; 20 &amp;&amp; isNaN(nome) ) {
				error     += '    + Nome può essere massimo 20 caratteri  \n';
				submitform = false;
				}
				if (nome.length &gt; 1 &amp;&amp; nome.match(strIllegalChars) ) {
				error     += '    + Nome contiene caratteri non consentiti  \n';
				submitform = false;
				
				}
				
							
				if (cognome.length &lt; 1) {
				error     += '    + Cognome è un campo obbligatorio  \n';
				submitform = false;
				}
	
         		if (cognome.length &gt; 20 ) {
				error     += '    + Cognome può essere massimo 20 caratteri  \n';
				submitform = false;
				}
				if (cognome.length &gt; 1 &amp;&amp; cognome.match(strIllegalChars)) {
				error     += '    + Cognome contiene caratteri non consentiti  \n';
				submitform = false;
				}
				
				
						if (username.length &lt; 1) {
				error     += '    + Username è una campo richiesto  \n';
				submitform = false;
				}
				if (username.length &gt; 20) {
				error     += '    + Username può essere massimo 20 caratteri  \n';
				submitform = false;
				}
				if (username.length &gt; 1 &amp;&amp; username.match(strIllegalChars)) {
				error     += '    + Nome contiene caratteri non consentiti  \n';
				submitform = false;
				}
				
				if (password.length &lt; 5) {
				error     += '    + Password deve essere minimo 5 caratteri  \n';
				submitform = false;
				}
				if (password.length &gt; 20) {
				error     += '    + Password può essere massimo 20 caratteri  \n';
				submitform = false;
				}
				if (confirmation.length &lt; 1) {
				error     += '    + Conferma password è un campo obbligatorio  \n';
				submitform = false;
				}
				if (password != confirmation) {
				error     += '    + Password non è uguale  \n';
				submitform = false;
				}
				if (email.length &lt; 1) {
				error     += '    + Email è un campo obbligatorio  \n';
				submitform = false;
				}
				
				if (email.length &gt; 50) {
				error     += '    + Email è massimo 50 caratteri  \n';
				submitform = false;
				}
				if (email.length &gt; 1 &amp;&amp; email.match(strIllegalChars)) {
				error     += '    + Email contiene caratteri non consentiti  \n';
				submitform = false;
				}
				if (email.length &gt; 1 &amp;&amp; !email.match(strIllegalChars) &amp;&amp; !(strMailFilter.test(email))) {
				error     += '    + Email non è valida  \n';
				submitform = false;
				}
				
				if (Tel.length &lt; 3 ) {
				error     += '    + Telefono è un campo richiesto  \n';
				submitform = false;
				}
				if (Tel.length &gt; 50 ) {
				error     += '    + Il campo telefono può essere massimo 50 caratteri  \n';
				submitform = false;
				}
				if (Tel.length &gt; 1 &amp;&amp; Tel.match(strIllegalChars)) {
				error     += '    + Telefono contiene caratteri non consentiti  \n';
				submitform = false;
				}
				
				
				
				if (submitform) {
				obj.submit();
				}
				else {
				error += '\n************************* REGISTRAZIONE *************************\n\n';
				alert (error);
				return false;
				}
				}
				--&gt;
&lt;/script&gt;
&lt;LINK href=&quot;css/file.css&quot; type=text/css rel=stylesheet&gt;
&lt;/head&gt;

&lt;title&gt;&lt;%=pageTitle%&gt; - Registrazione&lt;/title&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/registrazione.gif&quot;&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;br&gt;
&lt;form name=&quot;registrationForm&quot; method=&quot;post&quot; action=&quot;registrazione.asp?step=2&quot; onReset=&quot;return confirm('Sei sicuro di voler cancellare tutti i dati nel form?')&quot;&gt;
  &lt;div align=&quot;center&quot;&gt; 
    &lt;center&gt;
      &lt;table width=&quot;62%&quot; border=&quot;0&quot; align=&quot;left&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; bordercolor=&quot;black&quot; style=&quot;border-collapse: collapse&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;18%&quot;&gt;&lt;b&gt; 
		  
            &lt;% If emptyValue = True AND new_nome = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Nome 
            &lt;% If emptyValue = True AND new_nome = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;nome&quot; value=&quot;&lt;%=new_nome%&gt;&quot; size=&quot;30&quot; maxlength=&quot;20&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&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 width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;b&gt; 
            &lt;% If emptyValue = True AND new_cognome = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Cognome 
            &lt;% If emptyValue = True AND new_cognome = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;cognome&quot; value=&quot;&lt;%=new_cognome%&gt;&quot; size=&quot;30&quot; maxlength=&quot;20&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&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 width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;b&gt; 
            &lt;% If emptyValue = True AND new_name = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Username 
            &lt;% If emptyValue = True AND new_name = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;username&quot; type=&quot;text&quot; value=&quot;&lt;%=new_name%&gt;&quot; size=&quot;30&quot; maxlength=&quot;20&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&quot;&gt;&lt;b&gt; 
            &lt;% If emptyValue = True AND new_pass = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Password 
            &lt;% If emptyValue = True AND new_pass = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;pw1&quot; type=&quot;password&quot; value=&quot;&quot; size=&quot;30&quot; maxlength=&quot;20&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;10&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;10&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&quot;&gt;&lt;b&gt; 
            &lt;% If emptyValue = True AND Request.Form(&quot;pw2&quot;) = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Conferma Password 
            &lt;% If emptyValue = True AND Request.Form(&quot;pw2&quot;) = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;pw2&quot; type=&quot;password&quot; value=&quot;&quot; size=30&quot; maxlength=&quot;20&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;b&gt; 
            &lt;% If emptyValue = True AND new_email = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Email 
            &lt;% If emptyValue = True AND new_email = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;email&quot; type=&quot;text&quot; value=&quot;&lt;%=new_email%&gt;&quot; size=&quot;50&quot; maxlength=&quot;50&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;b&gt; 
            &lt;% If emptyValue = True AND new_Tel = &quot;&quot; Then %&gt;
            &lt;% ' If emptyValue = True AND new_citta = &quot;&quot; Then %&gt;
            &lt;font color=&quot;#000000&quot;&gt; 
            &lt;% End If %&gt;
            Telefono/Cellulare 
            &lt;% If emptyValue = True AND new_Tel = &quot;&quot; Then %&gt;
            &lt;/font&gt; 
            &lt;% End If %&gt;
            *&lt;/b&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt; &lt;input name=&quot;Tel&quot; type=&quot;text&quot; value=&quot;&lt;%=new_Tel%&gt;&quot; size=&quot;30&quot; maxlength=&quot;50&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
          &lt;td height=&quot;8&quot;&gt;&lt;br&gt;		
		  &lt;input type=&quot;hidden&quot; name=&quot;ip&quot; value=&quot;&lt;%=Request.ServerVariables(&quot;REMOTE_ADDR&quot;)%&gt;&quot;&gt;
		   &lt;%
ip = Request.ServerVariables(&quot;REMOTE_ADDR&quot;)
response.Write(&quot;IP: &quot; &amp;ip)
%&gt;&lt;/td&gt;
          &lt;td width=&quot;82%&quot; height=&quot;8&quot; align=&quot;left&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt; 
		
          &lt;td colspan=&quot;2&quot;&gt; &lt;p&gt;&amp;nbsp;&lt;/p&gt;
            &lt;p&gt;
              &lt;input type=&quot;button&quot; value=&quot;Registrati&quot; onClick=&quot;DoSubmit(document.registrationForm)&quot;&gt;
              &lt;input type=&quot;reset&quot; value=&quot;Cancella&quot; &gt;
            &lt;/p&gt;&lt;/td&gt;
	    &lt;/tr&gt;
      &lt;/table&gt;
    &lt;/center&gt;
  &lt;/div&gt;
&lt;/form&gt;

&lt;% Server.Execute(&quot;footer.asp&quot;)%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Cregistrazione">Íàçàä</a>]