<% ' ################################# public function CAL_ViewUpcoming(intAMOUNT) dim strUPCOMCACHE, intUPCOMCOUNTER dim EventList dim sH : sH = "" dim strHEADER, setCAT intAMOUNT = cInt(intAMOUNT) intUPCOMCOUNTER = 0 strUPCOMCACHE = "" sH = sH & "" if dbType = "MSACCESS" then StrSql = "SELECT wcal_events.IDEvent as ID, wcal_events.IDUser, wcal_events.EventName, wcal_eventrec.Description, wcal_events.Place, wcal_events.UserPrivate, wcal_eventrec.EventDate, wcal_eventrec.StartTime, wcal_eventrec.EndTime, wcal_eventcat.IDCat, wcal_eventcat.CatType, wcal_events.Client, wcal_events.Lang, wcal_category.Name " &_ "FROM ((wcal_eventcat INNER JOIN wcal_events ON wcal_eventcat.IDEvent = wcal_events.IDEvent) INNER JOIN wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent) INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat " &_ "WHERE (UserPrivate=0 Or UserPrivate=" & session("WCAL_USERID") & ") AND wcal_events.Lang=" & session("LANG")& " AND wcal_events.Client=" & session("Client") & " AND wcal_eventcat.CatType<>0 and wcal_eventrec.EventDate>=" & funcs.VDate(date) & " and wcal_events.IDUser > -1 " 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") & "%'" if session("wcal_pers") <> "" then strSQL = strSQL & " AND wcal_events.Person = '" & session("wcal_pers") & "'" StrSql = strSQL & "ORDER BY wcal_eventrec.EventDate, wcal_eventrec.StartTime " else StrSql = "SELECT wcal_events.*, wcal_events.IDEvent as ID, wcal_events.IDUser, wcal_events.EventName, wcal_events.Description, wcal_events.Place, " &_ "wcal_events.UserPrivate, wcal_eventrec.EventDate, wcal_eventrec.StartTime, wcal_eventrec.EndTime, wcal_eventcat.IDCat, " &_ "wcal_eventcat.CatType, wcal_events.Client, wcal_events.Lang " &_ "FROM wcal_eventcat INNER JOIN " &_ "wcal_events ON wcal_eventcat.IDEvent = wcal_events.IDEvent INNER JOIN " &_ "wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent " &_ "INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat " &_ "WHERE (wcal_events.UserPrivate=0 Or wcal_events.UserPrivate=" & session("WCAL_USERID") & ") AND wcal_events.Lang=" & session("LANG")& " AND wcal_events.Client=" & session("Client") & " AND wcal_eventcat.CatType<>0 and wcal_eventrec.EventDate>=" & funcs.VDate(date) & " and wcal_events.IDUser > -1 " &_ "ORDER BY wcal_eventrec.EventDate, wcal_eventrec.StartTime " if Session("FILTER_CATEGORY") <> "" then StrSql = "SELECT wcal_events.*,wcal_events.IDEvent as ID, wcal_events.IDUser, wcal_events.EventName, wcal_events.Description, wcal_events.Place, " &_ "wcal_events.UserPrivate, wcal_eventrec.EventDate, wcal_eventrec.StartTime, wcal_eventrec.EndTime, wcal_eventcat.IDCat, " &_ "wcal_eventcat.CatType, wcal_events.Client, wcal_events.Lang " &_ "FROM wcal_eventcat INNER JOIN " &_ "wcal_events ON wcal_eventcat.IDEvent = wcal_events.IDEvent INNER JOIN " &_ "wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent " &_ "INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat " &_ "WHERE (wcal_events.UserPrivate=0 Or wcal_events.UserPrivate=" & session("WCAL_USERID") & ") AND wcal_events.Lang=" & session("LANG")& " AND wcal_events.Client=" & session("Client") & " AND wcal_eventcat.CatType<>0 AND wcal_eventcat.IDCat IN (" & Session("FILTER_CATEGORY") & "0) and wcal_eventrec.EventDate>=" & funcs.VDate(date) & " and wcal_events.IDUser > -1 " &_ "ORDER BY wcal_eventrec.EventDate, wcal_eventrec.StartTime " end if end if StrSql = "SELECT wcal_events.IDEvent as ID, wcal_events.IDUser, wcal_events.EventName, wcal_eventrec.Description, wcal_events.Place, wcal_events.UserPrivate, wcal_eventrec.EventDate, wcal_eventrec.StartTime, wcal_eventrec.EndTime, wcal_eventcat.IDCat, wcal_eventcat.CatType, wcal_events.Client, wcal_events.Lang, wcal_category.Name " &_ "FROM ((wcal_eventcat INNER JOIN wcal_events ON wcal_eventcat.IDEvent = wcal_events.IDEvent) INNER JOIN wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent) INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat " &_ "WHERE (UserPrivate=0 Or UserPrivate=" & session("WCAL_USERID") & ") AND wcal_events.Lang=" & session("LANG")& " AND wcal_events.Client=" & session("Client") & " and wcal_eventrec.EventDate>=" & funcs.VDate(date) & " and wcal_events.IDUser > -1 " if NOT blVIEWHOLIDAYSDAY then StrSql = strSQL & " AND wcal_eventcat.CatType<>0 " 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") & "%'" if session("wcal_pers") <> "" then strSQL = strSQL & " AND wcal_events.Person = '" & session("wcal_pers") & "'" StrSql = strSQL & "ORDER BY wcal_eventrec.EventDate, wcal_eventrec.StartTime " set EventList = Server.CreateObject("ADODB.Recordset") EventList.CursorLocation = 3 EventList.Open strSql, my_conn EventList.CacheSize = 100 if EventList.BOF or EventList.EOF then sH = sH & "" sH = sH & "" sH = sH & "" else do until EventList.EOF or intUPCOMCOUNTER=intAMOUNT if CAL_Wcal_CheckGroupAccess(EventList("ID")) then if NOT instr(1, strUPCOMCACHE, "-" & EventList("ID") & "-")>0 or blSHOWALLUPCOMING then strUPCOMCACHE = strUPCOMCACHE & "-" & EventList("ID") & "-" intUPCOMCOUNTER = intUPCOMCOUNTER +1 ' Category color strSQL = "SELECT *, wcal_category.CatType as CType from wcal_category left join wcal_eventcat ON wcal_eventcat.IDCat=wcal_category.IDCat where IDEvent=" & EventList("ID") set setCAT = Server.CreateObject("ADODB.Recordset") setCAT.CursorLocation = 3 setCAT.Open strSql, my_conn setCAT.CacheSize = 100 dim loCATNAME, loCATBGCOLOR, loCATFGCOLOR, loCATTYPE loCATNAME = setCAT("Name") loCATBGCOLOR = setCAT("bgColor") loCATFGCOLOR = setCAT("fgColor") loCATTYPE = setCAT("CType") setCAT.Close set setCAT = nothing dim strSTYLE if loCATBGCOLOR<>"" AND loCATFGCOLOR<>"" AND blVIEWHOLIDAYSDAY then strSTYLE="STYLE=""Background:" & loCATBGCOLOR & "; Color: " & loCATFGCOLOR & "; """ else strSTYLE="" end if sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "" ' sH = sH & "" ' sH = sH & "" ' sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "" end if end if EventList.MoveNext Loop end if EventList.Close set EventList = Nothing sH = sH & "

" sH = sH & "" & application(session("LANG") & "_wcal14") & "" sH = sH & "
" sH = sH & "" & VbCrlf sH = sH & "
	" sH = sH & "" & funcs.ShortEvenHeader(EventList("EventName"),-1) & "" sH = sH & "
	" sH = sH & funcs.DateView(EventList("EventDate")) sH = sH & CAL_CheckTIMEINPUT(EventList("StartTime"), EventList("EndTime")) sH = sH & "
" ' sH = sH & funcs.ShortEvenHeader(EventList("Description"),80) ' First 80 chars from description ' sH = sH & "
" sH = sH & "" & VbCrlf sH = sH & "

" CAL_ViewUpcoming = sH end function %>