Salve o fatto una ricerca nel forum ma non o trovato una risposta che mi possa aiutare.
O costruito una pagina in asp , dove si può richiedere l' invio della password dimenticata via Email.
Nelle prove non mi da nessun tipo di errore , inserisco l'indirizzo Email invio la richiesta e mi manda alla pagina password inviata, ma in effetti non arriva nulla, posto il codice per vedere se qualcuno può trovare l'errore.
<%
invia = Request.QueryString("invia")
email = Request.Form("email")
If invia = "PWD" Then ' recupero querystring PWD
If email <> "" Then ' controllo campo e-mail
'Apro la connessione al database e verifico che l'utente esista
strConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/Gestione.mdb ")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = strConnect
Rs.Source = "SELECT * FROM Utenti WHERE Email = '"&email&"'"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
If NOT Rs.EOF Then
User= (Rs.Fields.Item("Username").Value)
Password = (Rs.Fields.Item("Password").Value)
' esiste
'_________________________________________________ _________________________________
' configurazione mail
' Windows XP / 2003
cSmtpServer = "localhost"
cSmtpPort = "25"
cSMTPUser = "WA_xxxxx"
cSMTPPassword = "xxxxxxxxx"
' invio e-mail di notifica
Set myMail = Server.CreateObject("CDO.Message")
'CDO Port (1=localhost 2=network)
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Out going SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= cSmtpServer
'SMTP port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= cSmtpPort
'SMTP Server password
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/c-do/configuration/sendpassword") = cSMTPPassword
'SMTP Server username
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/c-do/configuration/senduser") = cSMTPUser
'Timeout
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'Update
myMail.Configuration.Fields.Update
' Windows XP / 2003
' oggetto
myMail.Subject = "Password dimenticata"
' mittente
myMail.From = "redazione@xxxxxxxxxxx.eu"
' destinatario
myMail.To = email
' messaggio
myMail.HTMLBody = "Ciao " & verifica("Username") & ", la tua Password e " & verifica("Password")
' send
myMail.Send
Set myMail = Nothing
' confermo e redirect
Response.Write("Password inviata all'indirizzo " + email)
Response.Write("
Ti consiglio una curetta di fosforo!")
'_________________________________________________ _________________________________
Else
' non esiste
Response.Write("<font color='#FF0000'>Email non presente, non sei registrato... muori!</form>")
End If
' chiudo e distruggo tutto
Rs.Close
Set Rs = Nothing ' chiudo il recordset
Else ' e-mail vuota
' Se non viene inerito alcun indirizzo email restituisco un messaggio di errore
Response.Write("<font color=#FF0000>Email errata... non te ne sei accorto!</form>")
End If ' chiudo controllo e-mail
End If ' chiudo tutto
%>
spero che qualcuno trovi l'inghippo
grazie
Rispondi quotando
