<% If IsDate(request("Date_Month") + "/" + request("Date_Day") + "/" + request("Date_Year")) Then Set RSEVENTS = Server.CreateObject("ADODB.Recordset") RSEVENTS.Open "Events", Conn, 2, 2 RSEVENTS.Find "ID='" & request("ID") & "'" RSEVENTS("Event_Name") = request("Event_Name") RSEVENTS("Description") = request("Description") RSEVENTS("Category") = request("Category") eventDate = request("Date_Month") + "/" + request("Date_Day") + "/" + request("Date_Year") + " " + request("Time_Hour") + ":" + request("Time_Minute") + " " + request("Time_AMPM") RSEVENTS("Date") = eventDate If (request("Location") = "") Then RSEVENTS("Location") = Null Else RSEVENTS("Location") = request("Location") End If RSEVENTS.update RSEVENTS.close set RSEVENTS = nothing End If %>

	Calendar Manager
	Home  Add Event  View/Edit Events  Add Category  View Categories  Settings  Support  Documentation  Log Out		Edit Event <%If IsDate(request("Date_Month") + "/" + request("Date_Day") + "/" + request("Date_Year")) Then%> The event has been updated. &page=<%=Request("page")%>&SearchFor=<%=Request("SearchFor")%>&SearchWhere=<%=Request("SearchWhere")%>"><< Return <%Else%> <%=Monthname(request("Date_Month"))%> <%=request("Date_Day")%>, <%=request("Date_Year")%> is not a valid date. &orderby=<%=Request("orderby")%>&page=<%=Request("page")%>&SearchFor=<%=Request("SearchFor")%>&SearchWhere=<%=Request("SearchWhere")%>"><< Try Again <%End If%>