<% '**************************************************************************************** '** Copyright Notice '** '** EzASPSite™ '** '** Copyright 2003-2004 VSBrown All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** and use it both privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to EzASPSite™ and Powered By EzASPSite™ link must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** No official support is available for EzASPSite™ but you may post support questions at: '** http://www.ezaspsite.com/forum '** '**************************************************************************************** Const strDbTable3 = "tbl" Const strDbProc3 = "wwfSp" Dim rsCommon3 Dim adoCon3 %> <% 'Intialise the ADO recordset object Set rsCommon3 = Server.CreateObject("ADODB.Recordset") 'Cursor type to one to count rsCommon3.CursorType = 1 'Get the last signed up user 'Initalise the strSQL variable with an SQL statement to query the database If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE " & strDbProc3 & "AuthorDesc" Else strSQL = "SELECT " & strDbTable3 & "Author.Username, " & strDbTable3 & "Author.Author_ID " strSQL = strSQL & "FROM " & strDbTable3 & "Author " strSQL = strSQL & "ORDER BY " & strDbTable3 & "Author.Author_ID DESC;" End If 'Query the database rsCommon3.Open strSQL, adoCon2 'Display some statistics for the members If NOT rsCommon3.EOF Then Response.Write(vbCrLf & " " & strTxtForumMembers1 & ": " & rsCommon3.RecordCount) Response.Write(vbCrLf & "
"& strTxtTheNewestForumMember1 & ": " & rsCommon3("Username") & "") End If 'Close the recordset rsCommon3.Close %>