Once found these will be e-mailed to you, along with details on the current status of your account.
If you receive more than one e-mail with differing usernames AND a status of 1, please contact us without delay, so we can ensure you are only billed once.
If you no longer have access to the e-mail address you registered your username with contact Members Support
<%else emailadd=strQuotereplace(killchars (request.form("emailadd"))) strsql="select * from user where email='" & emailadd & "' and status=1" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, Con if rs.eof then%> Sorry we cannot find your email address in our database. Click here if you wish to re-enter it.
If you continue to have problems please contact Members Support
<%else%> E-Mail address found, credentials have been sent
Your login credentials have now been sent, please check your mailbox. If you do not recieve an e-mail please ensure you are not over your mailbox size limit with your provider or the email hasnt gone into your bulk / spam email folder, then try again.
If you no longer have access to the e-mail address you registered your username with contact Members Support
<% mesbody = mesbody & "
Hello,
As requested please find listed below the user credentials we have associated with your e-mail address." mesbody = mesbody & "
Username : " & rs("username")
mesbody = mesbody & "
Password : " & rs("password")
mesbody = mesbody & "
Status : "
todaydate = date()
ddiff = DateDiff("d",todaydate, rs("expiredate"))
if ddiff < 0 then
mstatus="Inactive"
else
mstatus="Active"
end if
mesbody=mesbody & mstatus
'if rs("status")=1 then
'mesbody=mesbody & mstatus
'else
'mesbody=mesbody & "Inactive"
'end if
mesbody=mesbody & "
Remember your account will NOT be activated until payment has been confirmed, either via Paycom or your Credit Card company." mesbody=mesbody & "
If you receive more than one e-mail but with differing user accounts please contact Members Support." mesbody=mesbody & "
If you sent a postal payment and it has been more than one week since sending, please contact Members Support."
Call SendNewsLetter("support@northern-angels.co.uk",request.form("emailadd"),"Northern Angels Password Reminder","New Mail",mesbody)
end if
end if
con.close
set con=nothing%>