To read the article online, visit http://www.4GuysFromRolla.com/webtech/043000-1.2.shtml

Emailing Users their Forgotten Passwords, Part 2

By Eric Coffman


  • Read Part 1

  • In Part 1 we looked at creating the form where users could enter their email address to have their username/password emailed to them. In this part we will be looking at SendIt.asp, which is what actually does the work of emailing the user his or her username and password. First you need to make the database connection and declare your variables.

    <%@ LANGUAGE="VBSCRIPT" %>
    <% Option Explicit %>
    <% 
    Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail
       'Maps to database.   Change to your database path.
    DATA_PATH=Server.Mappath("users.mdb")
       ' Create and establish data connection
    Set objDC = Server.CreateObject("ADODB.Connection")
    objDC.ConnectionTimeout = 15
    objDC.CommandTimeout = 30
    objDC.Open "DBQ=" & DATA_PATH & _
               ";Driver={Microsoft Access Driver (*.mdb)}; " & _
               "DriverId=25;MaxBufferSize=8192;Threads=20;", _
               "admin", "password"
    Set objRS = Server.CreateObject("ADODB.Recordset")
    email=request.form("email")
       'you may need to adjust this to suit your database
    objRS.Open "SELECT * FROM USERS WHERE email = '" & _
               email & "'", objDC, 0, 1
    %>
    

    Next we check to see if the email address is actually in the database.

    <head>
    <title>Forgotten Password</title>
    </head>
    <body>
    <%
       'checks if email address exists in the database 
       'before sending a message.
    if objrs.EOF then
    %>
    <B><font color="red">
    There is no account for <%=email%>.
    </font></B>
    <% Else %> 
    

    Then we set create a new CDONTS mail and define all the variables that the CDONTS component needs. You will need to set the sendmail.from value. Remember, we assume that there are fields in your database for email, username and, password.

    <%
       'sets variables
    email = request.form("email")
       'chooses username and password from database that correspond
       'to submitted email address.
    user = objrs.Fields("username")
    pass = objrs.Fields("password")
    Set sendmail = Server.CreateObject("CDONTS.NewMail")
    
       'put the webmaster address here
    sendmail.From = "webmaster@yoursite.com"
    
       'The mail is sent to the address entered in the previous page.
    sendmail.To = email
    
       'Enter the subject of your mail here
    sendmail.Subject = "The Login Information You Requested"
    
       'This is the content of thr message.
    sendmail.Body = "The login Information you requested." & _
                    vbCrlf & vbCrlf & "Username=" & user & _
                    vbCrlf & "Password=" & pass & vbCrlf
                    
       'this sets mail priority.... 0=low 1=normal 2=high
    sendmail.Importance = 2
    
    sendmail.Send     'Send the email!
    %>
    

    Finally, we can show the user that a mail has been sent, and then close all the variables.

    Your login information has been mailed to <%=email%>.<br>
    You should receive it shortly.
    <%
       ' Close Data Access Objects and free DB variables
    	objDC.Close
    	Set objRS =  Nothing
    	Set objDC = Nothing
    	Set sendmail = Nothing
    %>
    <%end if%>
    

    Well, this about wraps it up! Happy Programming!

  • Read Part 1


    Attachments:

  • View the source for Forgot.asp in text format
  • View the source for SendIt.asp in text format


  • Article Information
    Article Title: Emailing Users their Forgotten Passwords, Part 2
    Article Author: Eric Coffman
    Published Date: Sunday, April 30, 2000
    Article URL: http://www.4GuysFromRolla.com/webtech/043000-1.2.shtml


    Copyright 2017 QuinStreet Inc. All Rights Reserved.
    Legal Notices, Licensing, Permissions, Privacy Policy.
    Advertise | Newsletters | E-mail Offers