<% '**************************************************************************************** '** Copyright Notice '** Copyright 2003 DUware All Rights Reserved. '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** You may not pass the whole or any part of this application off as your own work. '** All links to DUware and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** No official support is available for this program but you may post support questions at: - '** http://www.duware.com/support '**************************************************************************************** %> <% set rsCount = Server.CreateObject("ADODB.Recordset") rsCount.ActiveConnection = MM_connDUcalendar_STRING rsCount.Source = "SELECT (SELECT COUNT(*) FROM EVENTS WHERE EVE_APPROVED=1 AND EVE_DATED > DATE()) AS EVE_COUNT, COUNT(*) AS TYPE_COUNT FROM TYPES" rsCount.CursorType = 0 rsCount.CursorLocation = 2 rsCount.LockType = 3 rsCount.Open() rsCount_numRows = 0 %> <% Dim rsTypes Dim rsTypes_numRows Set rsTypes = Server.CreateObject("ADODB.Recordset") rsTypes.ActiveConnection = MM_connDUcalendar_STRING rsTypes.Source = "SELECT * FROM TYPES ORDER BY TYPE_NAME ASC" rsTypes.CursorType = 0 rsTypes.CursorLocation = 2 rsTypes.LockType = 1 rsTypes.Open() rsTypes_numRows = 0 %>

There are <%=(rsCount.Fields.Item("EVE_COUNT").Value)%> current events in <%=(rsCount.Fields.Item("TYPE_COUNT").Value)%> categories

<% While (NOT rsTypes.EOF) %> "><%=(rsTypes.Fields.Item("TYPE_NAME").Value)%> <% rsTypes.MoveNext() Wend If (rsTypes.CursorType > 0) Then rsTypes.MoveFirst Else rsTypes.Requery End If %>

<% rsCount.Close() %> <% rsTypes.Close() Set rsTypes = Nothing %>