Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\registrazione\recupera_password.asp</i><br><form method=post action="edit.asp?action=save&dir=\registrazione&file=recupera_password.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;%@ Language=VBScript %&gt;

&lt;!--#include file=&quot;inc_common.asp&quot; --&gt;
&lt;!--#include file=&quot;inc_viewuser.asp&quot; --&gt;
&lt;%
If Request.QueryString(&quot;step&quot;) = &quot;2&quot; Then
	Response.Redirect(&quot;recupera_password.asp?step=3&amp;userCode=&quot; &amp; getUserCode(Request.Form(&quot;username&quot;), Request.Form(&quot;email&quot;)))
ElseIf Request.QueryString(&quot;step&quot;) = &quot;3&quot; AND Request.QueryString(&quot;userCode&quot;) &lt;&gt; &quot;&quot; Then
	strFromName			= pageTitle &amp; &quot; Webmaster&quot;
	strFromEmail		= adminEmail
	strRecipientsEmail	= rs_viewuser(&quot;email&quot;)
	strRecipientsName	= rs_viewuser(&quot;nome&quot;)
	strSubject			= pageTitle &amp; &quot; Ricorda Password&quot;
	strMessage			= &quot;------------------------------------------&quot; &amp; vbCrLf &amp; _
						strRecipientsName &amp; &quot;, Le informazioni da lei richieste:&quot; &amp; vbCrLf &amp; vbCrLf &amp; _
						&quot;Username: &quot; &amp; rs_viewuser(&quot;name&quot;) &amp; vbCrLf &amp; _
						&quot;Password: &quot; &amp; rs_viewuser(&quot;pass&quot;) &amp; vbCrLf &amp; vbCrLf &amp; _
						&quot;Grazie per averci scelto,&quot; &amp; vbCrLf &amp; pageTitle &amp; &quot; Il 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 inviare l'email. Errore: &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 '## Ignore Errore
			SendOk = objNewMail.SendMail
			If not(SendOk) &lt;&gt; 0 Then 
				Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile inviare 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 inviare 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;
			     ' 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
				 
				 'Flds(cdoSendUsingMethod) = cdoSendUsingPort
				 'Flds(cdoSMTPServer) = &quot;smtp.martinucci-regali.com&quot; 
				 'Flds(cdoSMTPServerPort) = 25
				 'Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
				 'Flds.Update
				 
				 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
				'------------------------------------------------------------------------------------------------
				'Set objMessage = CreateObject(&quot;CDO.Message&quot;) 
				' Mittente
				'objMessage.Sender  = strFromEmail
				' Messaggio ----------------------------
				'objMessage.TextBody = strMessage
				' Destinatario
				'objMessage.To = strRecipientsEmail ' ERA ----------- strFromEmail 
				' Titolo della pagina + Ricorda Password
				'objMessage.Subject = strSubject 
				' Invia
				'objMessage.Send  

				With iMsg
   					Set .Configuration = iConf
   					.To = strRecipientsEmail
   					.From = strRecipientsEmail
   					.Sender = strFromEmail
   					' **********************************************
   					.Subject = &quot;Accesso creazione lista di Nascita&quot;
   					'***********************************************
   					.TextBody = strMessage  
   					.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 inviare l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
				End if
				On Error Resume Next '## Ignore Errors
				
		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 inviare 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 inviare 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;myUserName&quot;
			'objNewMail.MailServerPassword = &quot;MyPassword&quot;
			objNewMail.From = strFromEmail
			objNewMail.FromName = strFromName
			objNewMail.AddRecipient strRecipientsEmail, strRecipientsName
			objNewMail.Subject = strSubject
			objNewMail.Body = strMessage
			On Error Resume Next '## Ignore Errors
			objNewMail.Send(mailServer)
			If Err &lt;&gt; 0 Then 
				Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile inviare 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 '## Ignore Errors
			objNewMail.SendMail2
			If Err &lt;&gt; 0 Then 
				Err_Msg = Err_Msg &amp; &quot;&lt;li&gt;Impossibile inviare l'email. Errore: &quot; &amp; Err.Description &amp; &quot;&lt;/li&gt;&quot;
			End if
	End Select
	Set objNewMail = Nothing
	On Error Goto 0
	mailSent = True
ElseIf Request.QueryString(&quot;step&quot;) = &quot;3&quot; AND Request.QueryString(&quot;userCode&quot;) = &quot;&quot; Then
	mailSent = False
	emptyValue = True
Else
	mailSent = False
End If
%&gt;
&lt;% Server.Execute(&quot;header.asp&quot;) %&gt;
&lt;title&gt;&lt;%=pageTitle%&gt; - Recupera Password&lt;/title&gt;
&lt;% If mailSent = False Then %&gt;
&lt;%	If emptyValue = True 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;Combinazione Username/Email non valida&lt;/p&gt;
&lt;%	End If %&gt;
&lt;form name=&quot;pwForm&quot; method=&quot;post&quot; action=&quot;recupera_password.asp?step=2&quot;&gt;
  &lt;table width=&quot;412&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; align=&quot;center&quot;&gt;
    &lt;tr&gt;
      &lt;td height=&quot;35&quot; colspan=&quot;2&quot; align=&quot;center&quot;&gt;&lt;strong&gt;&lt;font size=&quot;5&quot;&gt;Inserisci 
        username e email&lt;/font&gt;&lt;/strong&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td colspan=&quot;2&quot; height=&quot;4&quot;&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td width=&quot;30%&quot;&gt;Username&lt;/td&gt;
      &lt;td width=&quot;70%&quot;&gt;&lt;input name=&quot;username&quot; type=&quot;text&quot; id=&quot;username&quot; size=&quot;35&quot;&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td colspan=&quot;2&quot; height=&quot;4&quot;&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td width=&quot;30%&quot;&gt;Email&lt;/td&gt;
      &lt;td width=&quot;70%&quot;&gt;&lt;input name=&quot;email&quot; type=&quot;text&quot; id=&quot;email&quot; size=&quot;50&quot;&gt;&lt;/td&gt;
    &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td colspan=&quot;2&quot; height=&quot;4&quot;&gt;&lt;/td&gt;
   &lt;/tr&gt;
    &lt;tr&gt;
      &lt;td colspan=&quot;2&quot; align=&quot;center&quot;&gt;&lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Submit&quot;&gt;
        &lt;input name=&quot;Reset&quot; type=&quot;reset&quot; id=&quot;Reset&quot; value=&quot;Reset&quot;&gt;&lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
&lt;/form&gt;
&lt;% Else %&gt;
&lt;p align=&quot;center&quot;&gt;Username e Password ti sono state inviate per email.&lt;/p&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>]