The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
I would like to add a new stat in the Authors column on the topic.asp page. Currently it says something like "123 Posts". I'd also like to add "Topics Started: 10"
The Topics Started would list how many topics have been started by that member. I looked at the database but could not find anything that kept track of that. Is there a way to add it?
The Topics Started would list how many topics have been started by that member. I looked at the database but could not find anything that kept track of that. Is there a way to add it?
Posted
I think I may have figured it out. I added this:
I think it is working properly.
Edit: Oops. Nevermind. All that does is show the members id number.
Code:
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Topics Started: " & Topic_Author & "</small></font><br />" & vbNewLineEdit: Oops. Nevermind. All that does is show the members id number.
Posted
ther is nothing that tracks that, you will have to write a query that counts the number of topics where the user is the TopicAuthor
Posted
You'll have to use two routines in "topic.asp", one for original posts and one for replies.
Note: If you're using the active members' mod, the closing /td will not be present on the Response Write lines.
Code:
For topics, look for the following line (appx 770):
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Posts & " Posts</small></font></p></td>" & vbNewLine & _
Change it to say:
strSql = "SELECT COUNT(T_AUTHOR) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_AUTHOR="&TMEMBER_ID
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
intTotalPosts=rsCount("CNT")
rsCount.close
set rsCount=Nothing
strSql = "SELECT COUNT(R_AUTHOR) AS CNT FROM " & strTablePrefix & "REPLY WHERE R_AUTHOR="&TMEMBER_ID
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
intTotalReplies=rsCount("CNT")
rsCount.close
set rsCount=Nothing
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & IntTotalPosts & " Posts<br>" & IntTotalReplies & " Replies</small></font></p></td>" & vbNewLine & _
For replies, look for the following line (appx 565):
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font></p></td>" & vbNewLine & _
Change it to say:
strSql = "SELECT COUNT(T_AUTHOR) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_AUTHOR="&Reply_MemberID
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
intTotalPosts=rsCount("CNT")
rsCount.close
set rsCount=Nothing
strSql = "SELECT COUNT(R_AUTHOR) AS CNT FROM " & strTablePrefix & "REPLY WHERE R_AUTHOR="&Reply_MemberID
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
intTotalReplies=rsCount("CNT")
rsCount.close
set rsCount=Nothing
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & IntTotalPosts & " Posts<br>" & IntTotalReplies & " Replies</small></font></p></td>" & vbNewLine & _
Note: If you're using the active members' mod, the closing /td will not be present on the Response Write lines.
Posted
It works but doesn't give the correct total. In other words, # of topics plus the # of posts do no add up to the number of posts before the change.
Posted
That could be because someone could of deleted a post or a few from the user(s).
Originally posted by texanman
It works but doesn't give the correct total. In other words, # of topics plus the # of posts do no add up to the number of posts before the change.