I wanted to add an extra column to the Admin E-mail list (admin_emaillist.asp) which included the Real Name of a user (if entered by user of course). Here you can see an example:
This is the way I found out how to do it:
First open your admin_emaillist.asp
Find this code (approx. line 64):
strSql = "SELECT M_NAME, M_EMAIL, M_POSTS "
replace the line with this:
strSql = "SELECT M_NAME, M_FIRSTNAME, M_LASTNAME, M_EMAIL, M_POSTS "
---------
Find this code (approx. line 155):
" <td bgColor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>User Name</font></b></td>" & vbNewLine & _
Below that line insert this new line:
" <td bgColor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Real Name</font></b></td>" & vbNewLine & _
---------
Around line 163 find this line:
" <td bgcolor=""" & strForumCellColor & """ colspan=""3""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>No Members Found</b></font></td>" & vbNewLine & _
Replace the above line with this:
" <td bgcolor=""" & strForumCellColor & """ colspan=""4""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>No Members Found</b></font></td>" & vbNewLine & _
---------
Around line 165 find this code:
else
mM_NAME = 0
mM_EMAIL = 1
mM_POSTS = 2
and replace it with this code:
else
mM_NAME = 0
mM_FIRSTNAME = 1
mM_LASTNAME = 2
mM_EMAIL = 3
mM_POSTS = 4
---------
Around line 177 find this line:
Members_MemberName = arrMemberData(mM_NAME, iMember)
Below that code add these two lines:
Members_MemberFirstname = arrMemberData(mM_FIRSTNAME, iMember)
Members_MemberLastname = arrMemberData(mM_LASTNAME, iMember)
---------
Finally around line 184 find this line:
" <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Members_MemberName & "</font></td>" & vbNewLine & _
Below that line add this new line:
" <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Members_MemberFirstname & " " & Members_MemberLastname & "</font></td>" & vbNewLine & _
---------
Hope some of you find this useful
Regards
Topic Locked
Posted - 20 November 2003 : 04:21:08
