Web Wiz Forums Modifications - MOD: daily list of members...

Print Page | Close Window

MOD: daily list of members...

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=22243
Printed Date: 30 March 2026 at 7:27am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: MOD: daily list of members...

Posted By: JVRudnick
Subject: MOD: daily list of members...
Date Posted: 21 December 2006 at 9:11pm

Hi....

on our other VB forum, we were able to show a list of members who had visited each day...it'd add a new one each time a member came to the site.

such a thing for this WW forum?

Jim

-------------

http://www.thebeatlesforum.com -
thebeatlesforum.com
Love me Do!

Replies:

Posted By: myhyipforum.com
Date Posted: 26 December 2006 at 2:32pm

<tr class="tableSubLedger">
	<td colspan="2">Who had visited the forum today</td>
</tr>
<tr class="tableRow">
	<td width="4%" align="center"><img src="<% = strImagePath %>active_users.gif" alt="<% = strTxtActiveUsers %>" width="32" height="30" /></td>
	<td width="96%" align="left">
<%
'addons

Dim Num
Dim Visiters_of_Members_Today
Dim LngMmeber_Vistor_ID
Dim GroupID_type
dim gun

Num = 0 

'Get the now date with time off-set
dtmNow = getNowDate()

'If intGroupID = 2 Then
'   Response.Write(vbCrLf & "You are not allowed to see visiters of today.") 
'Else

'response.Write(dtmnow & "asdas")

 strSQL = "SELECT " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Group_ID " 
 strSQL = strSQL & "FROM " & strDbTable & "Author" & strDBNoLock & " "
 strSQL = strSQL & "WHERE day(" & strDbTable & "Author.Last_visit) = " & day(dtmnow) & _
 	" AND month(" & strDbTable & "Author.Last_visit) = " & month(dtmnow) & _
	" AND year(" & strDbTable & "Author.Last_visit) = year(getdate()) "
 strSQL = strSQL & "ORDER BY " & strDbTable & "Author.Last_visit DESC;"

'response.Write(strSQL)

'Query the database
rsCommon.Open strSQL, adoCon
 do while NOT rsCommon.EOF
 Num = Num + 1
 Visiters_of_Members_Today = rsCommon("Username")
 LngMmeber_Vistor_ID = rsCommon("Author_ID")
 GroupID_type = rsCommon("Group_ID")
  	If GroupID_type = 1 Then Response.Write(vbCrLf & " <a href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """><span style=""font-weight:bold;"">" & Visiters_of_Members_Today & "</span></a>") 
 	If GroupID_type = 3 Then Response.Write(vbCrLf & " <a href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>") 
 	If GroupID_type = 4 Then Response.Write(vbCrLf & " <a href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>") 
 	If GroupID_type = 5 Then Response.Write(vbCrLf & " <a href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>") 
 	If GroupID_type = 6 Then Response.Write(vbCrLf & " <a href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>") 
 	If GroupID_type > 6 Then Response.Write(vbCrLf & " <a href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>") 

 rsCommon.MoveNext
 if NOT rsCommon.EOF then response.Write(", ")
Loop
%>
<br />
<br />
<%
	Response.Write("  <p align=""left"" style=""font-size:14px"">" & Num & " members visited the forum today.</p>")
'End if

%></td></tr>






  <%

'addons
'Clean up
Call closeDatabase()









'If birthdays is enabled show who has a birthday today
If strBirthdays <> "" Then

-------------
- READ FIRST http://webwizguide.info/bbs/forum_posts.asp?TID=22292 - Guide to Modifications .. Removing Ads ..

Posted By: ToJaRo
Date Posted: 28 December 2006 at 1:29am

Is this Mod just for Access? I have a SQL forum and get the following error:

Microsoft VBScript runtime error '800a01a8'

Object required

/default.asp, line 834

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: ToJaRo
Date Posted: 28 December 2006 at 1:29am

This is the line of code it references:

rsCommon.Open strSQL, adoCon

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: g�lge
Date Posted: 28 December 2006 at 3:33am

there must be a code like that before line 834

'Clean up
Call closeDatabase()

find and delete this code.

___________________________________________________________________________________________________________
THE ARMENIANS SAY THEY WERE MURDERED BUT DOCUMENTS TELL DIFFERENT. THE DOCUMENTS ARE FULL OF WOMEN,
BABIES AND CHILDREN PHOTOS THAT RAPED,KILLED AND BURNED WILDLY BY ARMENIAN TERRORISTS.
PLEASE VISIT http://www.tallarmeniantale.com/ - www.tallarmeniantale.com AND SEE THE TRUTH.
___________________________________________________________________________________________________________

Posted By: Blasser
Date Posted: 10 January 2007 at 3:00pm

I get an error that the "num" veriable has not been declared.. Any help?

Posted By: kpdillon
Date Posted: 13 January 2007 at 7:46pm

Something about this query is producing the following error in this mod.. Any ideas?

strSQL = "SELECT " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Group_ID "
strSQL = strSQL & "FROM " & strDbTable & "Author" & strDBNoLock & " "
strSQL = strSQL & "WHERE day(" & strDbTable & "Author.Last_visit) = " & day(dtmnow) & _
" AND month(" & strDbTable & "Author.Last_visit) = " & month(dtmnow) & _
" AND year(" & strDbTable & "Author.Last_visit) = year(getdate()) "
strSQL = strSQL & "ORDER BY " & strDbTable & "Author.Last_visit DESC;"

Microsoft OLE DB Provider for ODBC Drivers error '80040e31'

[MySQL][ODBC 3.51 Driver][mysqld-5.0.22-community-nt]FUNCTION webwiz.getdate does not exist

/forum/includes/mod_who_visited.asp, line 42

Posted By: kpdillon
Date Posted: 19 January 2007 at 3:01am

anyone?

Posted By: kkimber
Date Posted: 20 January 2007 at 7:27am

i have a one line code change;

if intGroupID = 2 OR blnActiveMember = False OR blnBanned Then
Response.Write(vbCrLf & "You are not allowed to see visiters of today.")
Else

Note: Original code is successfully running at v8.05.