'==========================================================================================
	'											  	|
	'	DO LOOP									|	LOOP
	'												|
	'========================================================================================== 	  
    
	 Do While rS.Eof = False
	 
	 	
	 %>		
		



<tr>
		<td align="middle" width="100%" colSpan="2" height="1" class="arial_10" bgcolor="#FFFFFF">
	
	<% 
	
	
	
	
	
			bgcolor = ""
			TodayMessage = ""
	
	if IsDate(rs("EventStarts")) AND IsDate(rs("EventEnds")) then
	
		'response.write DateAdd("D", 1, Date) & "<Br>"
	
		If DateAdd("D", 1, Date) = CDate(rs("EventStarts")) then
			bgcolor = "bgcolor='#E8F1F9'"
			TodayMessage = "Tomorrow"
		
		elseIf	CDate(rs("EventStarts"))<= Date AND CDate(rs("EventEnds")) >= Date then
			bgcolor = "bgcolor='#FFFF99'"
			TodayMessage = "Today"
			
		end if
		
	end if
		
		%>
		
		
		
		
	
		

		
		<table border="0" cellspacing="0" width="100%" id="table8">	
		
			<tr>
				<td width="136" class="arial_9" align="right" valign="top" <%=bgcolor%>>
				<b>
				<font color="#800000"><%=TodayMessage%>&nbsp;</font>
				<img border="0" src="/images/buttons/arrow_right_blue.gif"> &nbsp;</b></td>
				<td class="arial_9">
				<% If rs("link") <> "" then %>
				<a href="<%=rs("link")%>">
				<% end if %>
				<font color="#003399">
				<% If rs("EventName") <> "" then
					response.write "<b>" & rs("EventName") & "</b>" & "<BR>"
					end if
					%>
					</font>
				<% If rs("link") <> "" then %>

					</a>
					
					<% end if %>
				 
				<%=LTrim(replace(RS("NOTES"), VbCr, "<br>"))%></td>
			</tr>
			</table>
			
	
		
	
			
			
	
		
	
		</td>
	</tr>
	
	
	




<%


                        
     		 rS.MoveNext
		Loop	
 '==========================================================================================
'											  	|
'	CLOSE FILES							 	|	FILES CLOSED
'												|
'========================================================================================== 		
	
			

	 'rs.Close
            
%>




</table>

	</div>