<form name="Password" method="post" action="confirm.asp">
<table width="100%">
<tr><td>Email:</td>
<td><input type="text" name="Email" size="50">
<input type="submit" name="Submit" value="Submit">
</td></tr></table>
</form>

<%
DIM strEmail
strEmail = Request.Form("Email")

IF strEmail <> "" THEN
%>
<!--#INCLUDE VIRTUAL="/includes/connection.asp"-->
<%
DIM mySQL, objRS
mySQL = "SELECT fEmail,fPassword FROM tblMembers WHERE fEmail = '" & strEmail & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

IF objRS.EOF THEN
Response.Write "That email address was not found in our database. Please click Back on your browser and enter the email address you registered with."
ELSE
DIM strPassword
strPassword = objRS("fPassword")

DIM mail, objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "email@yourdomain.com"
objMail.Subject = "Password"
objMail.To = strEmail
objMail.Body = "Here is your login password: " & strEmail
objMail.Send
Set objMail = nothing

Response.Write "Your password has been sent to your email address."
END IF

ELSE
Response.Write "Please click Back on your browser and enter the email address you registered with."
END IF
%>