Forgot Password <% if request.form("email") = "" then %> Enter your email address and click submit to have your password mailed to you. <%else%> <% Dim mailobj Set mailobj = Server.CreateObject("CDONTS.NewMail") Set LaunDB = LaunConn.Execute("SELECT password FROM customer WHERE email = '" & request.form("email") & "';") if not laundb.eof then password = laundb("password") mailbody = "Below is your password for laundry-carts.com. Use your email address and password at laundry-carts.com to login. " mailbody = mailbody & password & " " mailbody = mailbody & "-laundry-carts.com" mailOBJ.To = request.form("email") mailOBJ.From = "parts@laundry-carts.com" mailOBJ.Subject = "laundry-carts.com Lost Password" mailOBJ.BodyFormat=0 mailOBJ.MailFormat=0 mailOBJ.Body = mailbody mailOBJ.Send response.write "Password Sent to " & Request.form("email") & " " else response.write "Sorry, " & request.form("email") & " is not in our database. " end if %> <%end if%> Return to www.laundry-carts.com