<% if request.form("add") = "yes" then SQLINSERT = "UPDATE Forces_Events SET EventTitle = '"&killchars(request.form("eventtitle"))&"', " SQLINSERT = SQLINSERT &" EventDate = Convert(datetime,'"&request.form("eventDate")&"',103), " SQLINSERT = SQLINSERT &" EventTime ='"&killchars(request.form("EventTime"))&"', " SQLINSERT = SQLINSERT &" Location ='"&killchars(request.form("location"))&"', " SQLINSERT = SQLINSERT &" Dress ='"&killchars(request.form("dress"))&"', " SQLINSERT = SQLINSERT &" POContact ='"&killchars(request.form("pocontact"))&"', " SQLINSERT = SQLINSERT &" TelNo ='"&killchars(request.form("telno"))&"', " SQLINSERT = SQLINSERT &" Costpp ='"&killchars(request.form("costpp"))&"', " SQLINSERT = SQLINSERT &" Description = '"&killchars(request.form("description"))&"', " SQLINSERT = SQLINSERT &" FurtherDetails ='"&killchars(request.form("furtherdetails"))&"' " SQLINSERT = SQLINSERT &" WHERE EventID = '"&killchars(request.form("eventid"))&"' " MyConn.execute(SQLINSERT) response.redirect "event-board.asp?locname="&request.form("locname")&"&loccounty="&request.form("loccounty") end if %>
EVENTS BOARD
Update an Event
<%GetEvent = "SELECT * FROM Forces_Events WHERE EventID = '"&killchars(request("id"))&"'" SET RSEvent = MyConn.execute(GetEvent) Do While NOT RSEvent.EOF%>
">
">
">
Event:
">
Date:
">
Time:
">
Location:
<%GetLocations = "SELECT * FROM Forces_Locations ORDER BY LocName" SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%>
" <%if RSLocations("LocID")=RSEvent("Location") then%>selected<%end if%>><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>)
<%RSLocations.Movenext Loop%>
Dress:
">
Point of Contact:
">
Telephone No:
">
Cost Per Person:
">
Description:
<%=RSEvent("Description")%>
Further Details:
<%=RSEvent("FurtherDetails")%>
<%RSEvent.Movenext Loop%>