<% dim RSCOUNT set RSCOUNT = server.createobject("adodb.recordset") SQLCOUNT = "SELECT ID FROM Events" RSCOUNT.Open SQLCOUNT, Conn, 1, 3 dim totalCount totalCount = RSCOUNT.recordcount RSCOUNT.close SQLCOUNT = "SELECT ID FROM Categories" RSCOUNT.Open SQLCOUNT, Conn, 1, 3 dim totalCategoryCount totalCategoryCount = RSCOUNT.recordcount RSCOUNT.close set RSCOUNT = nothing %>

	Calendar Manager
	Home  Add Event  View/Edit Events  Add Category  View Categories  Settings  Support  Documentation  Log Out		Control Panel Total Events: <%=totalCount%> Total Categories: <%=totalCategoryCount%>