MOD: daily list of members...

<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