EVENTS BOARD

<%=request("locname")%>

<%if session("adminType") = "event" then%>

<%end if%>
<%if request("locname") <> "" then GetEvents = "SELECT E.EventID,E.EventTitle, E.EventDate, L.LocName, L.Postcode FROM Forces_Events E, Forces_Locations L WHERE E.Deleted = 'no' AND E.EventDate >= Convert(datetime,'"&date()&"',103) AND L.LocID = E.Location AND L.Location = '"&killchars(request("locname"))&"' " SET RSEvents = MyConn.execute(GetEvents) if RSEvents.EOF then%>

Sorry! No events in this location.

<%else Do While NOT RSEvents.EOF %>

<%if session("adminType") = "event" then%> &locname=<%=request("locname")%>&loccounty=<%=request("loccounty")%>"> &locname=<%=request("locname")%>&loccounty=<%=request("loccounty")%>" onclick="if(!confirm('Are you sure you want to delete this record? It will be removed permanently!')) return false;"> <%end if%> "><%=RSEvents("EventDate")%> - <%=RSEvents("EventTitle")%> (<%=RSEvents("LocName")%> <%=RSEvents("PostCode")%>)

<%RSEvents.Movenext Loop end if elseif request("loccounty") <> "" then GetEvents = "SELECT E.EventID,E.EventTitle, E.EventDate, L.LocName, L.Postcode FROM Forces_Events E, Forces_Locations L WHERE E.Deleted = 'no' AND E.EventDate >= Convert(datetime,'"&date()&"',103) AND L.LocID = E.Location AND L.County = '"&killchars(request("loccounty"))&"' " SET RSEvents = MyConn.execute(GetEvents) if RSEvents.EOF then%>

Sorry! No events in this location.

<%else Do While NOT RSEvents.EOF %>

<%RSEvents.Movenext Loop end if else%> <%if request("country")= "uk" OR request("country")= "cyprus" OR request("country")= "germany" then%> <%else%>

Click a map to search for events in your area.

<%end if%> <%if request("country")="uk" then%>

<%elseif request("country")="cyprus" then%>

<%elseif request("country")="germany" then%>

<%end if%> <%end if%>