Web Wiz Forums Modifications - MOD to see who have visited the forum for today

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!