<% action = request.querystring("action")
if action = "go" then
forgotemail = lcase(replace(request.form("email"),"%",""))
sql = "select * from `aluminfo` where email like '" & forgotemail & "'"
rs.open sql, conn
if not rs.eof then
if rs.fields("accepted") <> "Y" then
response.redirect("index.asp?message=6")
end if
message = rs.fields("preferred").value & "," &vbcrlf &vbcrlf
message = message & "You recently requested your login information from Vienna Christian School." &vbcrlf &vbcrlf
message = message & "Your password is: " & lcase(rs.fields("password").value) &vbcrlf &vbcrlf
message = message & "Please go to http://www.viennachristianschool.org/login/ to log in." &vbcrlf &vbcrlf
message = message & "Thank you," &vbcrlf
message = message & "VCS Webmaster"
Set NewMail = Server.CreateObject("CDONTS.NewMail")
NewMail.To= forgotemail
NewMail.From= "webmaster@vcs-austria.org"
NewMail.Subject = "VCS Password Request"
NewMail.Bodyformat=1
NewMail.Body = message
NewMail.Send
response.redirect("index.asp?message=5")
else
message = "1"
end if
rs.close
end if %>
Forgot Password
Enter your registered email address below. We will email your password to you.
<% if message = "1" then
response.write "Email address not found. Please try again"
end if %>