<% ' ################################# public function CAL_ViewEvent(DtDate, IDEVent) dim setEvent dim dtActual dim CatName dim ViewDayV3 dim countRec dim cnRecur, DayColumns, ContactEmailDesc, URLDesc dim sH : sH = "" DtDate = cdate(DtDate) if (request("Log") <> "") then session("WCAL_USERID") = request("Log") 'due to email validation intUSERPERMISSION="1" end if strSql = "SELECT *,wcal_events.*, wcal_eventrec.description as description FROM (wcal_eventcat LEFT JOIN (wcal_events LEFT JOIN wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent) ON wcal_eventcat.IDEvent = wcal_events.IDEvent) INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat where wcal_eventrec.Lang=" & session("LANG")& " and wcal_eventrec.Client=" & session("Client") & " and wcal_eventrec.EventDate=" & funcs.vdate(request("Q_DATE")) & " AND wcal_events.IDEvent = " & IDEVent & " AND wcal_events.IDUser > -1" if intUSERPERMISSION="1" then strSql = "SELECT *,wcal_events.*, wcal_eventrec.description as description FROM (wcal_eventcat LEFT JOIN (wcal_events LEFT JOIN wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent) ON wcal_eventcat.IDEvent = wcal_events.IDEvent) INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat where wcal_eventrec.Lang=" & session("LANG")& " and wcal_eventrec.Client=" & session("Client") & " and wcal_eventrec.EventDate=" & funcs.vdate(request("Q_DATE")) & " AND wcal_events.IDEvent = " & IDEVent end if if Session("FILTER_CATEGORY") <> "" then strSQL = strSQL & " AND wcal_eventcat.IDCat IN (" & Session("FILTER_CATEGORY") & "0)" set setEvent= Server.CreateObject("ADODB.Recordset") setEvent.CursorLocation = 3 setEvent.Open strSql, my_conn setEvent.CacheSize = 100 ' CatName = my_conn.Execute ("SELECT Name from wcal_category left join wcal_eventcat on wcal_eventcat.IDCat = wcal_category.IDCat where wcal_eventcat.IDEvent = " & IDEVent)("Name") IDCat = my_conn.Execute ("SELECT wcal_category.IDCat from wcal_category left join wcal_eventcat on wcal_eventcat.IDCat = wcal_category.IDCat where wcal_eventcat.IDEvent = " & IDEVent)("IDCat") ViewDayV3 = dateadd("d",-weekday(dtDate,session("FirstDayOfWeek"))+1,dtDate) sH = sH & "" & VbCrlf sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & CAL_ViewIcons(DtDate, "D; W; WS; M; MG; FT; Y; B;") sH = sH & "

" & VbCrlf sH = sH & "" & VbCrLf ' EVENT HEADER sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' EVENT BODY ' Place sH = sH & "" & VbCrLf sH = sH & " " sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' Date sH = sH & "" & VbCrLf sH = sH & " " sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' Time sH = sH & "" & VbCrLf sH = sH & " " sH = sH & " " & VbCrLf sH = sH & CAL_CheckTIMEINPUT(setEvent("StartTime"), setEvent("EndTime")) & "" & VbCrLf sH = sH & "" & VbCrLf ' Description sH = sH & "" & VbCrLf sH = sH & " " sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' Category sH = sH & "" & VbCrLf sH = sH & " " sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' Email if setEvent("ContactEmail")<>"" AND setEvent("ContactEmail")<>"mailto://" then sH = sH & "" & VbCrLf ContactEmailDesc = setEvent("ContactEmailDesc") if setEvent("ContactEmailDesc")="" then ContactEmailDesc = setEvent("ContactEmail") sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf end if ' URL Link if setEvent("URLLINK")<>"" AND setEvent("URLLINK")<>"http://" AND (NOT IsNull(setEvent("URLLINK"))) then URLDesc = setEvent("URLNAME") if setEvent("URLNAME")="" then URLDesc = "Click Here" sH = sH & "" & VbCrLf sH = sH & " " sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf end if ' Custfields if UseCustFields then if strCust1<>"" then sH = sH & "" & VbCrLf if strCust2<>"" then sH = sH & "" & VbCrLf if strCust3<>"" then sH = sH & "" & VbCrLf if strCust4<>"" then sH = sH & "" & VbCrLf if strCust5<>"" then sH = sH & "" & VbCrLf end if ' recurrences strSQL="SELECT count(IDEvent) as C from wcal_eventrec where IDEvent=" & IDEVent dim CountID, strICO CountID = my_conn.execute(strSQL)("C") strSQL="SELECT * from wcal_eventrec where IDEvent=" & IDEVent & " order by EventDate ASC" set cnRecur= Server.CreateObject("ADODB.Recordset") cnRecur.CursorLocation = 3 cnRecur.Open strSql, my_conn cnRecur.CacheSize = 100 If CountID > 1 then sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf else ' sH = sH & "" & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & "" & VbCrLf end if cnRecur.Close set cnRecur = Nothing ' EDIT/DELETE ICONS dim blCalendar sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "

" & setEvent("EventName") & "
" & application(session("LANG") & "_wcal5") & "	" & setEvent("Place") & "
" & application(session("LANG") & "_NEWS_DATEADD") & "	" & funcs.DateView(request("Q_DATE")) & "
" & application(session("LANG") & "_wcal6") & "	" '& formatdatetime(setEvent("StartTime"), VBLongTime) & "- " & formatdatetime(setEvent("EndTime"), VBLongTime) & "
" & application(session("LANG") & "_wcal7") & "	" & setEvent("Description") & "
" & application(session("LANG") & "_wcal8") & "	" & CATEGORY_FINDTOP(IDCat) & "
" & application(session("LANG") & "_wcal9") & "	" & ContactEmailDesc & "
" & application(session("LANG") & "_wcal9a") & "	" & URLDesc & "
" & strCust1 & "	" & setEvent("Cust1") & "
" & strCust2 & "	" & setEvent("Cust2") & "
" & strCust3 & "	" & setEvent("Cust3") & "
" & strCust4 & "	" & setEvent("Cust4") & "
" & strCust5 & "	" & setEvent("Cust5") & "
" & VbCrLf sH = sH & " " & application(session("LANG") & "_wcal15") & "" & VbCrLf dim DateCACHE do until cnRecur.EOF if month(cnRecur("EventDate"))<>DateCACHE then sH = sH & "
" & monthname(month(cnRecur("EventDate"))) & " " & year(cnRecur("EventDate")) & "	" & VbCrLf end if DateCACHE = month(cnRecur("EventDate")) ' If Day view is enabled if blView6 then sH = sH & "" & funcs.DateView(cnRecur("EventDate")) & " " & VbCrLf else sH = sH & "" & funcs.DateView(cnRecur("EventDate")) & " " & VbCrLf end if cnRecur.MoveNext loop sH = sH & "
" & application(session("LANG") & "_wcal16") & "
" & VbCrLf if (intUSERPERMISSION="1" and request("View") = "EventVal") then sH = sH & " " & VbCrLf end if if intUSERPERMISSION="1" OR (session("WCAL_USERID") = setEvent("IDUser") AND intUSERPERMISSION="2") or blCalendar then strICO="" if CountID>1 then strICO="ALL" ' Ico edit sH = sH & " " & VbCrLf ' Ico delete sH = sH & " " & VbCrLf strSQL="SELECT COUNT(IDEvent) as C from wcal_eventrec where IDEvent=" & IDEvent CountID = my_conn.execute(strSQL)("C") if CountID>1 then ' Ico edit sH = sH & " " & VbCrLf ' Ico delete sH = sH & " " & VbCrLf end if end If sH = sH & "

" & VbCrLf setEvent.Close set setEvent=Nothing CAL_ViewEvent= sH end function ' ################################# Public Function CAL_EVENT_LIST(listType, intAdminID) dim sH : sH = "" dim strSQL, Events, QDate, intEVENTPAGING, Navigation, HowMany, item strSQL = "SELECT wcal_events.IDEvent, wcal_events.EventName, wcal_events.Description, wcal_events.Place, wcal_category.Name FROM (wcal_events RIGHT JOIN wcal_eventcat ON wcal_events.IDEvent=wcal_eventcat.IDEvent) INNER JOIN wcal_category ON wcal_eventcat.IDCat=wcal_category.IDCat WHERE wcal_events.Client=" & session("Client") & " AND wcal_events.Lang=" & session("LANG") select case ucase(listType) case "VALIDATE" strSQL = strSQL & " AND wcal_events.IDUser=-1" item = "_wcal111" case "LIST" item = "_wcal115" end select if Session("FILTER_CATEGORY") <> "" then StrSql = strSQL & " AND wcal_eventcat.IDCat IN (" & Session("FILTER_CATEGORY") & "0)" if Session("FILTER_LOCATION") <> "" then strSQL = strSQL & " AND wcal_events.Place like '%" & Session("FILTER_LOCATION") & "%'" select case ucase(request("Sort")) case "ID" strSQL = strSQL & " ORDER BY wcal_events.IDEvent" case "NAME" strSQL = strSQL & " ORDER BY wcal_events.EventName, wcal_events.Place" case "DESCR" strSQL = strSQL & " ORDER BY wcal_events.Description, wcal_events.EventName" case "PLACE" strSQL = strSQL & " ORDER BY wcal_events.Place, wcal_events.EventName" case "CATEGORY" strSQL = strSQL & " ORDER BY wcal_category.Name, wcal_events.EventName" case else strSQL = strSQL & " ORDER BY wcal_events.IDEvent" end select set Events = Server.CreateObject("ADODB.Recordset") Events.CursorLocation = 3 Events.Open strSql, my_conn Events.CacheSize = 100 intEVENTPAGING = 20 Navigation = funcs.Paging(intEVENTPAGING, Events, Count, "") sH = sH & application(session("LANG") & "_PAGE:") & Navigation sH = sH & "" & VbCrLf if session("FILTER_CATEGORY") <> "" then sH = sH & "" 'writes list of categories in filter end if sH = sH & "" &_ "" &_ "" &_ "" &_ "" &_ "" set QDate = Server.CreateObject("ADODB.Recordset") QDate.CursorLocation = 3 QDate.CacheSize = 100 if NOT (Events.EOF or Events.BOF) then do until Events.EOF or HowMany = intEVENTPAGING QDate = my_conn.Execute("SELECT TOP 1 EventDate FROM wcal_eventrec WHERE IDEvent=" & Events("IDEvent") & " ORDER BY EventDate") sH = sH & "" & VbCrLf &_ "" & VbCrLf &_ "" & VbCrLf &_ "" & VbCrLf &_ "" & VbCrLf &_ "" & VbCrLf select case ucase(listType) case "VALIDATE" sH = sH & "" case "LIST" sH = sH & "" end select sH = sH & "" & VbCrLf HowMany = HowMany+1 Events.MoveNext loop else sH = sH & "" & VbCrLf end if Events.Close set Events = nothing set QDate = nothing sH = sH & "

" & CAL_SHOWCATFILTERS() & "
ID" if ucase(request("Sort"))="ID" then sH = sH & " " sH = sH & "	" & application(session("LANG") & "_wcal21") if ucase(request("Sort"))="NAME" then sH = sH & " " sH = sH & "	" & application(session("LANG") & "_wcal25") if ucase(request("Sort"))="DESCR" then sH = sH & " " sH = sH & "	" & application(session("LANG") & "_wcal28") if ucase(request("Sort"))="PLACE" then sH = sH & " " sH = sH & "	" & application(session("LANG") & "_wcal8") if ucase(request("Sort"))="CATEGORY" then sH = sH & " " sH = sH & "
" & Events("IDEvent") & "	" & Events("EventName") & "	" & left(Events("Description"),30) & "	" & Events("Place") & "	" & Events("Name") & "	Detail | " & VbCrLf &_ "" & application(session("LANG") & "_wcal113") & " | " & VbCrLf &_ "" & application(session("LANG") & "_wcal36") & "	Detail | " & VbCrLf &_ "" & application(session("LANG") & "_wcal36") & "
" & application(session("LANG") & "_wcal112") & ".

" & VbCrLf CAL_EVENT_LIST = funcs.BOXCreator(application(session("LANG") & item), sH, strDEFTHEME, "", "100%") End Function ' ################################# Public Function CAL_EVENT_VALIDATEEXE dim strSQL, Events if (request("Log") <> "") then session("WCAL_USERID") = request("Log") strSQL = "SELECT * FROM wcal_events WHERE IDEvent=" & request("IDEvent") & " AND IDUser=-1" set Events = Server.CreateObject("ADODB.Recordset") Events.CursorLocation = 3 Events.Open strSql, my_conn Events.CacheSize = 100 if NOT (Events.EOF or Events.BOF) then my_conn.execute("UPDATE wcal_events SET IDUser=" & session("WCAL_USERID") & " WHERE IDEvent=" & request("IDEvent")) CAL_EVENT_VALIDATEEXE = funcs.ShowMessage("EVENT HAS BEEN VALIDATED") else CAL_EVENT_VALIDATEEXE = funcs.ShowMessage("EVENT IS ALREADY VALIDATED") end if Events.Close set Events = nothing CAL_EVENT_VALIDATEEXE = CAL_EVENT_VALIDATEEXE & "" End Function %>