<% if LEN(request("email")) > 50 then response.Redirect("ForgottenPassword.asp") end if Session("PostLogin") = "SysApp/Professional Development Center/" strEmail = GetVal(request("email"), NULL, TRUE) bFound = FALSE strMsg = "" if len(strEmail) > 0 then ' Read for Member in vwMemberLogin Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT email,username,password FROM tbl_Customer WHERE email LIKE '%" & strEmail & "%'" rs.Open sql,strConnect if NOT(rs.EOF) then 'Member found strEmail = rs("email") strPass = rs("password") strCustnum = rs("username") bFound = TRUE end if rs.Close Set rs = Nothing if (bFound) then mTo = strEmail mFrom = "nacva1@nacva.com" sBody = "" sBody = sBody & "Please login at http://www.nacva.com/no_log_in.asp
" sBody = sBody & "Member/Customer Number: " & strCustnum & "
" sBody = sBody & "Password: " & strPass & "
" 'SendMail(mTo, mCC, mBCC, mFrom, mSubject, mBody, mAttachment, mHTML, mlog) bSend = SendMail(mTo, NULL, NULL, mFrom, "NACVA Forgotten Member Password", sBody, NULL, 1, FALSE) strMsg = "Login information has been sent to " & strEmail else strMsg = "Email: " & strEmail & " is NOT valid
Please Call Member Services at 1-800-677-2009" mTo = strEmail mFrom = "nacva1@nacva.com" sBody = strMsg 'SendMail(mTo, mCC, mBCC, mFrom, mSubject, mBody, mAttachment, mHTML, mlog) bSend = SendMail(mTo, NULL, NULL, mFrom, "NACVA NOT Valid Forgotten Member Password", sBody, NULL, 1, FALSE) end if end if %>

NACVA Member Forgotten Password

<%if LEN(strMsg) > 0 then response.Write(strMsg) end if%>