Changing "Visitors of Today" time base ??

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi all,
I have WWF version 8.0 RC1.1.

In the main page, there is "visitors of today" section. But the count goes zero at 00:00 am. So i need a code that provide "visitors of last 24 hours" or "visitors of last 2 days" etc. 

Thanks in advance.
I think the related codes are as follows:

Dim Num
Num = 0 
Dim Visiters_of_Members_Today
Dim LngMmeber_Vistor_ID
Dim GroupID_type

If strDatabaseType = "SQLServer" Then
 strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_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.Last_visit DESC;"
Else
 strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_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.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")
 LngMmeber_Vistor_ID = rsCommon("Author_ID")
 GroupID_type = rsCommon("Group_ID")