Manage Calendars<%If Session("o12calgold_isAdmin") Then%>         Manage Users<%End If%><%If Session("o12calgold_isAdmin") Then%>         Manage Categories<%End If%><%If Session("o12calgold_isAdmin") Then%>         Manage Styles<%End If%><%If Session("o12calgold_isAdmin") Then%>         Import/Export<%End If%><%If Session("o12calgold_isAdmin") Then%>         Settings<%End If%>         Logout Current User: <%=Session("o12calgold_Name")%>

Ocean12 News    System Details <% Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT Count(*) AS cSum FROM o12calgold_Calendars" RS.Open SQL, Conn, 1, 3 cSum = FormatNumber(RS("cSum"), 0) RS.Close SQL = "SELECT Count(*) AS cEvents FROM o12calgold_Events" RS.Open SQL, Conn, 1, 3 cEvents = FormatNumber(RS("cEvents"), 0) RS.Close SQL = "SELECT Count(*) AS cUsers FROM o12calgold_Users" RS.Open SQL, Conn, 1, 3 cUsers = FormatNumber(RS("cUsers"), 0) RS.Close Set RS = Nothing %> Calendars: <%=cSum%> Events: <%=cEvents%> Users: <%=cUsers%> Application Version: 2.00 Mail Components Installed: <%For i=0 to UBound(mailComponent) If Not IsObjInstalled(mailComponent(i)) Then ' Not Found Else ' Found Response.Write "   " & mailComponentName(i) & " " End If Next %>

Maintained with the Ocean12 Calendar Manager Gold v2.00 ©2002-2007 Ocean12 Technologies, all rights reserved.