https://forums.webwiz.net/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 03:35:27 +0000 Fri, 11 Jan 2008 13:28:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.08 360 https://forums.webwiz.net/RSS_post_feed.asp?TID=25127 https://forums.webwiz.net/forum_images/web_wiz_forums.png https://forums.webwiz.net/ https://forums.webwiz.net/forum-statistics_topic25127_post130663.html#130663 Author: dimoss
Subject: 25127
Posted: 11 January 2008 at 1:28pm

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]]> Fri, 11 Jan 2008 13:28:17 +0000 https://forums.webwiz.net/forum-statistics_topic25127_post130663.html#130663 https://forums.webwiz.net/forum-statistics_topic25127_post130653.html#130653 Author: namtoday
Subject: 25127
Posted: 11 January 2008 at 2:45am

What he said is quite detail, he wants a statistic module @ his own site.
The easiest way to do it, probably is you can go to default.asp page, and delete wherever webwizforum displays a forum (dont delete any SQL command).But it will probably alot slower compared with a code that speciallized in doing the job as it has to load almost the default page.
]]> Fri, 11 Jan 2008 02:45:39 +0000 https://forums.webwiz.net/forum-statistics_topic25127_post130653.html#130653 https://forums.webwiz.net/forum-statistics_topic25127_post130638.html#130638 Author: StarDust
Subject: 25127
Posted: 10 January 2008 at 3:51pm

You will have to code a module to do that.

Tell me some more and i'll try to help you out.]]> Thu, 10 Jan 2008 15:51:29 +0000 https://forums.webwiz.net/forum-statistics_topic25127_post130638.html#130638 https://forums.webwiz.net/forum-statistics_topic25127_post130637.html#130637 Author: dimoss
Subject: 25127
Posted: 10 January 2008 at 2:46pm

Hi,

Is it possible to put also the forum statistics which shows in the default.asp page in another page of my site? If yes, how?
Thanks,

Dimos
]]> Thu, 10 Jan 2008 14:46:27 +0000 https://forums.webwiz.net/forum-statistics_topic25127_post130637.html#130637