<% Dim rsE, SQLE Set rsE = Server.CreateObject("ADODB.Recordset") SQLE = "SELECT * FROM Events WHERE EventDate >= '" & Date() & "' Order by EventDate " rsE.Open CheckSQL(SQLE), Conn, 1, 3 If Not rsE.EOF Then %> <%End If%> <% Set rsE = Server.CreateObject("ADODB.Recordset") SQLE = "SELECT * FROM Events WHERE EventDate < '" & Date() & "' Order by EventDate Desc" rsE.Open CheckSQL(SQLE), Conn, 1, 3 If Not rsE.EOF Then %> <%End If%> Register Online Upcoming Events <%Do While Not rsE.EOF%>  » " class="listind"><%=rsE("Title")%> <%rsE.MoveNext Loop rsE.Close Set rsE = Nothing %>   Past Events <%Do While Not rsE.EOF%>  » " class="listind"><%=rsE("Title")%> <%rsE.MoveNext Loop rsE.Close Set rsE = Nothing %>   Events Calendar Photo Gallery     Events Upcoming Events | Events Calendar <% Dim rsV, SQLV Set rsV = Server.CreateObject("ADODB.Recordset") SQLV = "SELECT * FROM Events " If request("EventID") <> "" Then SQLV = SQLV & " WHERE ID = " & CheckSQL(request("EventID")) Else SQLV = SQLV & " WHERE EventDate >= '" & Date() & "' " End If SQLV = SQLV & " Order by EventDate " ' response.Write(SQLV) rsV.Open CheckSQL(SQLV), Conn, 1, 3 If Not rsV.EOF Then If rsV("facebook") <> "" Then%> <% if instr(rsV("facebook"), "events") then %> " target="_blank"> " target="_blank">View Event on Facebook <%else %> <%End IF%> <%End If If rsV("tagline") <> "" Then%> <%=rsV("tagline")%> <%End If If rsv("Description") <> "" Then%> <%=rsV("Description")%> <%End if%> <%=rsv("EventInfo")%> Register Online <%If rsV("Registration") <> "" THen%> " target=_blank>Click here to download a Registration Form for this event. <%End If%> <%If rsV("Flyer") <> "" THen%> " target=_blank>Click here to view the Flyer for this event. <%End If%> <%If rsV("partnerPDF") <> "" THen%> " target=_blank>Click here to view Partner Opportunities for this Event. <%End If%> <%If rsV("packet") <> "" THen%> " target=_blank>Click here to view Team Packet for this Event. <%End If%> <%End If %> Call 1-800-500-1119 if you need domestic violence help, whether you need "SafeSpace" housing or just someone to talk to. Administrative Office: 612 SE Dixie Highway | Stuart, FL 34994 | 772-223-2399 Internet Security | Site Administration