Forum.ASP
In true Blue Peter style here are some instructions I prepared earlier.
Step 1:
Line 37-44 add the code in red.
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<%
Dim ArchiveView
Dim HeldFound, UnApprovedFound, UnModeratedPosts, UnModeratedFPosts
Step 2:
Line 236-239 approx add the code in red.
'## Forum_SQL - Get all topics from DB
strSql ="SELECT T.T_STATUS, T.CAT_ID, T.FORUM_ID, T.TOPIC_ID, T.T_VIEW_COUNT, T.T_SUBJECT, "
strSql = strSql & "T.T_AUTHOR, T.T_STICKY, T.T_REPLIES, T.T_UREPLIES, T.T_LAST_POST, T.T_LAST_POST_AUTHOR, "
strSql = strSql & "T.T_LAST_POST_REPLY_ID, M.M_NAME, MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, M.M_LEVEL, M.M_POSTS "
EDIT - Make sure that you do not miss the , just before M.M_LEVEL it is hard to see in red.
Step 3:
Line 466-466 approx add the code in red.
tM_NAME = 13
tLAST_POST_AUTHOR_NAME = 14
t_MLevel = 15
t_MPost = 16
Step 4:
Line 488-489 approx add the code in red.
Topic_MName = arrTopicData(tM_NAME, iTopic)
Topic_LastPostAuthorName = arrTopicData(tLAST_POST_AUTHOR_NAME, iTopic)
Member_Level = arrTopicData(t_MLevel, iTopic)
Member_Posts = arrTopicData(t_MPost, iTopic)
Step 5:
Line 537 approx replace the following line
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"">" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font></td>" & vbNewLine & _
with this code
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"">" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font>"
if Cint(strShowRank) = 2 or Cint(strShowRank) = 3 then Response.Write("<br />" & getStar_Level(Member_Level, Member_Posts) & "")
response.write " </td>" & vbNewLine & _
Enjoy! 