<% public function CAL_ViewSearchList() dim sH : sH = "" dim SText dim intSEARCHROWS, SearchText, Cond, EventList intSEARCHROWS = 15 SearchText = "SELECT *, wcal_events.IDEvent as ID, wcal_events.IDUser, wcal_eventrec.StartTime as STIME, wcal_eventrec.EndTime as ETIME, wcal_eventrec.EventDate as DAT, wcal_events.EventName as NAME, wcal_eventrec.Description as DESCR FROM wcal_eventrec Left join wcal_events on wcal_eventrec.IDEvent = wcal_events.IDEvent WHERE (UserPrivate=0 OR UserPrivate=" & session("WCAL_USERID") & ") AND wcal_events.IDUser > -1 AND " dim Word1 IF Request("SText")<>"" then Cond = "" For Each word in split(request("SText"), ", ") Word1 = replace(Word,"'","''") SText = SText & "&SText=" & replace(word,chr(32),"%20") SearchText = SearchText & Cond SearchText = SearchText & "(wcal_events.EventName like '%" & Word1 & "%' or " SearchText = SearchText & "wcal_events.Place like '%" & Word1 & "%' OR " SearchText = SearchText & "wcal_eventrec.Description like '%" & Word1 & "%')" Cond = " OR " if left(word,1)="+" then Cond = " AND " word = mid(word, 2) end if next end if if Session("FILTER_CATEGORY") <> "" then StrSql = strSQL & " wcal_eventcat.IDCat IN (" & Session("FILTER_CATEGORY") & "0)" if Session("FILTER_LOCATION") <> "" then strSQL = strSQL & " AND wcal_events.Place like '%" & Session("FILTER_LOCATION") & "%'" strSQL = strSQL & " AND EventDate>" & funcs.vdate(dateadd("m", -3, date())) strSQL = strSQL & " order by EventDate asc" if request.form("SText")<>"" then response.redirect CalendarSRC & "?Client=" & session("Client") & "&Lang=" & Session("LANG") & "&DoAction=Calendar&View=Search" & SText if Request("SText")="" then sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "

" sH = sH & application(session("LANG") & "_wcal19") & " " sH = sH & "No searching query!" sH = sH & "

" else sH = sH & "" sH = sH & "" sH = sH & "" sH = sH & "

" sH = sH & "" & application(session("LANG") & "_wcal19") & ": " & request("SText") & " " sH = sH & "

" sH = sH & "" set EventList = Server.CreateObject("ADODB.Recordset") EventList.CursorLocation = 3 EventList.Open SearchText, my_conn if EventList.BOF or EventList.EOF then sH = sH & "" sH = sH & "" sH = sH & "" else DIM Navigation, CountRec, HowMany Navigation = funcs.Paging(intSEARCHROWS, EventList, CountRec, "") sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf HowMany = 0 do until EventList.EOF or HowMany = intSEARCHROWS HowMany = HowMany + 1 sH = sH & "" sH = sH & "" EventList.MoveNext Loop end if set EventList = Nothing sH = sH & "

" sH = sH & "" & application(session("LANG") & "_wcal14") & "" sH = sH & "
Page: " & replace(Navigation,"View=Search","View=Search" & SText) sH = sH & "
" & weekdayName(weekday(EventList("DAT"))) & "" sH = sH & " " ' if dayview is enabled if blView6 then sH = sH & "" & funcs.DateView(EventList("DAT")) & "" else sH = sH & "" & funcs.DateView(EventList("DAT")) & "" end if sH = sH & "	" sH = sH & "" sH = sH & funcs.ShortEvenHeader(EventList("NAME"),-1) & " " & "(" & EventList("STIME") & "-" & EventList("ETIME") & ")   " & funcs.ShortEvenHeader(EventList("DESCR"),80) & " " sH = sH & "

" end if ' Test null query CAL_ViewSearchList= sH end function %>