recuperare password - da registrazione asp

serpico · 13 Mag 2008

postami il codice di recupera_password.

serpico · 13 Mag 2008

... prova a sotituire questo al tuo codice...(ovviamente lascia gli include e tutto il resto) mi ricordo di aver riscontrato anche io la stessa anomalia... le email arrivavano solo all'amministratore e non a chi le richiedeva! (salvati ovviamente il tuo di codice... caso mai il mio non dovesse funzionarti bene)

Codice:

<%
If Request.QueryString("step") = "2" Then
	Response.Redirect("recupera_password.asp?step=3&userCode=" & getUserCode(Request.Form("username"), Request.Form("email")))
ElseIf Request.QueryString("step") = "3" AND Request.QueryString("userCode") <> "" Then
MailOrder = "[email protected]" 'Indirizzo email del sito
strSender = MailOrder  	
strFromName			= pageTitle & " Webmaster"
	'strFromEmail		= adminEmail
	strRecipientsEmail	= rs_viewuser("email")
	strRecipientsName	= rs_viewuser("nome")
	strSubject			= pageTitle & " Password Reminder"
	strMessage			= "------------------------------------------" & vbCrLf & _
						strRecipientsName & ", Le informazioni da lei richieste:" & vbCrLf & vbCrLf & _
						"Username: " & rs_viewuser("name") & vbCrLf & _
						"Password: " & rs_viewuser("pass") & vbCrLf & vbCrLf & _
						"Grazie per averci scelto," & vbCrLf & pageTitle & " Webmaster"

	Select Case LCase(tipoMail)
		Case "aspemail"
			Set objNewMail = Server.CreateObject("Persits.MailSender")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
		Case "aspmail"
			Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
			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) <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & objNewMail.Response & "</li>"
			End if
		Case "cdonts"
			Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
			objNewMail.BodyFormat = 1
			objNewMail.MailFormat = 0
			On Error Resume Next '## Ignora Errore
			objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
			If Err <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
			On Error Resume Next '## Ignora Errore
			
			Case "cdosys"
				Set objMessage = CreateObject("CDO.Message") 
				objMessage.From = strSender				
				'objMessage.Sender  = strSender
				objMessage.TextBody = strMessage
				objMessage.To = strRecipientsEmail 
				objMessage.Subject = strSubject 
				objMessage.Send 
				If Err <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
				End if
				On Error Resume Next '## Ignore Errors
				
		Case "chilicdonts"
			Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
			On Error Resume Next '## Ignora Errore
		Case "jmail"
			Set objNewMail = Server.CreateObject("Jmail.smtpmail")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
		Case "jmail4"
			Set objNewMail = Server.CreateObject("Jmail.Message")
			'objNewMail.MailServerUserName = "myUserName"
			'objNewMail.MailServerPassword = "MyPassword"
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
		Case "smtp"
			Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
	End Select
	Set objNewMail = Nothing
	On Error Goto 0
	mailSent = True
ElseIf Request.QueryString("step") = "3" AND Request.QueryString("userCode") = "" Then
	mailSent = False
	emptyValue = True
Else
	mailSent = False
End If
%>

serpico · 13 Mag 2008

ueilàààààààààààà e allora?

serpico · 13 Mag 2008

Che mi dici? hai provato il mio codice?!

serpico · 15 Mag 2008

ho controllato meglio il codice e ho pensato (come ad esempio è successo a me) che potresti avere problemi su aruba e così ho apportato alcune modifiche in maniera tale da far partire sempre e comunque l'email! quindi non tener conto del codice che ti ho postato sopra e metti questo e magari se mi fai sapere (se sei vivo o morto) è ancora meglio!:

Codice:

<%
If Request.QueryString("step") = "2" Then
	Response.Redirect("recupera_password.asp?step=3&userCode=" & getUserCode(Request.Form("username"), Request.Form("email")))
ElseIf Request.QueryString("step") = "3" AND Request.QueryString("userCode") <> "" Then
MailOrder = "[email protected]" 'Indirizzo mittente ordini
strSender = MailOrder  	
strFromName			= pageTitle & " Webmaster"
	'strFromEmail		= adminEmail
	strRecipientsEmail	= rs_viewuser("email")
	strRecipientsName	= rs_viewuser("nome")
	strSubject			= pageTitle & " Password Reminder"
	strMessage			= "------------------------------------------" & vbCrLf & _
						strRecipientsName & ", Le informazioni da lei richieste:" & vbCrLf & vbCrLf & _
						"Username: " & rs_viewuser("name") & vbCrLf & _
						"Password: " & rs_viewuser("pass") & vbCrLf & vbCrLf & _
						"Grazie per averci scelto," & vbCrLf & pageTitle & " Webmaster"

	Select Case LCase(tipoMail)
		Case "aspemail"
			Set objNewMail = Server.CreateObject("Persits.MailSender")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
		Case "aspmail"
			Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
			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) <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & objNewMail.Response & "</li>"
			End if
		Case "cdonts"
			Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
			objNewMail.BodyFormat = 1
			objNewMail.MailFormat = 0
			On Error Resume Next '## Ignora Errore
			objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
			If Err <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
			On Error Resume Next '## Ignora Errore
			
			Case "cdosys"
				Set objMessage = CreateObject("CDO.Message")
				with objMessage
				.From = strSender				
				'objMessage.Sender  = strSender
				.TextBody = strMessage
				.To = strRecipientsEmail 
				.Subject = strSubject 
				.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
				.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
				.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
				.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
				.Configuration.Fields.Update
				.Send 
				end with
				If Err <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
				End if
				On Error Resume Next '## Ignore Errors
				
		Case "chilicdonts"
			Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
			On Error Resume Next '## Ignora Errore
		Case "jmail"
			Set objNewMail = Server.CreateObject("Jmail.smtpmail")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
		Case "jmail4"
			Set objNewMail = Server.CreateObject("Jmail.Message")
			'objNewMail.MailServerUserName = "myUserName"
			'objNewMail.MailServerPassword = "MyPassword"
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
		Case "smtp"
			Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
			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 <> 0 Then 
				Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
			End if
	End Select
	Set objNewMail = Nothing
	On Error Goto 0
	mailSent = True
ElseIf Request.QueryString("step") = "3" AND Request.QueryString("userCode") = "" Then
	mailSent = False
	emptyValue = True
Else
	mailSent = False
End If
%>

Autore	Titolo	Forum	Risposte	Data
	recuperare password tramite e-mail	PHP	1	25 Gen 2011
M	[Risolto] Recuperare la password con Asp	Classic ASP	43	26 Apr 2010
D	recuperare password	PHP	4	5 Apr 2005
N	Recuperare la password di amministratore di WinXP	Hardware	0	27 Lug 2004
P	Access: recuperare Indice dopo un insert into	MS Access	0	18 Nov 2023
M	recuperare credenziali di rete	Reti LAN e Wireless	0	1 Lug 2021
M	Come recuperare molteplici input form	PHP	1	31 Mag 2021
A	recuperare i dati passati nel post	PHP	1	9 Mar 2021
A	recuperare data creazione di un file	PHP	6	26 Lug 2020
R	Scorporare array e recuperare record tabella	PHP	10	8 Lug 2020
M	Recuperare valore	PHP	5	14 Gen 2020
A	[WordPress] Recuperare testo articoli da sito danneggiato	WordPress	1	15 Ott 2019
M	[PHP] Recuperare coppia con valori i valori MAX e coppia con valori MIN	PHP	26	24 Lug 2019
B	[PHP] recuperare IP dei server in load balancing [RISOLTO]	PHP	3	28 Giu 2019
M	Recuperare ID e usarlo in funzione	jQuery	2	7 Nov 2018
S	[WordPress] Recuperare l'url immagini in evidenza	WordPress	0	14 Set 2018
S	[PHP] recuperare determinato elemento con lo scraping	PHP	1	23 Ago 2018
A	[PHP] Recuperare indice per inserirlo in un'altra tabella	PHP	4	28 Mag 2018
P	[PHP] Recuperare dati da una <select>	PHP	4	10 Apr 2018
S	[PHP] recuperare dato da una tabella	PHP	4	29 Mar 2018
N	[PHP] recuperare dati da db	PHP	4	9 Feb 2018
A	[RISOLTO]Recuperare dati inviati con json tramite php	PHP	4	10 Dic 2017
F	Recuperare dati json con php	PHP	2	24 Ott 2017
F	Recuperare una stringa in formato json con php	PHP	0	23 Ott 2017
G	Recuperare dato caricato dinamicamente	jQuery	2	29 Lug 2017
S	recuperare un dato da una tabella mysql per inserirlo in una casella di input	jQuery	3	16 Apr 2017
S	recuperare il valore di un campo input cliccando sul relativo dato di una tabella	jQuery	0	18 Mar 2017
	Recuperare variabile php da javascript senza aggiornare pagina	PHP	5	7 Mar 2017
S	[PHP] Recuperare dato esatto tabella	PHP	16	13 Ago 2016
M	Come recuperare valori della riga di una tabella creata dinamicamente da un file esterno?	Javascript	11	8 Mag 2016
M	Recuperare id e nome utente loggato	PHP	0	29 Mar 2016
D	E-Commerce Recuperare dati da un sito	E-Commerce	3	23 Feb 2016
M	Recuperare valore array	Classic ASP	0	9 Ott 2015
	Recuperare i dati in una select	PHP	5	8 Lug 2015
	Recuperare ultimo ID inserito	PHP	2	13 Apr 2015
	Recuperare il valore di un attributo del div tramite ajax.	Ajax	3	7 Mar 2015
	Recuperare contenuto div	Ajax	5	22 Feb 2015
I	recuperare testo da una pagina web html	Ajax	2	16 Dic 2014
M	Recuperare valori da form	PHP	2	6 Dic 2014
	Salvare/recuperare html da un db	PHP	5	1 Dic 2014
	Recuperare i contenuti di un sito penalizzato	SEO e Posizionamento	1	12 Nov 2014
	[Windows XP] Recuperare file in Word cancellato	Windows e Software	4	10 Ott 2014
	Recuperare la stringa di un ipertesto con javascript	Javascript	1	24 Ago 2014
G	JQUERY recuperare il testo selezionato su un paragrafo	jQuery	1	25 Mag 2014
M	Recuperare dati checkbox in diverse pagine	PHP	1	12 Apr 2014
	Recuperare data e orario corrente in app Android	Sviluppo app per Android	1	20 Feb 2014
	Recuperare i crash-data della mia app Android	Sviluppo app per Android	1	20 Feb 2014
J	Recuperare variabili da php a java	Javascript	2	18 Feb 2014
	Recuperare i livelli (photoshop) da un file JPG	Photoshop	5	15 Gen 2014
P	[RISOLTO]recuperare dati da tabella	jQuery	4	30 Dic 2013

Cerca

Cerca

recuperare password - da registrazione asp

serpico

Utente Attivo

serpico

Utente Attivo

serpico

Utente Attivo

serpico

Utente Attivo

serpico

Utente Attivo

Discussioni simili