% set conn=server.CreateObject("adodb.connection") conn.Open application("connstr") set rs=conn.Execute("SELECT DISTINCT calling,count(*) as cnt,sum(money) as totalmoney FROM enterprise WHERE calling is not null GROUP BY calling") %>