88 lines
3.0 KiB
Plaintext
88 lines
3.0 KiB
Plaintext
|
First, you will need to create your database in MS Access 97 or 2000. Name your database "membersdb.mdb". Create the table "MEMBERS" with the fields USERNAMES, EMAIL & PASSWORD. Second, create "EnterEmail.htm" to let the visitor enter their email if they are registered with your database. For this example I am using the database I created in MS Access 2000.
|
||
|
|
|
||
|
|
<!-- Begin --->
|
||
|
|
<form method="POST" action="EmaiPassword.asp">
|
||
|
|
|
||
|
|
E-mail Address:<input type="text" name="email" size="30">
|
||
|
|
|
||
|
|
<p><input type="submit" value="Send it"></p>
|
||
|
|
|
||
|
|
</form>
|
||
|
|
|
||
|
|
<!-- End --->
|
||
|
|
|
||
|
|
|
||
|
|
Finally, we are going to create the ASP file that will verify the email address in the Access database and email the password. Call the file "EmailPassword.asp"
|
||
|
|
|
||
|
|
<% ' Begin %>
|
||
|
|
<%@ LANGUAGE="VBSCRIPT" %>
|
||
|
|
|
||
|
|
<% Option Explicit %>
|
||
|
|
<%
|
||
|
|
Dim DATA_PATH, Conn, DataRecords, email, user, pass, sendmail
|
||
|
|
'Maps to database. Change to your database path.
|
||
|
|
DATA_PATH=Server.Mappath("membersdb.mdb")
|
||
|
|
' Create and intiate data connection
|
||
|
|
Set Conn = Server.CreateObject("ADODB.Connection")
|
||
|
|
Conn.ConnectionTimeout = 15
|
||
|
|
Conn.CommandTimeout = 30
|
||
|
|
Conn.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password"
|
||
|
|
Set DataRecords = Server.CreateObject("ADODB.Recordset")
|
||
|
|
email=request.form("email")
|
||
|
|
'The magic query to look for registered members in the database
|
||
|
|
DataRecords.Open "SELECT * FROM MEMBERS WHERE email = '" & email & "'", Conn, 0, 1
|
||
|
|
%>
|
||
|
|
|
||
|
|
|
||
|
|
<head>
|
||
|
|
<title>Send Password</title>
|
||
|
|
</head>
|
||
|
|
<body>
|
||
|
|
<%
|
||
|
|
'checks if email address exists in the database before sending a message.
|
||
|
|
if DataRecords.EOF then
|
||
|
|
%>
|
||
|
|
<table border="0" cellPadding="0" cellSpacing="1" width="540">
|
||
|
|
<tr>
|
||
|
|
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>Invalid
|
||
|
|
Email Address</b></font></td>
|
||
|
|
</tr>
|
||
|
|
</table>
|
||
|
|
<p><span class="text-err">We could not find</span><span class="text3b"> <%=email%></span>
|
||
|
|
<span class="text-err"> in our database.</span></p>
|
||
|
|
<% Else %>
|
||
|
|
|
||
|
|
|
||
|
|
<%
|
||
|
|
'sets variables
|
||
|
|
email = request.form("email")
|
||
|
|
'chooses username and password from database that correspond to submitted email address.
|
||
|
|
user = DataRecords.Fields("username")
|
||
|
|
pass = DataRecords.Fields("password")
|
||
|
|
Set sendmail = Server.CreateObject("CDONTS.NewMail")
|
||
|
|
'put the webmaster address here
|
||
|
|
sendmail.From = "support@yourdomain.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 = "Membership Login Information"
|
||
|
|
'This is the content of thr message.
|
||
|
|
sendmail.Body = "Per your request your account login information is: " & vbCrlf & vbCrlf _
|
||
|
|
& "Username=" & user & vbCrlf _
|
||
|
|
& "Password=" & pass & vbCrlf
|
||
|
|
'this sets mail priority.... 0=low 1=normal 2=high
|
||
|
|
sendmail.Importance = 3
|
||
|
|
sendmail.Send
|
||
|
|
%>
|
||
|
|
|
||
|
|
<p class="text2">We just sent your login information to <%=email%>.<br>
|
||
|
|
You should receive it shortly.</p>
|
||
|
|
<%
|
||
|
|
' Close Data Access Objects and free connection variables
|
||
|
|
Conn.Close
|
||
|
|
Set DataRecords = Nothing
|
||
|
|
Set Conn = Nothing
|
||
|
|
Set sendmail = Nothing
|
||
|
|
%>
|
||
|
|
<%end if%>
|