<% if cstr("" & request.form("btnSubmit")) = "" then call display_login_form() else call send_pswd_via_email() end if %> <% sub display_login_form() %>

 

Forgot My Password
User Name:

<% end sub %> <% sub send_pswd_via_email() %> <% strMemberID = request.form("MemberID") strQuery = "SELECT Password, EmailAddr FROM Viewers where ViewerID = '" & strMemberID & "'" set adoWrapper = new FCV_ADOWrapper set objRS = adoWrapper.GetStaticRS(strQuery) if objRS.EOF then bFound = false else bFound = true strPassword = objRS.fields("Password") strEmailAddr = objRS.fields("EmailAddr") end if set objRS = Nothing set adoWrapper = Nothing if bFound then message = "Password: " & strPassword who_to_name = strMemberID who_to_email = strEmailAddr who_from_name = "ABGC - Support Dept" who_from_email = "support@asiabargirlcams.com" subject = "ABGC - Password Recovery" if send_email_msg(who_to_name, who_to_email, who_from_name, who_from_email, subject, message, 0, 1, "") then if pdebug then response.write "Your email was successfully sent." else if pdebug then response.write "Failed to send email." end if end if %>

 

Password Retrieved <% if bFound then %>

Your password has been emailed to

<%=strEmailAddr%>

<% else %>

<%=strMemberID%> doesn't exist in our database. Try again

<% end if %>

<% end sub %>