<%Dim sMODE, sEMAIL, sMESSAGE, sRS, sSQL, sUSERNAME, sPASSWORD, sMSG, sDONE sMODE = Request.Form("mode") IF sMODE = "login" THEN sEMAIL = TURBO_INJECTION(APO(Request.Form("email"))) IF IsEmailValid(sEMAIL) = False THEN sMESSAGE = sMESSAGE & "
  • Please enter a valid email address." IF sMESSAGE = "" THEN Call OPEN_DB() Call RETURN_VALUE(False) sSQL = "SELECT fldUSERNAME, fldPASSWORD FROM mms_tbl_user WHERE fldEMAIL = '" & sEMAIL & "'" Set sRS = Server.CreateObject("ADODB.Recordset") sRS.Open sSQL, MyConn IF NOT sRS.EOF THEN sUSERNAME = trim(sRS("fldUSERNAME")) sPASSWORD = trim(sRS("fldPASSWORD")) ELSE sMESSAGE = sMESSAGE & "
  • Sorry, we have no record of a registered member with this email address. Please try another email address or contact the administrator." END IF sRS.Close Set sRS = Nothing MyConn.Close Set MyConn = Nothing END IF IF sMESSAGE = "" THEN sMSG = RETURN_TEMPLATES(True, "fldMSG3", False) sMSG = Replace(sMSG,"%username%",sUSERNAME) sMSG = Replace(sMSG,"%password%",sPASSWORD) Call SEND_EMAIL_OUT(sMSG, "Password Reminder", sEMAIL, SET_SYSTEM_EMAIL, "") sDONE = True END IF END IF %> <% IF NOT sMESSAGE = "" THEN %> <% Response.End %> <% END IF %>
    <% If Not sDONE = True Then %>
    Please enter your email address that you have used to register as a member and press the button below.
    Email Address:

    <% Else %>
    Please check your inbox for a password reminder.
    <% End If %>