<% response.buffer = true %>
<%

	varDayStart = Request.Form("selDayStart")
	varMonthStart = Request.Form("selMonthStart")
	varYearStart = Request.Form("selYearStart")
	varHourStart = Request.Form("selHourStart")
	varMinuteStart = Request.Form("selMinuteStart")

	varDayEnd = Request.Form("selDayEnd")
	varMonthEnd = Request.Form("selMonthEnd")
	varYearEnd = Request.Form("selYearEnd")
	varHourEnd = Request.Form("selHourEnd")
	varMinuteEnd = Request.Form("selMinuteEnd")

	varShortDesc = Request.Form("SHORT_DESC")
	varEntryText = Request.Form("ENTRY_TEXT")


	dateStart = varMonthStart & "/" & varDayStart & "/" & varYearStart & " " & varHourStart & ":" & varMinuteStart & ":00"
	dateEnd = varMonthEnd & "/" & varDayEnd & "/" & varYearEnd & " " & varHourEnd & ":" & varMinuteEnd & ":00"

	Set objConnect = Server.CreateObject("ADODB.Connection")
	objConnect.Open "DBQ=" & Server.Mappath("db\SIMSShell_REVISED.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

	
	If Request.Form("chkmain") = "on" Then
         sqlStatement = "INSERT INTO Calendar(CALENDAR_OF, ENTRY_TEXT, DATE_START, DATE_END, SHORT_DESC, ENTERED_BY) VALUES('MAIN', '" & varEntryText & "', #" & dateStart & "#, #" & dateEnd & "#, '" & varShortDesc & "', '" & session("STAFF_ID") & "')"
	Else
	 sqlStatement = "INSERT INTO Calendar(CALENDAR_OF, ENTRY_TEXT, DATE_START, DATE_END, SHORT_DESC, ENTERED_BY) VALUES('" & session("STAFF_ID") & "', '" & varEntryText & "', #" & dateStart & "#, #" & dateEnd & "#, '" & varShortDesc & "', '" & session("STAFF_ID") & "')"
	End If
	set rsConnect = objConnect.execute(sqlStatement)


	Response.Redirect("logon.asp")

%>