Forum statistics

You will have to code a module to do that.

Tell me some more and i'll try to help you out.

Finally I found what I was looking for. I put it here for other also.
<%
Dim rsForumStatsMod
Dim adoStatsModCon
Dim strStatsModCon
Dim strSQLStatsMod
Dim strStatsModForumPath
Dim intForumStatsTotalMembers
Dim intForumStatsTotalTopics
Dim intForumStatsTotalThreads
Dim intForumStatsTotalPosts

'The path to the forum
strStatsModForumPath = "/forum/"

'Default connection
strStatsModCon =  "Provider=sqloledb;Data Source=xxx; User Id=xxx; Password=xxx; Database=xxx"

'Open connection. Makes it so access doesnt crash as much
Set adoStatsModCon = Server.CreateObject("ADODB.Connection")
adoStatsModCon.Open strStatsModCon

'Make the connection to display newest members
Set rsForumStatsMod = Server.CreateObject("ADODB.Recordset")

'Count Members
strSQLStatsMod = "SELECT Count(tblAuthor.Author_ID) AS Total_members FROM tblAuthor;"
rsForumStatsMod.Open strSQLStatsMod, adoStatsModCon
intForumStatsTotalMembers = Clng(rsForumStatsMod("Total_members"))
rsForumStatsMod.Close

'Count Topics
strSQLStatsMod = "SELECT Count(tblTopic.Topic_ID) AS Total_topics FROM tblTopic;"
rsForumStatsMod.Open strSQLStatsMod, adoStatsModCon
intForumStatsTotalTopics = Clng(rsForumStatsMod("Total_topics"))
rsForumStatsMod.Close

'Count Replies
strSQLStatsMod = "SELECT Count(tblThread.Thread_ID) AS Total_threads FROM tblThread;"
rsForumStatsMod.Open strSQLStatsMod, adoStatsModCon
intForumStatsTotalThreads = Clng(rsForumStatsMod("Total_threads") - intForumStatsTotalTopics)
rsForumStatsMod.Close

intForumStatsTotalPosts = intForumStatsTotalTopics + intForumStatsTotalThreads

Response.Write(vbCrLf & "We have " & "<b>" & intForumStatsTotalMembers & "</b>" & " members who have made " & "<b>" & intForumStatsTotalPosts & "</b>" & " posts in total" & "<br>" & "(" & intForumStatsTotalTopics & " topics and " & intForumStatsTotalThreads & " replies)." & "&nbsp;")

'Reset Server Objects
Set rsForumStatsMod = Nothing
adoStatsModCon.Close
Set adoStatsModCon = Nothing
%>

Post edited by admin as it contained the users database login username and password!


Edited by -boRg- - 11 January 2008 at 1:40pm