Apna Calendar Manager
	Home  Add Event  View/Edit Events  Add Category  View Categories  Settings  Support  Documentation  Log Out		Edit Event <% dim RSFORM Set RSFORM = Server.CreateObject("ADODB.Recordset") RSFORM.Open "Events", Conn, 2, 2 RSFORM.Find "ID='" & request("ID") & "'" %> "> "> "> "> "> Name ? " class="inputbox" size="30" maxlength="255"> Date ? Month <% monthCounter = 1 monthSelected = CInt(Month(RSFORM("Date"))) Do WHILE monthCounter <= 12 If (monthSelected <> monthCounter) Then %> <%=MonthName(monthCounter)%> <% Else %> <%=MonthName(monthCounter)%> <% End If monthCounter = monthCounter + 1 Loop %> Day <% dayCounter = 1 daySelected = CInt(Day(RSFORM("Date"))) Do WHILE dayCounter <= 31 If (daySelected <> dayCounter) Then %> <%=dayCounter%> <% Else %> <%=dayCounter%> <% End If dayCounter = dayCounter + 1 Loop %> Year <% yearCounter = Year(Now) yearSelected = CInt(Year(RSFORM("Date"))) Do WHILE yearCounter <= Year(Now) + 10 If (yearSelected <> yearCounter) Then %> <%=yearCounter%> <% Else %> <%=yearCounter%> <% End If yearCounter = yearCounter + 1 Loop %> Time ? Hour <% hourCounter = 1 hourSelected = CInt(Hour(RSFORM("Date"))) If hourSelected >=12 Then hourSelected = hourSelected - 12 End If Do WHILE hourCounter <= 12 If (hourSelected <> hourCounter) Then %> <%=hourCounter%> <% Else %> <%=hourCounter%> <% End If hourCounter = hourCounter + 1 Loop %> Minute <% minuteCounter = 0 minuteSelected = CInt(Minute(RSFORM("Date"))) Do WHILE minuteCounter <= 55 If (minuteSelected <> minuteCounter) Then %> <%If (minuteCounter < 10) Then%>0<%End If%><%=minuteCounter%> <% Else %> <%If (minuteCounter < 10) Then%>0<%End If%><%=minuteCounter%> <% End If minuteCounter = minuteCounter + 5 Loop %> AM/PM <% AMPMSelected = CInt(Hour(RSFORM("Date"))) %> SELECTED<%End If%>>AM = 12) Then%>SELECTED<%End If%>>PM Category ? <% Set RSCATEGORY = Server.CreateObject("ADODB.Recordset") RSCATEGORY.Open "Categories", Conn, 2, 2 Do While Not RSCATEGORY.eof If (RSCATEGORY("Category") <> RSFORM("Category")) Then %> "><%=RSCATEGORY("Category")%> <% Else %> " SELECTED><%=RSCATEGORY("Category")%> <% End If RSCATEGORY.movenext Loop RSCATEGORY.close set RSCATEGORY = nothing %> Location (optional) ? " class="inputbox" size="30" maxlength="255"> Description ? <%=RSFORM("Description")%>   <% RSFORM.close set RSFORM = nothing %>
	Apna Calendar Manager