<%
ERROR_MESSAGE=""

Dim fEmail

If Request.Form("fpwdsubmit.x").Count > 0 then
	fEmail = validateForm( "EMAIL", true, ERROR_MESSAGE, Request.Form("Email"), "Email" )
	
	if ERROR_MESSAGE = "" then
	
		if ECOMETRY_ENABLED = true then
			forgotPassword Request.Form("Email"), ERROR_MESSAGE
		else
			Dim fSql
			Dim frec
			
			fSql = "exec P_WP_GET_PASSWORD " & getQuotedString( Request.Form("Email") )
			frec = getRecordSetList(fsql)
			if Ubound(frec)>0 then
				
				  Dim ObjMail
				  Dim fbody
				  
				  Set ObjMail = Server.CreateObject("CDONTS.NewMail")
				  
				  fbody = "Dear Customer," & chr(13) & chr(13)
				  fbody =  fbody & "Your password is: " & frec(1)(1) & chr(13) & chr(13) 
				  fbody =  fbody & "Sincerely," & chr(13) 
				  fbody =  fbody & COMAPNY_NAME
				  			  
				  ObjMail.To = Request.Form("Email")
				  ObjMail.From = COMAPNY_EMAIL
				  ObjMail.Subject = COMAPNY_NAME & "- password reminder"
				  ObjMail.Body = fbody
				  ObjMail.Send
				  Set ObjMail = Nothing
				  
				  ERROR_MESSAGE = "<li>Your Password has been sent."
				  
			end if
			
		end if
	end if
	
	
end if
	
%>