<% 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.addnew 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") + ":00 " + 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		Add Event <%If IsDate(request("Date_Month") + "/" + request("Date_Day") + "/" + request("Date_Year")) Then%> The event has been added. << Return <%Else%> <%=Monthname(request("Date_Month"))%> <%=request("Date_Day")%>, <%=request("Date_Year")%> is not a valid date. << Try Again <%End If%>