Upcoming Events

Submit your Event

<% ' This Function alternates the background of the table row Function bgcolor(count) if count Mod 2 = 0 then bgcolor = "bgcolor=""#FFFFFF""" else bgcolor = "bgcolor=""#f0f0f0""" end if End Function TodayDate = DateAdd("Y", -1, Date) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(Application("partypacked_ConnectionString")) Set rsView = Conn.Execute("SELECT EventID, EventName, EventDate, City, State FROM UpEvents WHERE EventDate > '" & TodayDate & "' AND EventShow = 1 AND Approved = 2 ORDER BY EventDate") %> <% count = 0 Do Until rsView.Eof count = count + 1 %> <% rsView.MoveNext Loop %>

Date	Event	Detail
><%=rsView("EventDate")%>	><%=rsView("EventName")%>	>" target="main">View Details & Flier

<% Set rsView = Nothing Conn.Close Set Conn = Nothing %>