Send "Forgot password" reminder via email

G

groupie

Hi,
I'd like to know how to implement the "Forgot Password" feature on
many websites which require a login, exactly like this ebay example:
http://cgi4.ebay.com/ws/eBayISAPI.dll?UserIdRecognizerShow

I've already retrieved the users password from the database - I just
need to send it to the email address entered.

From reading many posts, I need a server-side script and rather not
use form mailto: nor use javascript on the users PC.

Any help/pointers appreciated.
 
A

Anthony Jones

groupie said:
Hi,
I'd like to know how to implement the "Forgot Password" feature on
many websites which require a login, exactly like this ebay example:
http://cgi4.ebay.com/ws/eBayISAPI.dll?UserIdRecognizerShow

I've already retrieved the users password from the database - I just
need to send it to the email address entered.

From reading many posts, I need a server-side script and rather not
use form mailto: nor use javascript on the users PC.

Any help/pointers appreciated.
Click to expand...

You are right you would never want any response going back to the client
that contained the password.

The email address should have been registered and verified as part of the
account set up and therefore held in the DB already. The email address that
you send should only be the one verified for the user account. Thus no one
can impersonate a UserID and have the password sent to a different email
address.

Having pulled the email address and password from the DB you can use the
following to send an email:-

Sub SendPassword(rsEmail, rsPassword)

Dim oMsg : Set oMsg = Server.CreateObject("CDO.Message")

oMsg.To = rsEmail
oMsg.Subject = "Your password"
oMsg.HTMLBody = "<html><body>" & rsPassword & "</body></html>"
Set oMsg.Configuration = GetConfig() 'delete if server already configured

oMsg.Send

End Sub

Function GetConfig()

Set GetConfig = Server.CreateObject("CDO.Configuration")

With GetConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"yourserver"
.Update
End With

End Function

Note that in GetConfig you need to replace "yourserver" with an SMTP server
name that your Web server can use to send email. Alternative your site may
be configured via IIS manager with these values, in which case you can
delete the GetConfig stuff altogether.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Send "Forgotted password" via email 3
can't send email 3
Forgot Password encrypted email system 1
Using actionmailer to send an email 3
sending unique links for password resets 1
Pull info from database than send that info via email? 1
How to best send email to a low volume list? 4
Send Page as Email Question 3

Members online

No members online now.
Total: 500 (members: 2, guests: 498)
Robots: 83

Forum statistics

Threads
474,083
Messages
2,570,591
Members
47,212
Latest member
RobynWiley

Latest Threads

Top