<% @ Language=VBScript %> <% Option Explicit %> <% '****************************************************************************************** '**********************************piwdee All in Site for You************************* '****************************************************************************************** '---------------------------------------------------------------------------------------------------------------- '****************************************************************************************** '**********************************piwdeeFroum Version 8.5************************* '**********************************Last modified: September 14 2003 ************************* '**********************************Copyright 2001-2004 Diaw************************* '**********************************All Rights Reserved.************************* '****************************************************************************************** '=========================================================================================== 'Other ASP Applications '=========================================================================================== 'The following ASP Appliacations are available for free from http://www.piwdee 'piwdee Forums 'piwdee Guestbook 'Site Search Engine 'piwdee Polls 'piwdee Site News 'piwdee Mailing List 'piwdee Journal 'Internet Search Engine 'Graphical Hit Counter 'Graphical Session Hit Counter 'Database Hidden Hit Counter 'Active Users Counter 'Email Form's (CDONTS) 'Email Form's (w3 JMail) 'Database Login Page 'Whois Lookup '=========================================================================================== 'Thanks to '=========================================================================================== 'Thanks to Mike Falatine of 4th Order at http://www.4th.cc for all the avatar images 'Thanks to BBAddOns at http://www.bbaddons.com for letting me use there avatars, check 'there site out for more avatars 'Thanks to ulfe for all the help testing the SQL Server version of the ASP Discussion Forum 'Thanks to ::foo:: form http://www.forgetfoo.com for all the help with the emoticons '=========================================================================================== 'If I have missed anything out or any bugs then please let me know by e-mailing me at: - 'piwdee@piwdee.net '=========================================================================================== 'Create All ASP by piwdee Teamstaff ( Diaw ) '****************************************************************************************** '**********************************piwdee All in Site for You************************* '****************************************************************************************** '---------------------------------------------------------------------------------------------------------------- Response.Buffer = True If blnActiveUsers = False Then Set adoCon = Nothing Set adoCon = Nothing Response.Redirect("default.asp") End If Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Dim lngUserID Dim strUsername Dim strForumName Dim intGuestNumber Dim intForumColourNumber Dim intForumID intGuestNumber = 0 intForumColourNumber = 0 %> Discussion Forum Active Users
<% = strTxtActiveForumUsers %>
 <% = strMainForumName %><% = strNavSpacer %><% = strTxtActiveForumUsers %>

<% If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE " & strDbProc & "CountOfActiveUsers" Else strSQL = "SELECT Count(" & strDbTable & "ActiveUser.Author_ID) AS ActiveUser From " & strDbTable & "ActiveUser;" End If rsCommon.Open strSQL, adoCon intActiveUsers = CInt(rsCommon("ActiveUser")) rsCommon.Close If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE " & strDbProc & "CountOfActiveGuests" Else strSQL = "SELECT Count(" & strDbTable & "ActiveUser.Author_ID) AS ActiveUser From " & strDbTable & "ActiveUser WHERE " & strDbTable & "ActiveUser.Author_ID=2;" End If rsCommon.Open strSQL, adoCon intActiveGuests = CInt(rsCommon("ActiveUser")) intActiveMembers = intActiveUsers - intActiveGuests rsCommon.Close Response.Write(" " & strTxtThereAreCurrently & " " & intActiveUsers & " " & strTxtActiveUsers & " " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuestsAnd & " " & intActiveMembers & " " & strTxtMembers & "
") %>
<% strSQL = "SELECT " & strDbTable & "ActiveUser.*, " & strDbTable & "Author.Username FROM " & strDbTable & "Author INNER JOIN " & strDbTable & "ActiveUser ON " & strDbTable & "Author.Author_ID = " & strDbTable & "ActiveUser.Author_ID ORDER BY " & strDbTable & "ActiveUser.Active DESC;" rsCommon.Open strSQL, adoCon Do While NOT rsCommon.EOF intForumColourNumber = intForumColourNumber + 1 lngUserID = CLng(rsCommon("Author_ID")) strUsername = rsCommon("Username") strBrowserUserType = rsCommon("Browser") strOS = rsCommon("OS") dtmLastActive = CDate(rsCommon("Active")) dtmLoggedIn = CDate(rsCommon("Login")) blnHideActiveUser = CBool(rsCommon("Hide")) %> <% rsCommon.MoveNext Loop rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>
<% = strTxtUsername %> <% = strTxtLoggedIn %> <% = strTxtLastActive %> <% = strTxtActive %> <% = strTxtBrowser %> <% = strTxtOS %>
<% If lngUserID = 2 Then intGuestNumber = intGuestNumber + 1 Response.Write(strTxtGuest & " "& intGuestNumber) ElseIf blnHideActiveUser = True Then Response.Write(strTxtAnnoymous) Else %> <% = strUsername %> <% End If %> <% Response.Write(DateFormat(dtmLoggedIn, saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(dtmLoggedIn, saryDateTimeData)) %> <% Response.Write(DateFormat(dtmLastActive, saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(dtmLastActive, saryDateTimeData)) %> <% = DateDiff("n", dtmLoggedIn, dtmLastActive) %> <% = strTxtMinutes %> <% = strBrowserUserType %> <% = strOS %>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Powered by piwdee version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2004 piwdee") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 4) & " " & strTxtSeconds & "" %>