<%
' #################################
public function CAL_Wcal_CheckGroupAccess(intID)
	dim CHKTEST
	CAL_Wcal_CheckGroupAccess = False

	if session("WCAL_USERID")<>0 then
		strSQL = "SELECT * FROM wcal_events where (IDEvent=" & intID & " AND UserPrivate=0) OR (IDEvent=" & intID & " AND UserPrivate<>0 AND IDUser=" & session("WCAL_USERID") & ")"
		set CHKTEST = my_conn.execute(strSQL)
		If NOT(CHKTEST.BOF or CHKTEST.EOF) then 	CAL_Wcal_CheckGroupAccess = True
		set CHKTEST = NOTHING
	else
		CAL_Wcal_CheckGroupAccess = True
	end if
end function

public function CAL_ShowHide()
dim sH
	sH = session("WebCAL_SH")
	if instr(1, sH, "("&request("IDEvent")&")")= 0 then
		sH = sH & "("&request("IDEvent")&")"
	else
		sH = replace(sH,"("&request("IDEvent")&")","")
	end if
	session("WebCAL_SH") = sH
end function

%>