next »

[Tonkow]

Hello friends!
I wonder how I get statistics for the public? For example, how many comments I have received. How many posts I have written and how long I have blogged.

A really fun thing to have is, how do I get my top five commentators listed in the right order?

[Tonkow]

I'd solved it like this.

Code:

<%
Dim tdlBlog

Set tdlBlog = Server.CreateObject("ADODB.Recordset")
tdlBlog.ActiveConnection = MM_blog_STRING
tdlBlog.Source = "SELECT Count(*) as tdlBlogcount FROM tblBlog WHERE BlogDraft = 0"
tdlBlog.CursorType = 0
tdlBlog.CursorLocation = 2
tdlBlog.LockType = 1
tdlBlog.Open()
%><b><%=(tdlBlog.Fields.Item("tdlBlogcount").Value)%></b> entries<br><%
Dim rsComments_Pending

Set rsComments_Pending = Server.CreateObject("ADODB.Recordset")
rsComments_Pending.ActiveConnection = MM_blog_STRING
rsComments_Pending.Source = "SELECT Count(*) as CommentsPendingCount FROM tblComment WHERE commentInclude = 1"
rsComments_Pending.CursorType = 0
rsComments_Pending.CursorLocation = 2
rsComments_Pending.LockType = 1
rsComments_Pending.Open()
%><b><%=(rsComments_Pending.Fields.Item("CommentsPendingCount").Value)%></b> comments<br>

Still I want a code which calculate the top 5 commentators.