|
|
<%
EventDateMo = Request.Form("EventDateMo")
EventDateDay = Request.Form("EventDateDay")
EventDateYear = Request.Form("EventDateYear")
EventType = Request.Form("EventType")
EventTimeHr = Request.Form("EventTimeHr")
EventTimeMin = Request.Form("EventTimeMin")
EventTimeAMPM = Request.Form("EventTimeAMPM")
EventDurationHr = Request.Form("EventDurationHr")
EventDurationMin = Request.Form("EventDurationMin")
Appointment = Request.Form("Event")
EventID = Request.Form("EventID")
DeleteEvent = Request.Form("DeleteEvent")
Dim Prob
Prob = 0
If EventType = "Timed" Then
AllDayEvent = false
Else
AllDayEvent = true
End If
If IsNull(Appointment) OR Appointment = "" Then
%> You need to enter a description of the appointment or event. <%
Prob = 1
End If
If IsNull(EventDateMo) OR EventDateMo = "" or IsNull(EventDateDay) or EventDateDay = "" or IsNull(EventDateYear) or EventDateYear="" Then
%> You need to enter a date. <%
Prob = 1
End If
If (IsNull(EventTimeHr) OR EventTimeHr = "" or IsNull(EventTimeMin) or EventTimeMin="") Then
if EventType = "Timed" then
%> You need to enter a time. <%
Prob = 1
else
EventTimeHr = 0
EventTimeMin = 0
end if
End If
If IsNull(EventDurationHr) OR EventDurationHr = "" Then
DurationHr = 0
End If
If IsNull(EventDurationMin) OR EventDurationMin = "" Then
DurationMin = 0
End If
EventDateFirstDay = CDate(EventDateMo & "/01/" & EventDateYear)
get_LastDateOfMonth EventDateFirstDay, dtLastDateOfMonth
if Day(EventDateDay) > Day(dtLastDateofMonth) then
EventDateDay = Day(dtLastDateofMonth)
end if
EventDate = CDate(EventDateMo & "/" & EventDateDay & "/" & EventDateYear)
If EventType = "Timed" Then
EventTime = CDate(EventTimeHr & ":" & EventTimeMin & " " & EventTimeAMPM)
EventDurationMin = CInt(EventDurationMin)
Else
EventTime = CDate("12:00 AM")
EventDurationHr = 0
EventDurationMin = 0
End If
If Member = "" or IsNull(Member) or MemberID="0" or Member= "0" Then
%> You need to Sign In as a member. You're session may have expired. <%
Prob = 1
Member = 0
End If
If Prob = 0 Then
Set CalTable = CreateObject("ADODB.Recordset")
if EventID = 0 then
CalTable.Open "Appointments", "DSN=frucalendar;", 1, 3, 2
CalTable.AddNew
CalTable.Fields("Appointment") = Appointment
CalTable.Fields("Date") = EventDate
CalTable.Fields("Time") = EventTime
CalTable.Fields("DurationHour") = EventDurationHr
CalTable.Fields("DurationMinute") = EventDurationMin
CalTable.Fields("AllDayEvent") = AllDayEvent
CalTable.Fields("Member") = Member
CalTable.Update
CalTable.Close
Response.Redirect("moxycalendar.asp?date="&EventDate&"&view=day")
else
CalTable.Open "Appointments where ID=" & EventID & " and Member='" & Member & "'", "DSN=frucalendar;", 1, 3, 2
If Not CalTable.EOF Then
If Not DeleteEvent Then
CalTable.Fields("Appointment") = Appointment
CalTable.Fields("Date") = EventDate
CalTable.Fields("Time") = EventTime
CalTable.Fields("DurationHour") = EventDurationHr
CalTable.Fields("DurationMinute") = EventDurationMin
CalTable.Fields("AllDayEvent") = AllDayEvent
CalTable.Fields("Member") = Member
CalTable.Update
CalTable.Close
Else
CalTable.Delete
CalTable.Close
End If
Response.Redirect("moxycalendar.asp?date="&EventDate&"&view=day")
Else
%> Sorry. Can't find the event you want to modify. <%
end if
end if
Else
%>
Go back and enter in all the information.
<%
End If
%>
|