Here you go. You will have to change the connection string to point to your database (& the table prefixes if you modified them). Other than that, it will give you a table with your data.
<%
'###############################################################################
'##
'## Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output. The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'## Free Software Foundation, Inc.
'## 59 Temple Place, Suite 330
'## Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## manderson@snitz.com
'##
'###############################################################################
'## Make sure to uncomment one of the strConnString lines and edit it so that it points to where your database is!
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/snitz_forums_2000.mdb") '## MS Access 2000 using virtual path
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/USERNAME/db/snitz_forums_2000.mdb") '## MS Access 2000 on Brinkster
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\dbase\snitz_forums_2000.mdb" '## MS Access 2000 using physical path
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbase/snitz_forums_2000.mdb") '## MS Access 97 using virtual path
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/USERNAME/db/snitz_forums_2000.mdb") '## MS Access 97 on Brinkster
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\dbase\snitz_forums_2000.mdb" '## MS Access 97 using physical path
'strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("dbase/snitz_forums_2000.accdb") '## MS Access 2007 using virtual path
'strConnString = "Provider=SQLOLEDB;Data Source=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;" '## MS SQL Server 6.x/7.x/2000 (OLEDB connection)
'strConnString = "driver={SQL Server};server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME" '## MS SQL Server 6.x/7.x/2000 (ODBC connection)
'strConnString = "Provider=SQLNCLI;server=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;" '## MS SQL Server 2005 w/ SQL Native Client
'strConnString = "driver={MySQL ODBC 3.51 Driver};option=16387;server=SERVER_IP;user=UID;password=PWD;DATABASE=DB_NAME;" '## MySQL w/ MyODBC v3.51
'strConnString = "driver=MySQL;server=SERVER_IP;uid=UID;pwd=PWD;database=DB_NAME" '## MySQL w/ MyODBC v2.50
'strConnString = "DSN_NAME" '## DSN
'###############################################################################
'## SELECT YOUR TABLE PREFIXES
'###############################################################################
strTablePrefix = "FORUM_"
strMemberTablePrefix = "FORUM_"
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 "
set rsTopic=my_Conn.Execute(strSql)
if not rsTopic.EOF then
intTopicCount=rsTopic("CNT")
end if
rsTopic.Close
set rsTopic = Nothing
strSql = "SELECT COUNT(REPLY_ID) AS CNT FROM " & strTablePrefix & "REPLY WHERE R_STATUS = 1 "
set rsReply=my_Conn.Execute(strSql)
if not rsReply.EOF then
intReplyCount=rsReply("CNT")
end if
rsReply.Close
set rsReply = Nothing
strSql = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS = 1 "
set rsMembers=my_Conn.Execute(strSql)
if not rsMembers.EOF then
intMemberCount=rsMembers("CNT")
end if
rsMembers.Close
set rsMembers = Nothing
strSql = "SELECT COUNT(FORUM_ID) AS CNT FROM " & strTablePrefix & "FORUM WHERE F_STATUS = 1 "
set rsForum=my_Conn.Execute(strSql)
if not rsForum.EOF then
intForumCount=rsForum("CNT")
end if
rsForum.Close
set rsForum = Nothing
Response.write "<table width=""60%"" align=""center"" border=""1"" bgcolor=""black"">" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center"" colspan=""4"" bgcolor=""ltcyan"">" & vbNewLine & _
" <font face=""arial"" size=""4"" color=""black"">Forum Statistics" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
" <font face=""arial"" size=""3"" color=""black""><b>Forums</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
" <font face=""arial"" size=""3"" color=""black""><b>Members</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
" <font face=""arial"" size=""3"" color=""black""><b>Posts</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""ltgreen"">" & vbNewLine & _
" <font face=""arial"" size=""3"" color=""black""><b>Topics</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
" <font face=""arial"" size=""2"" color=""black""><b>"& intForumCount &"</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
" <font face=""arial"" size=""2"" color=""black""><b>"& intMemberCount &"</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
" <font face=""arial"" size=""2"" color=""black""><b>"& intTopicCount+intReplyCount &"</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center"" width=""25%"" bgcolor=""white"">" & vbNewLine & _
" <font face=""arial"" size=""2"" color=""black""><b>"& intTopicCount &"</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
%>