<%

' create functions object
	dim funcs, MyConn, ADMSET
	set funcs = New clsFUNC
	if NOT IsObject(MyConn) then call funcs.OpenCONN()
strSQL = "SELECT * from wcal_tblDEFAULTS where CALENDARClient=" & session("Client") & ""
	set ADMSET = Server.CreateObject("ADODB.Recordset")
		ADMSET.CursorLocation = 3
		ADMSET.Open strSql, my_conn
		ADMSET.CacheSize = 100
		if NOT (ADMSET.BOF OR ADMSET.EOF) then

' create mail object
			dim MAILOBJ
			set MAILOBJ = new clsEMAIL
			MAILOBJ.Sender 		= ADMSET("MailSENDER")
			MAILOBJ.SMTP		= ADMSET("MailSMTP")
			MAILOBJ.HTMLFormat	= ADMSET("MAILHTMLFormat")
			MAILOBJ.MailProg	= ADMSET("MAILProg")

			
' create calendar object
			dim CalendarOBJECT
		    Set CalendarOBJECT = New clsWebCalendar


' create USER object
			dim UserOBJECT
		    Set UserOBJECT = New clsUSERS
				UserOBJECT.Connection 				= my_conn
				UserOBJECT.AllowNewUsers			= ADMSET("USERAllowNew")
				UserOBJECT.Paging					= ADMSET("USERPaging")
				UserOBJECT.DefaultPermission		= ADMSET("USERDefaultPermission")
				UserOBJECT.RF1						= ADMSET("USERReqiredF1")
				UserOBJECT.RF2						= ADMSET("USERReqiredF2")
				UserOBJECT.RF3						= ADMSET("USERReqiredF3")
				UserOBJECT.RF4						= ADMSET("USERReqiredF4")
				UserOBJECT.RF5						= ADMSET("USERReqiredF5")
				UserOBJECT.RF6						= ADMSET("USERReqiredF6")
				UserOBJECT.RF7						= ADMSET("USERReqiredF7")
				UserOBJECT.RF8						= ADMSET("USERReqiredF8")
				UserOBJECT.RF9						= ADMSET("USERReqiredF9")
				
				' don't modify those 3 lines
				UserOBJECT.PermissionLevel 			= session("WCAL_PERMISSIONLEVEL")
				UserOBJECT.UserID					= session("WCAL_USERID")
				UserOBJECT.Language 				= session("Lang")

' set up calendar properties

			' calendar DB Connection and clients
					CalendarOBJECT.DBConnection 		= my_conn
					CalendarOBJECT.GLOBALCategories		= ADMSET("CALENDARGLOBALCats")
			' language
					CalendarOBJECT.Language 			= session("Lang")						' default language (1 - 4)
			' calendar behaviour
					CalendarOBJECT.DefaultSRC 			= request.servervariables("SCRIPT_NAME")
					CalendarOBJECT.StartView 			= ADMSET("CALENDARStartView")
					CalendarOBJECT.AllowExcelLink 		= ADMSET("CALENDARAllowExcelLink")
					CalendarOBJECT.AllowPrintLink 		= ADMSET("CALENDARAllowPrintLink")
					CalendarOBJECT.DeleteAfter 			= ADMSET("CALENDARDeleteAfter")
					CalendarOBJECT.Target 				= ADMSET("CALENDARTarget")
					CalendarOBJECT.MaxEventsAtOnce 		= ADMSET("CALENDARMaxEventsAtOnce")

			'Checkings
					CalendarOBJECT.CheckColision 		= ADMSET("CALENDARCheckColision")
					CalendarOBJECT.AllowExculdes 		= ADMSET("CALENDARAllowExculdes")
			
			
			' users,  permissions and IDs
					CalendarOBJECT.AllowSubscribers		= ADMSET("CALENDARAllowSubscribers")

					' IF YOU WILL USE YOUR OWN USER MANAGEMENT SYSTEM, UNCOMMENT THE TWO LINE BELLOW AND SET YOUR OWN PROPERTIES
					CalendarOBJECT.UserID 				= session("WCAL_USERID")				' user ID
					CalendarOBJECT.PermissionLevel 		= session("WCAL_PERMISSIONLEVEL")			' permission level

			' time settings
					CalendarOBJECT.TimeFormat 			= ADMSET("CALENDARTimeFormat")
					CalendarOBJECT.StartTime 			= ADMSET("CALENDARStartTime")
					CalendarOBJECT.EndTime 				= ADMSET("CALENDAREndTime")
					CalendarOBJECT.TimeStep				= ADMSET("CALENDARTimeStep")

			' dates settings
					CalendarOBJECT.ViewAllUpcoming		= ADMSET("CALENDARViewAllUpcoming")
					CalendarOBJECT.CutMonthNames 		= ADMSET("CALENDARCutMonthNames")
					CalendarOBJECT.CutMonthLen			= ADMSET("CALENDARCutMonthLen")
					CalendarOBJECT.DateFormat 			= ADMSET("CALENDARDateFormat")
					CalendarOBJECT.Delimiter			= ADMSET("CALENDARDelimiter")
					CalendarOBJECT.FirstDay 			= ADMSET("CALENDARFirstDay")
					CalendarOBJECT.FirstYearWeek 		= ADMSET("CALENDARFirstYearWeek")
			
			' Views
					CalendarOBJECT.View1		 		= ADMSET("blView1") 'Year view
					CalendarOBJECT.View2		 		= ADMSET("blView2") 'Month view
					CalendarOBJECT.View3		 		= ADMSET("blView3") 'Month view (GRAPHICAL)
					CalendarOBJECT.View4		 		= ADMSET("blView4") 'Week view
					CalendarOBJECT.View5		 		= ADMSET("blView5") 'Week view
					CalendarOBJECT.View6		 		= ADMSET("blView6") 'Day view
					CalendarOBJECT.View7		 		= ADMSET("blView7") 'From Today view

			' Holidays viewing
					CalendarOBJECT.ViewHolidaysDay 		= ADMSET("CALENDARViewHolidaysDay") ' to view holidays in upcoming

			' CustomFields
					CalendarOBJECT.blCust1				= ADMSET("blCust1")
					CalendarOBJECT.blCust2				= ADMSET("blCust2")
					CalendarOBJECT.blCust3				= ADMSET("blCust3")
					CalendarOBJECT.blCust4				= ADMSET("blCust4")
					CalendarOBJECT.blCust5				= ADMSET("blCust5")
					if ADMSET("blCust1")<>"" OR ADMSET("blCust2")<>"" OR ADMSET("blCust3")<>"" OR ADMSET("blCust4")<>"" OR ADMSET("blCust5")<>"" then UseCustFields=TRUE
		End If
	ADMSET.Close
	set ADMSET = nothing
%>