<%
' #################################
public function CAL_EVENT_DELETE()
' We will delete only this occassion
	IF REQUEST("CHANGE")="EVENT_DELETE1" THEN
		my_conn.execute("DELETE from wcal_eventrec where EVENTDATE="& funcs.vdate(request("Q_DATE")) & " and IDEvent="&request("IDEvent"))
	ELSE
' we will delete all
		my_conn.execute("DELETE from wcal_events where IDEvent="&request("IDEvent"))
		my_conn.execute("DELETE from wcal_eventrec where IDEvent="&request("IDEvent"))
		my_conn.execute("DELETE from wcal_eventcat where IDEvent="&request("IDEvent"))
	END IF
	if REQUEST("CHANGE")="EVENT_DELETEVAL" THEN
		response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & session("LANG") & "&DoAction=Calendar&CHANGE=EVENT_VALIDATE"
	elseif REQUEST("CHANGE")="EVENT_DEL_LISTALL" then
		response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & session("LANG") & "&DoAction=Calendar&CHANGE=EVENT_LISTALL"
	else
		response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar"
	end if
end function
%>