<% 
rem *********************************************************************************
rem This file is setting some more constants for the system
rem Web Calendar system v 3.12, released 2003/07/10
rem Made by Robert Hudec, rhudec@aspik.cz, http://www.aspik.cz
rem *********************************************************************************

Response.AddHeader "cache-control", "no-store, must-revalidate, private, no-cache" 
response.buffer=True

dim StartSTime
StartSTime = Timer()

dim my_conn
dim intUSERPERMISSION
dim intUSERSPERPAGE
dim strDEFTHEME
dim strConnect 
dim dbType
dim intCalendarLang
DIM strCust1
DIM strCust2
DIM strCust3
DIM strCust4
DIM strCust5
DIM blView1
DIM blView2
DIM blView3
DIM blView4
DIM blView5
DIM blView6
DIM blView7
DIM blGLOBALCats
DIM blAllowScheduler
DIM strStartView
DIM EventCOUNT
DIM strSQL
DIM dtDEFSTARTTIME
DIM dtDEFENDTIME
DIM dtDelPeriod
DIM intTimeFormat
DIM intTimeStep
DIM FirstDayOfWeek
DIM FirstWeekOfYear
DIM intDateFormat
DIM intDateDelimiter
DIM blALLOWEXCLUDES
DIM blCheckForColisions
DIM blCHECKEMAILS
DIM intMaxEventsPosted
DIM blVIEWHOLIDAYSYEAR
DIM blVIEWHOLIDAYSMONTH
DIM blVIEWHOLIDAYSWEEK
DIM blVIEWHOLIDAYSDAY
DIM blSHOWALLUPCOMING
DIM blAllowPrintLink
DIM blAllowExcelLink
DIM blCUTMONTHNAMES
DIM INTCUTMONTHNAMES
DIM strleftColTarget
DIM intDEFAULTLANGUAGE
DIM intDEFAULTClient
DIM blAllowSubscribers
DIM blSUBSCRIBER_ADDINFO
DIM blUSEBUILDINUSERS
DIM CalendarSRC
DIM UserSRC
DIM blAllowNewUsers


'	MS SQL Server connection string
'	strConnect 	= "Provider=sqloledb;Data Source=HUDEC-A;Initial Catalog=WebCal;User Id=sa;Password=heslorh;" 
'	dbType 		= "MSSQL"

'	MS Access connections string
	strConnect	= "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/calendar/DB/calendar2.mdb") & ";" '
	dbType 	= "MSACCESS"


' 	Default client
	dim Client: 			Client				= 1
	session("CLIENT")= Client
' 	Default language
	intCalendarLang 	= 3

' Style theme
	strDEFTHEME = "XP"
' LCID Server setting
	session.lcid= 1033	' international settings of app US 1033, UK 2057

'Email validation path
	EmailValidatePath = "/calendar/main/ADMIN.asp"

' don't modify code below

' =========================================================================================================
	session("strConnect") = strConnect
	dim ServerAddress	:	ServerAddress 	= "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO")
	dim IsMSIE :			IsMSIE			= Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE")>0
	select case ucase(dbType)
		case "MSSQL" 
			session("StrTRUE") 			= "1" 			' Logické True (MSSQL=1, MySQL=-1)
			session("Vdate")			= 2 			' (1 - MySQL, 2, 4 - MSSQL) ' Rozdíly v typu data podle typu serveru (Pro 2n platí eíslo 2)
		case "MSACCESS"
			session("StrTRUE") 			= TRUE 			' Logické True (MSSQL=1, MySQL=-1)
			session("Vdate")			= 3 			' (1 - MySQL, 2, 4 - MSSQL) ' Rozdíly v typu data podle typu serveru (Pro 2n platí eíslo 2)
			session("IsACCESS")			= "*"
	end select
	
	if session("WCAL_USERID") = "" then session("WCAL_USERID") = 0
	session("WCAL_ALTERNATEROW")=""


	if session("CLIENT")="" or IsNull(session("CLIENT")) then
		Client				= 999
		session("CLIENT")= Client
	end if

	if request.querystring("Client")<>"" then
		session("Client") = request.querystring("Client")
	end if
	if session("Client") = "" then session("Client")=Client

	if request.queryString("Lang")<>"" then
		session("LANG")	= request.queryString("Lang")
	end if
	if session("lang") 			= "" then session("lang") = intCalendarLang


' create functions object
dim funcs, MyConn, ADMSET
set funcs = New clsFUNC
if NOT IsObject(MyConn) then call funcs.OpenCONN()
' Change Client according to querystring("Client") Value
	if request.querystring("Client")<>"" then
			session("Client")=request.querystring("Client")
	end if
	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


' 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 4 lines
				if session("WCAL_PERMISSIONLEVEL")="" or IsNull(session("WCAL_PERMISSIONLEVEL")) then session("WCAL_PERMISSIONLEVEL")="0"
'				session("WCAL_PERMISSIONLEVEL") 	= ADMSET("USERDefaultPermission")
				UserOBJECT.PermissionLevel 			= session("WCAL_PERMISSIONLEVEL")
				UserOBJECT.UserID					= session("WCAL_USERID")
				UserOBJECT.Language 				= session("Lang")

' set up calendar properties

			' calendar DB Connection and clients
					blGLOBALCats		= ADMSET("CALENDARGLOBALCats")
			' calendar behaviour
					CalendarSRC 			= request.servervariables("SCRIPT_NAME")
					strStartView			= ADMSET("CALENDARStartView")
					blAllowExcelLink 		= ADMSET("CALENDARAllowExcelLink")
					blAllowPrintLink 		= ADMSET("CALENDARAllowPrintLink")
					dtDelPeriod				= ADMSET("CALENDARDeleteAfter")
					strleftColTarget 		= ADMSET("CALENDARTarget")
					intMaxEventsPosted 		= ADMSET("CALENDARMaxEventsAtOnce")

			'Checkings
					blCheckForColisions 	= ADMSET("CALENDARCheckColision")
					blALLOWEXCLUDES 		= ADMSET("CALENDARAllowExculdes")
			
			
			' users,  permissions and IDs
					blAllowSubscribers		= ADMSET("CALENDARAllowSubscribers")

					' IF YOU WILL USE YOUR OWN USER MANAGEMENT SYSTEM, UNCOMMENT THE TWO LINE BELLOW AND SET YOUR OWN PROPERTIES
					intUSERPERMISSION 		= session("WCAL_PERMISSIONLEVEL")			' permission level
			' time settings
					intTimeFormat 			= ADMSET("CALENDARTimeFormat")
					dtDEFSTARTTIME 			= ADMSET("CALENDARStartTime")
					dtDEFENDTIME 			= ADMSET("CALENDAREndTime")
					intTimeStep				= ADMSET("CALENDARTimeStep")

			' dates settings
					blSHOWALLUPCOMING		= ADMSET("CALENDARViewAllUpcoming")
					blCUTMONTHNAMES 		= ADMSET("CALENDARCutMonthNames")
					INTCUTMONTHNAMES		= ADMSET("CALENDARCutMonthLen")
					intDateFormat 			= ADMSET("CALENDARDateFormat"): session("DateFormat") = intDateFormat
					intDateDelimiter		= ADMSET("CALENDARDelimiter"): session("DateDelimiter") = intDateDelimiter
					FirstDayOfWeek		 	= ADMSET("CALENDARFirstDay"): session("FirstDayOfWeek") = FirstDayOfWeek
					FirstWeekOfYear 		= ADMSET("CALENDARFirstYearWeek")
			
			' Views
					blView1		 		= ADMSET("blView1") 'Year view
					blView2		 		= ADMSET("blView2") 'Month view
					blView3		 		= ADMSET("blView3") 'Month view (GRAPHICAL)
					blView4		 		= ADMSET("blView4") 'Week view
					blView5		 		= ADMSET("blView5") 'Week view
					blView6		 		= ADMSET("blView6") 'Day view
					blView7		 		= ADMSET("blView7") 'From Today view

			' Holidays viewing
					blVIEWHOLIDAYSDAY 		= ADMSET("CALENDARViewHolidaysDay") ' to view holidays in upcoming

			' CustomFields
					strCust1				= ADMSET("blCust1")
					strCust2				= ADMSET("blCust2")
					strCust3				= ADMSET("blCust3")
					strCust4				= ADMSET("blCust4")
					strCust5				= 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


	dim CategoryFilterLEVELS
	session("DateDelimiter")	= intDateDelimiter
	call CategoryFilter(request("wcal_category"))				' Filters
	call LocationFilter(request("wcal_loc"))					' Filters
	
	if session("GROUP_ACCESS_READ")="" then session("GROUP_ACCESS_READ")=0
	if session("GROUP_ACCESS_WRITE")="" then session("GROUP_ACCESS_WRITE")=0
	session("GROUP_ACCESS_READ") = "0"
	session("GROUP_ACCESS_WRITE") = "0"
	if session("WCAL_USERID")<>0 then
		strSQL="SELECT usergroup.IDCAT_READ, usergroup.IDCAT_WRITE, useringroup.IDUser FROM useringroup INNER JOIN usergroup ON useringroup.IDGroup = usergroup.IDUserGroup where useringroup.IDUser=" & session("WCAL_USERID")
		set GroupSET = Server.CreateObject("ADODB.Recordset")
		GroupSET.CursorLocation = 3
		GroupSET.Open strSql, my_conn
		GroupSET.CacheSize = 100
		do until GroupSET.EOF
			session("GROUP_ACCESS_READ") = session("GROUP_ACCESS_READ") & GroupSET("IDCAT_READ") & ","
			session("GROUP_ACCESS_WRITE") = session("GROUP_ACCESS_WRITE") & GroupSET("IDCAT_WRITE") & ","
		GroupSET.MoveNext
		Loop
		GroupSET.close
		set GroupSET=nothing
	end if

	if right(session("GROUP_ACCESS_READ"),1)= "," then session("GROUP_ACCESS_READ")=left(session("GROUP_ACCESS_READ"),Len(session("GROUP_ACCESS_READ"))-1)
	if right(session("GROUP_ACCESS_WRITE"),1)= "," then session("GROUP_ACCESS_WRITE")=left(session("GROUP_ACCESS_WRITE"),Len(session("GROUP_ACCESS_WRITE"))-1)

	session("CATEGORY_ACCESS_READ") = ""
	strSQL = "SELECT IDCat from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND (blRESTRICTED=0 OR (blRESTRICTED=" & session("STRTRUE") & " AND IDCat In(" & session("GROUP_ACCESS_READ") & "))) order by name ASC"
	set CatList = Server.CreateObject("ADODB.Recordset")
		CatList.CursorLocation = 3
		CatList.Open strSql, my_conn
		CatList.CacheSize = 100
		do until CatList.EOF
			session("CATEGORY_ACCESS_READ") = session("CATEGORY_ACCESS_READ") & CatList("IDCat") & ","
			CatList.MoveNext
		Loop
		CatList.Close
	set CatList = nothing
	session("CATEGORY_ACCESS_READ") = session("CATEGORY_ACCESS_READ") & "0"
	
	session("CATEGORY_ACCESS_WRITE") = ""
	strSQL = "SELECT IDCat from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND (IDCat In(" & session("GROUP_ACCESS_WRITE") & ") OR PublicWRITE<>0) order by name ASC"
	set CatList = Server.CreateObject("ADODB.Recordset")
		CatList.CursorLocation = 3
		CatList.Open strSql, my_conn
		CatList.CacheSize = 100
		do until CatList.EOF
			session("CATEGORY_ACCESS_WRITE") = session("CATEGORY_ACCESS_WRITE") & CatList("IDCat") & ","
			CatList.MoveNext
		Loop
		CatList.Close
	set CatList = nothing
	session("CATEGORY_ACCESS_WRITE") = session("CATEGORY_ACCESS_WRITE") & "0"

%>


<!--#include virtual="/calendar/languages/wcal_lang_1.asp"-->
<!--#include virtual="/calendar/languages/user_lang_1.asp"-->

<!--#include virtual="/calendar/languages/wcal_lang_2.asp"-->
<!--#include virtual="/calendar/languages/user_lang_2.asp"-->

<!--#include virtual="/calendar/languages/wcal_lang_3.asp"-->
<!--#include virtual="/calendar/languages/user_lang_3.asp"-->

<!--#include virtual="/calendar/languages/wcal_lang_4.asp"-->
<!--#include virtual="/calendar/languages/user_lang_4.asp"-->