<%
'Build query statement
' strQuery = "SELECT * FROM tblCAL WHERE (Date > now()-1 AND SameChiEvent=True) ORDER BY Date"
strQuery = "SELECT * FROM tblCAL WHERE (Date > now() AND SameChiEvent=True) ORDER BY Date"
'Execute data and return recordset
Set objRs = objConn.Execute(strQuery)
%>
<%
' objRs.MoveNext()
' Wend
set objRs = Nothing
%>
