Print Page | Close Window

MOD to see who have visited the forum for today

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=22849
Printed Date: 30 March 2026 at 5:58am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: MOD to see who have visited the forum for today
Posted By: chong67
Subject: MOD to see who have visited the forum for today
Date Posted: 07 March 2007 at 4:04pm
I use to have a code that can display who the users have visited the forum for today.  The author have not update it.
 
It was for the 7.x version.
 
Is there one for the 8.x version?
 
I like to see the users name displayed at the bottom of the forum who had visited the forum for today.
 
Thanks!



Replies:
Posted By: chong67
Date Posted: 09 March 2007 at 1:59am

Anyone?



Posted By: chicken
Date Posted: 09 March 2007 at 4:26pm

<%
Dim Num
Num = 0
Dim Visiters_of_Members_Today
Dim lngUserID

If strDatabaseType = "SQLServer" Then
 strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID "
 strSQL = strSQL & "FROM tblAuthor "
 strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(getdate()) and month(tblAuthor.Last_visit) = month(getdate()) and year(tblAuthor.Last_visit) = year(getdate()) "
 strSQL = strSQL & "ORDER BY tblAuthor.Username ASC, tblAuthor.Last_visit DESC;"
Else
 strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID "
 strSQL = strSQL & "FROM tblAuthor "
 strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(Date()) and month(tblAuthor.Last_visit) = month(Date()) and year(tblAuthor.Last_visit) = year(Date()) "
 strSQL = strSQL & "ORDER BY tblAuthor.Username ASC, tblAuthor.Last_visit DESC;"
End If

'Query the database
rsCommon.Open strSQL, adoCon

do while NOT rsCommon.EOF
 Num = Num + 1
 Visiters_of_Members_Today = rsCommon("Username")
 lngUserID = rsCommon("Author_ID")
  Response.Write("<span class=""smltext""><a href=""member_profile.asp?PF=" & lngUserID & """>" & Visiters_of_Members_Today & "</a></span><br>")
rsCommon.MoveNext
Loop
%>



Posted By: chong67
Date Posted: 09 March 2007 at 8:55pm
Where would I put this code between what lines and what filename?


Posted By: chong67
Date Posted: 03 April 2007 at 9:06pm

Has anyone done it successfully?

Please help if you can.

Thanks!




Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net