<%@ 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 %> <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 %> <% '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 %> 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%>