EVENTS BOARD
<%
Set MyCmd1 = Server.CreateObject("ADODB.Command")
MyCmd1.ActiveConnection = MyConn
MyCmd1.CommandText = "SELECT * FROM Forces_Events WHERE EventID = ?"
MyCmd1.Parameters.Append MyCmd1.CreateParameter("", 3, 1, , request("id"))
Set RSEvent = Server.CreateObject("ADODB.RecordSet")
RSEvent.Open MyCmd1
Do While Not RSEvent.EOF
%>
<%=RSEvent("EventDate")%> - <%=RSEvent("EventTitle")%>
Search Events
| Event Details |
| Event: | <%=RSEvent("EventTitle")%> |
| |
| Date: | <%=RSEvent("EventDate")%> |
| |
| Time: | <%=RSEvent("EventTime")%> |
| |
| Location: |
<%GetLocations = "SELECT * FROM Forces_Locations WHERE LocID = '"&RSEvent("Location")&"' "
SET RSLocations = MyConn.execute(GetLocations)
Do While NOT RSLocations.EOF%>
<%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>)
<%RSLocations.Movenext
Loop%>
|
| |
| Dress: | <%=RSEvent("Dress")%> |
| |
| Point of Contact: | <%=RSEvent("POContact")%> |
| |
| Telephone No: | <%=RSEvent("TelNo")%> |
| |
| Cost Per Person: | <%=RSEvent("CostPP")%> |
| |
| Description: | <%=RSEvent("Description")%> |
| |
| Further Details: | <%=RSEvent("FurtherDetails")%> |
| |
|
<%RSEvent.Movenext
Loop%>