is there any option which notice the members about - Posted (1319 Views)
Junior Member
AHMEDHHH1
Posts: 105
105
is there any option which notice the members about something wrong

instead this message



for example when a member try to sign in with a wrong pseudonym

this option notice him that the name he used is wrong

the same for the password

or notice him that this membership closed

or he didn't confirm his membership yet

and so on

sorry for the disturbance
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
Snitz Forums Admin
ruirib
Posts: 26364
26364
Doing that would ease the work of anyone trying to impersonate a user. If you look at most websites, if you have a login error, you always get a similar statement. It's only cautious to do so.
Posted
Junior Member
AHMEDHHH1
Posts: 105
105
The This is useful, but, God willing

Reduce the proportion of complaints because the boy Director member will know the cause of the problem and correct it converts

This will assist the Director has knowledge of the cause of the problem that was introduced by the user data or files from the forum

And also will assist the Director to find out why exactly the sorts of the type of message that appears when you insert data

You please help me in the work of such characteristic

Posted
Advanced Member
Carefree
Posts: 4224
4224
This will check pending and actual members' names against the login attempt. If the name does not exist, the error will reflect that.
Otherwise:

  1. Name exists in active records:
    1. If account is active (not locked), error will show password is incorrect.
    2. If account is locked, error will show account has been locked by administrator.
  2. Name does not exist in active records, but is in pending table. Error will advise member to check Email account provided during registration.
"login.asp"
Code:


Look for the following line (appx 105):

if RequestMethod = "POST" and strLoginStatus = 0 then Response.Write(" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your username and/or password was incorrect.</font><br />" & vbNewLine) else Response.Write("<br />" & vbNewLine)

Change it to say:

' ############ Login Details Mod ############
if RequestMethod = "POST" and strLoginStatus = 0 then Response.Write(" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & strError & "</font><br />" & vbNewLine) else Response.Write("<br />" & vbNewLine)
' ############ Login Details Mod ############


Next, look for the following lines (appx 84-87):

WriteFooter
Response.End
end if
end if


Change them to say:

WriteFooter
Response.End
' ############ Login Details Mod ############
else
strSQL = "SELECT M_NAME, M_PASSWORD, M_STATUS FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME = '" & strDBNTFUserName & "'"
set rsCheckUser=my_Conn.Execute(strSQL)
if not rsCheckUser.EOF then
strError = "Password does not match user name.<br>"
if rsCheckUser("M_STATUS") = 0 then strError = strError & "Account locked by Administrator.<br>"
rsCheckUser.Close
else
strSQL = "SELECT M_NAME FROM " & strTablePrefix & "MEMBERS_PENDING WHERE M_NAME = '" & strDBNTFUserName & "'"
set rsPending = my_Conn.Execute(strSQL)
if not rsPending.EOF then
strError = "Account pending activation. Check the Email supplied during registration."
rsPending.Close
end if
set rsPending = Nothing
else
strError = "Member name does not exist.<br>"
end if
set rsCheckUser = Nothing
' ############ Login Details Mod ############
end if
end if

"inc_header.asp"
Code:


Look for the following lines (appx 314-316):

if strLoginStatus = 0 then
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Your username and/or password were incorrect.</font></p>" & vbNewLine & _
"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Please either try again or register for an account.</font></p>" & vbNewLine

Change them to say:

if strLoginStatus = 0 then
' ############ Login Details Mod ############
strSQL = "SELECT M_NAME, M_PASSWORD, M_STATUS FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME = '" & strDBNTFUserName & "'"
set rsCheckUser=my_Conn.Execute(strSQL)
if not rsCheckUser.EOF then
strError = "Password does not match user name.<br>"
intLocked = 0
if rsCheckUser("M_STATUS") = 0 then
strError = "Account locked by Administrator.<br>"
intLocked = 1
rsCheckUser.Close
end if
else
strSQL = "SELECT M_NAME FROM " & strTablePrefix & "MEMBERS_PENDING WHERE M_NAME = '" & strDBNTFUserName & "'"
set rsPending = my_Conn.Execute(strSQL)
if not rsPending.EOF then
strError = "Account pending activation. Check the Email supplied during registration."
rsPending.Close
else
strError = "Member name does not exist.<br>"
end if
set rsPending = Nothing
end if
set rsCheckUser = Nothing
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>" & strError & "</font></p>" & vbNewLine
if intLocked = 0 then
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Please either try again or register for an account.</font></p>" & vbNewLine
end if
' ############ Login Details Mod ############
Posted
Junior Member
AHMEDHHH1
Posts: 105
105
The structure was perfectly working
Carefree
Posted
Advanced Member
Carefree
Posts: 4224
4224
Glad to be of assistance.
 
You Must enter a message