TrackUsers not working in CF7

[boopower]

Here is a custom tag that worked in CF5 but has not worked in CF7. Any
suggestions as to why would be more than helpful.

<!---
Custom Tag Name: TrackUsers.cfm
Author: Bruce Van Horn, Netsite Dynamics LLC
Email: [email]Bruce@NetsiteDynamics.com[/email]
Date: October 11, 2001

Purpose: To allow users to keep track of active users on a server

Requirements: ColdFusion 5.0 or higher

Attributes:
User (required) = "a unique identifier for this user like IP number or
SessionID"
AppName (required) = "Name of the application calling this tag"

Usage Example:
Place this tag in every Application.cfm page on your sever:

<CF_TrackUsers User="#cgi.remote_addr#" AppName="MyApp">

--->

<cflock timeout="30" throwontimeout="No" type="EXCLUSIVE" scope="APPLICATION">
<cfif (not isDefined("Server.qUsers")) OR (NOT IsQuery(Server.qUsers))>
<cfscript>
Server.qUsers = QueryNew("User,AppName,RequestTime");
QueryAddRow(Server.qUsers);
QuerySetCell(Server.qUsers,"User",Attributes.User) ;
QuerySetCell(Server.qUsers,"AppName",Attributes.Ap pName);
QuerySetCell(Server.qUsers,"RequestTime",CreateODB CTime(now()));
</cfscript>
<cfelse>
<cfquery name="qMaxReq" dbtype="query">
select max(requesttime) as lastreq, Count(User) AS RowCount
from Server.qusers
</cfquery>
<cfset ElapsedTime = CreateODBCTime(now()) - qMaxReq.LastReq>
<cfif (TimeFormat(Variables.ElapsedTime,'m') gt 15) OR (qMaxReq.RowCount gt
350)>
<cfscript>
Server.qUsers = "";
Server.qUsers = QueryNew("User,AppName,RequestTime");
</cfscript>
</cfif>
<cfscript>
QueryAddRow(Server.qUsers);
QuerySetCell(Server.qUsers,"User",Attributes.User) ;
QuerySetCell(Server.qUsers,"AppName",Attributes.Ap pName);
QuerySetCell(Server.qUsers,"RequestTime",CreateODB CTime(now()));
</cfscript>
</cfif>
</cflock>

-----------------------
Throws the following error:

Error Occurred While Processing Request
Error Executing Database Query.

Query Of Queries syntax error.
Encountered "Count ( User. Incorrect Select List,

The error occurred in D:\CFusionMX7\CustomTags\TrackUsers.cfm: line 32
Called from
D:\virtualwww\site_effects\clients\mis_splash\mis_ v2\Application.cfm: line 127
Called from D:\CFusionMX7\CustomTags\TrackUsers.cfm: line 32
Called from
D:\virtualwww\site_effects\clients\mis_splash\mis_ v2\Application.cfm: line 127

30 : </cfscript>
31 : <cfelse>
32 : <cfquery name="qMaxReq" dbtype="query">
33 : select max(requesttime) as lastreq, Count(User) AS RowCount
34 : from Server.qusers




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

SQL select max(requesttime) as lastreq, Count(User) AS RowCount from
Server.qusers

Please try the following:
Check the ColdFusion documentation to verify that you are using the correct
syntax.
Search the Knowledge Base to find a solution to your problem.


Browser Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Remote Address 69.153.221.90
Referrer
Date/Time 25-May-05 11:57 AM

Stack Trace (click to expand)
at
cfTrackUsers2ecfm1515940139.runPage(D:\CFusionMX7\ CustomTags\TrackUsers.cfm:32)
at
cfApplication2ecfm695863572.runPage(D:\virtualwww\ site_effects\clients\mis_splas
h\mis_v2\Application.cfm:127) at
cfTrackUsers2ecfm1515940139.runPage(D:\CFusionMX7\ CustomTags\TrackUsers.cfm:32)
at
cfApplication2ecfm695863572.runPage(D:\virtualwww\ site_effects\clients\mis_splas
h\mis_v2\Application.cfm:127)


java.sql.SQLException: <br><b>Query Of Queries syntax error.</b><br>
Encountered "Count ( User.
Incorrect Select List,

at coldfusion.sql.imq.jdbcStatement.parseSQL(jdbcStat ement.java:566)
at coldfusion.sql.imq.jdbcStatement.fetchResult(jdbcS tatement.java:536)
at coldfusion.sql.imq.jdbcStatement.execute(jdbcState ment.java:131)

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

Thanks in advance for your help....

[sdwebguy99]

I got it to work by making a small change... seems like it didnt like the
column name being called "User". When I changed it to count(*) it worked. Then
I changed it to UserID (and renamed the column "User" to "UserID" and that
worked, too). Here is the new custom tag code I used that works:

<cflock timeout="30" throwontimeout="No" type="EXCLUSIVE" scope="APPLICATION">

<cfif (not isDefined("Server.qUsers")) OR (NOT IsQuery(Server.qUsers))>
<cfscript>
Server.qUsers = QueryNew("UserID,AppName,RequestTime");
QueryAddRow(Server.qUsers);
QuerySetCell(Server.qUsers,"UserID",Attributes.Use r);
QuerySetCell(Server.qUsers,"AppName",Attributes.Ap pName);
QuerySetCell(Server.qUsers,"RequestTime",CreateODB CTime(now()));
</cfscript>
<cfelse>
<cfdump var="#Server.qUsers#">
<cfquery name="qMaxReq" dbtype="query">
select max(requesttime) as lastreq, count(UserID) AS RowCount
from Server.qUsers
</cfquery>
<cfset ElapsedTime = CreateODBCTime(now()) - qMaxReq.LastReq>
<cfif (TimeFormat(Variables.ElapsedTime,'m') gt 15) OR (qMaxReq.RowCount gt
350)>
<cfscript>
Server.qUsers = "";
Server.qUsers = QueryNew("UserID,AppName,RequestTime");
</cfscript>
</cfif>
<cfscript>
QueryAddRow(Server.qUsers);
QuerySetCell(Server.qUsers,"UserID",Attributes.Use r);
QuerySetCell(Server.qUsers,"AppName",Attributes.Ap pName);
QuerySetCell(Server.qUsers,"RequestTime",CreateODB CTime(now()));
</cfscript>
</cfif>
</cflock>