Calendar Manager
	Home  Add Event  View/Edit Events  Add Category  View Categories  Settings  Support  Documentation  Log Out		Add Event Name ? Date ? Month <% monthCounter = 1 Do WHILE monthCounter <= 12 %> <%=MonthName(monthCounter)%> <% monthCounter = monthCounter + 1 Loop %> Day <% dayCounter = 1 Do WHILE dayCounter <= 31 %> <%=dayCounter%> <% dayCounter = dayCounter + 1 Loop %> Year <% yearCounter = Year(Now) Do WHILE yearCounter <= Year(Now) + 10 %> <%=yearCounter%> <% yearCounter = yearCounter + 1 Loop %> Time ? Hour <% hourCounter = 1 Do WHILE hourCounter <= 12 %> <%=hourCounter%> <% hourCounter = hourCounter + 1 Loop %> Minute <% minuteCounter = 0 Do WHILE minuteCounter <= 55%> <%If (minuteCounter < 10) Then%>0<%End If%><%=minuteCounter%> <% minuteCounter = minuteCounter + 5 Loop %> AM/PM AM PM Category ? <% Set RSCATEGORY = Server.CreateObject("ADODB.Recordset") RSCATEGORY.Open "Categories", Conn, 2, 2 Do While Not RSCATEGORY.eof %> "><%=RSCATEGORY("Category")%> <% RSCATEGORY.movenext Loop RSCATEGORY.close set RSCATEGORY = nothing %> Location (optional) ? Description ?