MOD to see who have visited the forum for today

<%
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
%>

Has anyone done it successfully?

Please help if you can.

Thanks!