|
|
|
This is a list of all MAX Events in our database.
DAY
|
DATE
|
EVENT
|
<%
'Start our loop through the database
DO UNTIL RS.EOF
'Check to see if the event has been reviewed for publishing.
'(for some reason very earliest db entries do not display)
IF UCase(RS("Reviewed")) = "Y" Then
'Some code to alternate row color
Dim x, bgcolor
if x = 1 then
bgcolor="#E9E9E9"
x=2
Else
bgcolor="White"
x=1
End if
Dim theMonthName, theMonthNameAbbr, theDay
'Get month number
theMonthName = Month(RS("EventDate"))
'Convert month number to month name - True means abbreviated month name
theMonthName = MonthName(theMonthName)
'Get the Day
theDay = Day(RS("EventDate"))
%>
|
<%=RS("DayOfWeek")%>
|
<%=RS("EventDate")%>
|
"><%=RS("EventName")%>
|
<%
End IF
RS.MoveNext
Loop
%>
Return to the current MAX Event
List |
Archives: All of our MAX events from 1997 through 1993 can be found in
our Archives (see a link at the left). A suggestion on searching: For events prior to June 2005,
use Google to search our web site, e.g. in Google, type something like:
"russian river" site:maxonline.org to find all information
related to our Russian River trips prior to June 2005. |
|
