<%
function CAL_webCalendar()
dim sH : sH = ""
if request("SH")=1 then 
	call CAL_ShowHide()
	response.redirect Request.ServerVariables("HTTP_REFERER")
end if

select case request("CHANGE")
	case "EVENT_ADD"		sH = sH & CAL_EVENT_ADD()
	case "EVENT_ADDEXE"		sH = sH & CAL_EVENT_ADDEXE()
	case "EVENT_EDIT",_
		 "EVENT_EDIT1"		sH = sH & CAL_EVENT_EDIT()
	case "EVENT_EDITEXE",_
		 "EVENT_EDITEXE1"	sH = sH & CAL_EVENT_EDITEXE()
	case "EVENT_DELETE",_
		 "EVENT_DELETEVAL",_
		 "EVENT_DEL_LISTALL",_
		 "EVENT_DELETE1"	sH = sH & CAL_EVENT_DELETE()
	case "EVENT_VALIDATE"	sH = sH & CAL_EVENT_LIST("VALIDATE","")
	case "EVENT_VALIDATEEXE"	sH = sH & CAL_EVENT_VALIDATEEXE()
	case "EVENT_LISTALL"	sH = sH & CAL_EVENT_LIST("LIST","")
	case "CATEGORY_MANAGE"	sH = sH & CAL_CATEGORY_MANAGE()
	case "CATEGORY_ADD"	 	sH = sH & CAL_CATEGORY_ADD()
	case "CATEGORY_ADDEXE" 	sH = sH & CAL_CATEGORY_ADDEXE()
	case "CATEGORY_EDIT" 	sH = sH & CAL_CATEGORY_EDIT()
	case "CATEGORY_EDITEXE"	sH = sH & CAL_CATEGORY_EDITEXE()
	case "CATEGORY_DELETE" 	sH = sH & CAL_CATEGORY_DELETE()
	case "Subscribe"		sH = sH & CAL_SUBSCRIBER_ADD()
	case "SubscribeExe"		sH = sH & CAL_SUBSCRIBER_ADDEXE()
	case "UnSubscribe"		sH = sH & CAL_SUBSCRIBER_UNSUBSCRIBE()
	case "UnSubscribeExe"	sH = sH & CAL_SUBSCRIBER_UNSUBSCRIBEEXE()
	case "SendPass"			sH = sH & CAL_SUBSCRIBER_SENDPASSWORD()
	case "SendPassExe"		sH = sH & CAL_SUBSCRIBER_SENDPASSWORDEXE()
	case "SEND_MAIL"		sH = sH & CAL_SENDMAIL()
	case "SEND_MAILEXE"		sH = sH & CAL_SENDMAILEXE()
	case "SUBSCRIBER_LIST"	sH = sH & CAL_SUBSCRIBER_LIST()
	case "SUBSCRIBER_EDIT"	sH = sH & CAL_SUBSCRIBER_EDIT()
	case "SUBSCRIBER_EDITEXE"	sH = sH & CAL_SUBSCRIBER_EDITEXE()
	case "SUBSCRIBER_DELETE"	sH = sH & CAL_SUBSCRIBER_DELETE()
	case "SUBSCRIBER_SELECT"	sH = sH & CAL_SUBSCRIBER_SELECT()
	case "SUBSCRIBER_LOCKEXE"	sH = sH & CAL_SUBSCRIBER_LOCKEXE()
	case "AREA", "AREAADDNEW", "AREAADDNEWEXE", "AREAEDIT", "AREAEDITEXE", "AREADELETE"	sH = sH & CAL_Area()
	case "ADMIN", "ADMINEXE"	sH = sH & CAL_ADMIN()
	case "LOCATION", "LOCATION_ADD", "LOCATION_EDIT", "LOCATION_EDITEXE", "LOCATION_DELETE"	sH = sH & CAL_Wcal_Location()
	case else
	' We will display list of events
		select case request("View")
			case "Month", "MonthGraphical"	sH = sH & CAL_ViewMonth()
			case "Week"						sH = sH & CAL_ViewWeek()
			case "WeekPlace"				sH = sH & CAL_ViewWeek1()
			case "Day", "Day1"				if blView6=1 then
												sH = sH & CAL_ViewDay()
											else
												sH = sH & CAL_ViewDay1()
											end if
			case "Event", "EventVal"		sH = sH & CAL_ViewEvent(DtDate, request("IDEvent"))
			case "Search"					sH = sH & CAL_ViewSearchList()
			case "Year"						sH = sH & CAL_ViewYear()
			case "FromToday"				sH = sH & CAL_VIEW_FROMTODAY()
			case else		
				' according to start view value we will display it
				select case ucase(strStartView)
					case "DAY" 				response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=Day&Q_DATE=" & funcs.QryDate(date())
					case "WEEK" 			response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=Week&Q_DATE=" & funcs.QryDate(date())
					case "SCHEDULER"		response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=WeekPlace&Q_DATE=" & funcs.QryDate(date())
					case "MONTHGRAPHICAL" 	response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=MonthGraphical&Q_DATE=" & funcs.QryDate(date())
					case "FROMTODAY"	 	response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=FromToday"
					case else	 			response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=Month&Q_DATE=" & funcs.QryDate(date())
				end select
		end select
end select
call CAL_DeleteOldEvents()										' delete old events
CAL_webCalendar  =sH
end function 
%>