<% Call MakePageHeader("Members - MyRemoteIP.com","Member Control Panel") %>
<%
Select case Request.QueryString
Case "step2"
call Ask_Question()
Case "step3"
Call Verify_Pass()
Case Else
Call AskEmail
End Select
%>
<%
'*********************************************************************************************************
'AskEMail
'*********************************************************************************************************
'
Function AskEMail
%>
Recover Password
<%
End Function
'
'*********************************************************************************************************
'*********************************************************************************************************
'Ask_Question
'*********************************************************************************************************
'
Function Ask_Question()
If GetField("user_email","myip_users","user_email",ReplaceSQL(Request.Form("email")),True) = Request.Form("email") Then
%>
Secret Question
<%
Else
%>
We are sorry, but there is no such user account registered with us.
<%
End If
End Function
'
'*********************************************************************************************************
'*********************************************************************************************************
'Verify_Pass
'*********************************************************************************************************
'
Function Verify_Pass
Dim userName, strEmailBody,IPAddress, ReqDateTime
ReqDateTime = Now
strEmailBody = ReadFromFile("/tmpl/forgot_password.tmpl")
userName = GetField("user_name","myip_users","user_email",ReplaceSQL(Request.Form("email")),True)
IPAddress = Request.ServerVariables("REMOTE_ADDR")
If GetField("user_secans","myip_users","user_email",ReplaceSQL(Request.Form("email")),True) = Request.Form("ans") Then
strNewPass = Mid(ToggleString(ReverseString(CStr(Session.SessionID))),1,16)
call UpdateField ("myip_users","user_password",ReverseString(strNewPass),True,"user_email='" & ReplaceSQL(Request.Form("email")) & "'")
strEmailBody = Replace(strEmailBody,"[MEMBER_NAME]",userName)
strEmailBody = Replace(strEmailBody,"[SITE_NAME]",SITE_NAME)
strEmailBody = Replace(strEmailBody,"[TMPL_IP_ADDRESS]",IPAddress)
strEmailBody = Replace(strEmailBody,"[TMPL_DATETIME]",ReqDateTime)
strEmailBody = Replace(strEmailBody,"[TMPL_NEW_PASS]",strNewPass)
strEmailBody = Replace(strEmailBody,"[SITE_URL]",CONST_WEBSITE_URL)
Call SendMail_CDOSYS (Request.Form("email"),"Your new password to access " & SITE_NAME,strEmailBody,NO_REPLY_EMAIL,"")
Response.write "
Your password has been reset, please check your email for further instructions.
"
Else
%>
We are sorry, but there is no such user account registered with us.
<%
End If
End Function
'
'*********************************************************************************************************
%>
<%
Call MakePageFooter
%>