Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Showing counts on non forum pages

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Lon2 Posted - 05 November 2010 : 15:37:45
I searched first but I'm not sure if I'm using the correct terminology. I want to show some counts, like members, topics, etc on a different pages that are not the forum. Do I need to add server includes and what would I use to get totals? Thanks!
15   L A T E S T    R E P L I E S    (Newest First)
Classicmotorcycling Posted - 10 November 2010 : 13:14:44
Why don't you provide the HTML from the page that you want to show the stats in so Craig or anyone else can get a better understanding of what you are after and what the code needs to contend with.

Big bit of miss information with this comment:
quote:
Originally posted by Lon2

Perfect examples of why Snitz forums has failed to be a leader in forums apps. Amazing comments from a person that we have paid hundreds of dollars to in the past for help with our forums. And you say I am unappreciative!?

Depends and what the forum type is depends on where the forum app sits. Given that this is quite clearly the best Classic ASP forum app going otherwise there would not be millions around the globe using it, including yourself for it's ease and functionality.

You need to be clear in what you need in any site asking for help, especially for free help. You need to provide samples of what you have that you need working, and most important, you need to have a willingness to learn how to adapt the code that is provided if it is not what you thought that the supplied solution is.

Do not get up set with others on here because you what something that you have not been clear with and provided everything as it is not showing as you feel it should, adapt it to do what you want.
Carefree Posted - 10 November 2010 : 12:48:42
quote:
Perfect examples of why Snitz forums has failed to be a leader in forums apps. Amazing comments from a person that we have paid hundreds of dollars to in the past for help with our forums. And you say I am unappreciative!?

Well, you may have paid someone for help on a particular issue or even to set up a board, I don't know. I know that I didn't get paid "hundreds of dollars" for my thousands of messages trying to help people. I also know that it is customary to at least read a message (before discarding it) when someone tries to help you.

For what you wanted done, there MIGHT be an easier way but I don't see it.


Using the code I wrote is simple. Put lines 5-17 at the top of your page, before you need the information. Make sure to enclose them like this:


		<!--#INCLUDE VIRTUAL="itw/config.asp"-->
		<!--#INCLUDE VIRTUAL="itw/inc_func_common.asp"-->
		<%
		dim intMembers, intTopics, intForumID
		set my_Conn = Server.CreateObject("ADODB.Connection")
		my_Conn.Open(strConnString)
		strSql = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1"
		set rsCount = my_Conn.Execute(strSql)
		if not rsCount.EOF then
			intMembers=rsCount("CNT")
			rsCount.Close
		end if
		set rsCount = Nothing
		%>


Note: If you're not going to use the member count anywhere, you can reduce the initial code a bit, like this:


		<!--#INCLUDE VIRTUAL="itw/config.asp"-->
		<!--#INCLUDE VIRTUAL="itw/inc_func_common.asp"-->
		<%
		dim intTopics, intForumID
		set my_Conn = Server.CreateObject("ADODB.Connection")
		my_Conn.Open(strConnString)
		%>


Then put the body of your page. Whereever you'd like the output of message counts, you'd use this (changing the forum numbers in red to the ones you wish displayed), adding lines in that pattern to display additional forums:


		<%		
		intForumID=1
		Call TopicsInForum(intForumID)
		intForumID=2
		Call TopicsInForum(intForumID)
		%>


Finally, at the bottom of the body segment of your web page (just above the closing < /body > tag, include the rest of the code I provided, like this:


		<%
		my_Conn.Close
		set my_Conn = Nothing

		Sub TopicsInForum(intForumID)
			'	##	Total Topics in a Particular Forum
			intForumTopics = 0
			strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & intForumID
			set rsTitle = my_Conn.Execute(strSql)
			if not rsTitle.EOF then
				strForumTitle=rsTitle("F_SUBJECT")
				rsTitle.Close
			end if
			set rsTitle=Nothing
			strSql = "SELECT COUNT(TOPIC_ID) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_STATUS=1 AND FORUM_ID=" & intForumID
			set rsCount = my_Conn.Execute(strSql)
			if not rsCount.EOF then
				intForumTopics=rsCount("CNT")
				rsCount.Close
			end if
			set rsCount = Nothing
			Response.Write	"Our """ & strForumTitle & """ forum currently has " & intForumTopics & " topics.<br>"
		End Sub
		%>


That's all there is to it. Unless you provide your page to me with a list of the forum IDs for me to do it for you, that's about as easy as it gets.
ruirib Posted - 10 November 2010 : 11:35:05
Really? Hundreds of dollars you say? Funny how I don't even know you, but you must be right.

Anyway, let's admit that, for the sake of the argument, that you did. How would that have to do with anything? Your acts should be less criticised because you supposedly paid for my services in the past? So that hypothetic payment was meant to be hypothetically for services or for the permanent agreement about anything you would write here? I should refrain to criticise your attitude because of that? I should refrain from saying what I think about someone who really doesn't know enough to be appreciative of the willingness of someone who chose to provide help?!

Well, I am sorry, I do state how I feel. Not only did Craig do it in a simple, reusable way, but you clearly have shown contempt for his work. And let me tell you, I have no idea at all about who you are and even if I did, I wouldn't feel differently about this.

As for Snitz, it's a free, open source app. I am sure the founders never wanted it to be a leader of anything. People who liked it, used it, simple. This very forum shows how much any of us has done to help Snitz users, I am totally at ease about that and I won't brag about it, either.
Lon2 Posted - 10 November 2010 : 11:16:09
quote:
Originally posted by ruirib

Is this a hard way? How easier can it get than this?
quote:
Originally posted by ruirib

Try what, Craig, a contest to do what you generously have done in less lines?! You're too generous with your time, if you ask me. This thread also shows how unappreciated that can be.
Perfect examples of why Snitz forums has failed to be a leader in forums apps. Amazing comments from a person that we have paid hundreds of dollars to in the past for help with our forums. And you say I am unappreciative!?
Carefree Posted - 10 November 2010 : 07:47:57
I'm just waiting to die, Ruirib. I don't have anything better to do with my time, but don't know what more I could try to help this guy.
ruirib Posted - 10 November 2010 : 05:17:01
Try what, Craig, a contest to do what you generously have done in less lines?! You're too generous with your time, if you ask me. This thread also shows how unappreciated that can be.
Carefree Posted - 09 November 2010 : 18:29:07
quote:
Originally posted by Lon2

Thanks again Carefree. I get the following error:

Microsoft VBScript compilation error '800a0411'

Name redefined

/topic_totals/test.asp, line 10

dim intMembers, intTopics, intForumID, strForumTitle
---------------------------------------^

Update: I got it to work by removing strForumTitle from the dim statement but I'm not sure if that's the correct thing to do.

This just doesn't seem right. So I have to repeat the entire routine (everything you have in the body, between these <& &> tags), with server includes, every place on the page that I want totals to be?


No. That is NOT what I said. Go back and read my reply. You only need to copy 3 2 lines of code for each location you want information. I modified it to make it even simpler for you. If that won't do it, I give up. Someone else can try.
ruirib Posted - 09 November 2010 : 17:43:01
Is this a hard way? How easier can it get than this?
Lon2 Posted - 09 November 2010 : 16:45:03
Does anyone have an easy way to do this?
Lon2 Posted - 07 November 2010 : 13:31:26
Thanks again Carefree. I get the following error:

Microsoft VBScript compilation error '800a0411'

Name redefined

/topic_totals/test.asp, line 10

dim intMembers, intTopics, intForumID, strForumTitle
---------------------------------------^

Update: I got it to work by removing strForumTitle from the dim statement but I'm not sure if that's the correct thing to do.

This just doesn't seem right. So I have to repeat the entire routine (everything you have in the body, between these <& &> tags), with server includes, every place on the page that I want totals to be?
Carefree Posted - 06 November 2010 : 19:12:01
Here you go: html version. I left the routine to get members because you mentioned that earlier. Notice the lines 20-21

		intForumID=1
		Call TopicsInForum(intForumID)

That's how you can retrieve information for different forums on demand. Copy those two lines where you want the output, and just change the forum number to the forum you want shown.

For example, to get output for forums 1 & 2, change lines 20-21 to say:


		intForumID=1
		Call TopicsInForum(intForumID)
		intForumID=2
		Call TopicsInForum(intForumID)





<html>
	<head>
		<title>Title Here</title>
	</head>
	<body>
		<!--#INCLUDE VIRTUAL="(forumpath)/config.asp"-->
		<!--#INCLUDE VIRTUAL="(forumpath)/inc_func_common.asp"-->
		<%
		dim intMembers, intTopics, intForumID
		set my_Conn = Server.CreateObject("ADODB.Connection")
		my_Conn.Open(strConnString)
		strSql = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1"
		set rsCount = my_Conn.Execute(strSql)
		if not rsCount.EOF then
			intMembers=rsCount("CNT")
			rsCount.Close
		end if
		set rsCount = Nothing

		intForumID=1
		Call TopicsInForum(intForumID)

		my_Conn.Close
		set my_Conn = Nothing

		Sub TopicsInForum(intForumID)
			'	##	Total Topics in a Particular Forum
			intForumTopics = 0
			strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & intForumID
			set rsTitle = my_Conn.Execute(strSql)
			if not rsTitle.EOF then
				strForumTitle=rsTitle("F_SUBJECT")
				rsTitle.Close
			end if
			set rsTitle=Nothing
			strSql = "SELECT COUNT(TOPIC_ID) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_STATUS=1 AND FORUM_ID=" & intForumID
			set rsCount = my_Conn.Execute(strSql)
			if not rsCount.EOF then
				intForumTopics=rsCount("CNT")
				rsCount.Close
			end if
			set rsCount = Nothing
			Response.Write	"Our """ & strForumTitle & """ forum currently has " & intForumTopics & " topics.<br>"
		End Sub
		%>
	</body>
</html>


Example output:
quote:
Our "Welcome" forum currently has 8 topics.
Our "Snitz Modifications" forum currently has 476 topics.
Lon2 Posted - 06 November 2010 : 19:09:42
For clarification, I would like to show individual counts for each forum. For example:

Animals - 56 Topics
Mammals - 37 Topics
Reptiles - 9 Topics

Not the 3 combined.

I appreciate your patience with me!
Carefree Posted - 06 November 2010 : 18:45:21
That last script was specifically for the group of forums you had mentioned (1-3). If you want to get a variety, you'd be better off using the method I posted in my first reply. Then it would be as simple as "Call TopicsInForum(Forum_ID)", followed with 
Response.Write intForumTopics
. I'll make you a sample web page with this included so you can see how it's done.
Lon2 Posted - 06 November 2010 : 16:44:29
I appologize but I'm somewhat of a newbie. I am able to get your suggestion to work on a page all by itself with just one forum ID count but not on an HTML page with head and body tags. I would like to put a forum name with quantities on another page. For example: "Our Animal forum currently has X Topics" I'm not sure how to do this.

Would I create the script above for every Forum ID I want to get counts for or is there a way to call out individual forum counts without reusing the script for every forum ID?

I appreciate your help on this!
Carefree Posted - 06 November 2010 : 16:33:03

<!--#INCLUDE VIRTUAL="/forums/config.asp"-->
<!--#INCLUDE VIRTUAL="/forums/inc_func_common.asp"-->
<%
dim intTopics
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open(strConnString)
strSql = "SELECT COUNT(TOPIC_ID) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_STATUS = 1 AND FORUM_ID < 4"
set rsCount = my_Conn.Execute(strSql)
if not rsCount.EOF then
	intTopics=rsCount("CNT")
	rsCount.Close
end if
set rsCount = Nothing
Response.Write	"Total Topics: " & intTopics
my_Conn.Close
set my_Conn = Nothing
%>

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.1 seconds. Powered By: Snitz Forums 2000 Version 3.4.07