Recupera password .asp

GI89

Utente Attivo
21 Apr 2012
36
0
0
Salve,ho un hosting windows su aruba (quindi uso database ms access e .asp).Ho creato dei file in aspper la registrazione e il login,funzionano benissimo ma ho un solo problema:

Quando clicco da utente "password dimenticata" mi dice che mi ha inviato un email con i dati,questa email non arriva come mai?

Un po' di codice per voi:
Codice:
<!--#include file="inc_common.asp" -->
<!--#include file="inc_viewuser.asp" -->
<%
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
	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.Sender  = strFromEmail
				objMessage.TextBody = strMessage
				objMessage.To = strFromEmail 
				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
%>
<% Server.Execute("header.asp") %>
<title><%=pageTitle%> - Recupera Password</title>
<% If mailSent = False Then %>
<%	If emptyValue = True Then %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<p align="center">Combinazione Username/Email non valida</p>
<%	End If %>
<form name="pwForm" method="post" action="recupera_password.asp?step=2">
  <table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
      <td height="35" colspan="2" align="center"><strong><font size="5">Inserisci 
        username e email</font></strong></td>
    </tr>
    <tr>
      <td colspan="2" height="4"></td>
    </tr>
    <tr>
      <td width="30%">Username</td>
      <td width="70%"><input name="username" type="text" id="username" size="35"></td>
    </tr>
    <tr>
      <td colspan="2" height="4"></td>
    </tr>
    <tr>
      <td width="30%">Email</td>
      <td width="70%"><input name="email" type="text" id="email" size="35"></td>
    </tr>
    <tr>
      <td colspan="2" height="4"></td>
   </tr>
    <tr>
      <td colspan="2" align="center"><input type="submit" name="Submit" value="Submit">
        <input name="Reset" type="reset" id="Reset" value="Reset"></td>
    </tr>
  </table>
</form>
<% Else %>
<p align="center">Username e Password sono state spedite per email.</p>
<% End If %>
<% Server.Execute("footer.asp") %>

Posta in uscita è impostata su CDOSYS con smtp di aruba,ho provato a mettere localhost al posto del mstp ma non và ugualmente
 
Discussioni simili
Autore Titolo Forum Risposte Data
M Recupera nome file da cartella presente su pc in locale PHP 1
MarcoGrazia Creare una password Snippet Javascript 0
W Recupero password Classic ASP 16
gandalf1959 [PHP] Verifica password per accesso ad area riservata PHP 3
S [OFFRO] Rimozione o aggiunta di Password ai file PDF e opzionalmente loro modifica Offerte e Richieste di Lavoro e/o Collaborazione 2
R password per wi-fi telecamere IP Cam e Videosorveglianza 0
F [php] sicurezza password form login PHP 2
K COMPRO account email italiani con password URGENTE Vendere e Acquistare pubblicita' online 3
W [PHP] Criptare la password con Laravel PHP 1
A Cambio password utente DB Database 0
B Warning: mysql_connect(): Access denied for user 'DIREZIONE'@'81.88.55.179' (using password: YES) PHP 6
S [PHP] estrarre dati sito web protetto con username e password PHP 13
F [Javascript] Verificare la presenza di caratteri speciali in una password Javascript 3
K [PHP] Validazione email e password PHP 1
G password accesso dvr IP Cam e Videosorveglianza 0
R [WordPress] Accesso al db e verifica credenziali (password criptata) WordPress 1
Z Ip cam: password dimenticata. IP Cam e Videosorveglianza 12
ANDREA20 [PHP] Non riesco ad impostare reset password invio via email PHP 6
H Password phpMyAdmin [RISOLTO] Discussioni Varie 11
M password rubata Supporto Mr.Webmaster 0
E [PHP] Reindirizzamento pagina se la password immessa è corretta PHP 9
W [ASP] Password Login per area riservata Classic ASP 13
P [PHP] come criptare una password in un form di registrazione PHP 4
P [PHP] Confrontare due password e due email PHP 4
P verifica caratteri per email e password PHP 17
M Evitare la compilazione automatica NomeUtente e Password con Chrome PHP 2
N Reset password e remind user con Chronoforms Joomla 0
HolidaySoft.it WCF Custom Security con User e Password .NET Framework 2
D Sorgente Pagina PHP protetta da password PHP 2
J Per legge il webmaster deve dare la password al cliente? Leggi, Normative e Fisco 1
M problemino legale: farsi dare le password dai precedenti gestori del sito. Leggi, Normative e Fisco 0
felino [FileZilla] Esportare gestione siti con password in chiaro Windows e Software 16
P VBulletin password dimenticata CMS (Content Management System) 0
P Controllo password Javascript 3
L form username e password Classic ASP 4
M Decryptare password PHP 1
I username e password per il database PHP 4
M Script php login con password in scadeza ogni tre mesi PHP 2
L Gestire password utenti registrati. Quale codifica? PHP 23
F password PHP 9
R pagina protetta con più password! PHP 19
filomeni Due Login con stessa password PHP 1
N Invio password ad utenti registrati PHP 8
J Password reset messaggio di successo o di errore PHP 0
J Codeigniter password dimenticata PHP 0
A Suggerimenti gestione form con password HTML e CSS 2
S password nulla Linux e Software 2
F Problema con funzione cambia password PHP 5
K immissione password per una pagina PHP 8
leopardinoz autorizzare l'invioo di un form mediate password è possibile? PHP 25

Discussioni simili