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 TOP 5 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	Details
><%=rsView("EventDate")%>	><%=rsView("EventName")%>	>" target="main">View Details & Flier

<% Set rsView = Nothing %> <% Set rsView = Conn.Execute("SELECT TOP 5 EventID, EventName, EventDate, City, State FROM UpEvents WHERE EventDate > '" & TodayDate & "' AND EventShow = 2 AND Approved = 2 ORDER BY EventDate") %>
<% count = 0 Do Until rsView.Eof count = count + 1 %> <% rsView.MoveNext Loop %>

Date	Concerts and Shows	Details
><%=rsView("EventDate")%>	><%=rsView("EventName")%>	>" target="main">View Details & Flier

<% Set rsView = Nothing Conn.Close Set Conn = Nothing num_pics = 28 Randomize rand_num = Int((num_pics - 1 + 1)*Rnd() + 1) Randomize rand_num_2 = Int((num_pics - 1 + 1)*Rnd() + 1) Randomize rand_num_3 = Int((num_pics - 1 + 1)*Rnd() + 1) 'Response.write rand_num If rand_num => 16 AND rand_num =< 26 Then If rand_num = 20 Then rand_num_2 = 16 Else rand_num_2 = rand_num + 1 End If End If If (rand_num < 16) OR (rand_num > 25) Then If rand_num_2 => 16 AND rand_num_2 =< 25 Then If rand_num = 14 Then rand_num_2 = 15 ElseIf rand_num = 27 Then rand_num_2 = 28 ElseIf rand_num = 15 Then rand_num_2 = 1 ElseIf rand_num = 28 Then rand_num_2 = 1 Else rand_num_2 = rand_num + 1 End If End If If rand_num_3 => 16 AND rand_num_3 =< 25 Then If rand_num_2 = 14 Then rand_num_3 = 15 ElseIf rand_num_2 = 27 Then rand_num_3 = 28 ElseIf rand_num_2 = 15 Then rand_num_3 = 1 ElseIf rand_num_2 = 28 Then rand_num_3 = 1 Else rand_num_3 = rand_num_2 + 1 End If End If End If If rand_num => 16 AND rand_num =< 25 Then If rand_num_2 = 25 Then rand_num_3 = 16 Else rand_num_3 = rand_num_2 + 1 End If End If 'If rand_num_3 = rand_num_2 Then ' If rand_num_3 = num_pics Then ' rand_num_3 = 1 ' Else ' rand_num_3 = rand_num + 1 ' End If 'End If %>