<%@Language="VBScript"%>
<%Response.Buffer=True%>
<%
'Response.AddHeader "pragma","no-cache"
'Response.AddHeader "cache-control","private"
'Response.CacheControl = "no-cache"
%>
<%
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open MM_connMembership_STRING
%>
<%
if request.form("Passwd") = "1" then
SQL = "SELECT * FROM member WHERE Email = '" & Request("Email") & "'"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, objConn, 3, 1
if not RS.eof then
fromName = COMPANY
from = SUPPORT
rcpt = Request("Email")
subject = "BizEXCEL - Forgot Password"
Message = "Your password is " & RS("Password") & vbCrLf
call sendMail(fromName, from, rcpt, subject, message)
end if
RS.close()
set RS = nothing
response.redirect "rta_login.asp?msg=" & Server.URLEncode("Your password has been sent to your e-mail address.")
end if
%>