<% if request.form("add") = "yes" then SQLINSERT = "INSERT INTO Forces_Events (AccountID, EventTitle, EventDate, EventTime, Location, Dress, POContact, TelNo, Costpp, Description , FurtherDetails, Deleted, EntryDate) " SQLINSERT = SQLINSERT & " VALUES ( '"&session("AccountID")&"','"&killchars(request.form("eventtitle"))&"',Convert(datetime,'"&request.form("eventDate")&"',103), '"&killchars(request.form("EventTime"))&"', '"&killchars(request.form("location"))&"', " SQLINSERT = SQLINSERT & " '"&killchars(request.form("dress"))&"', '"&killchars(request.form("pocontact"))&"', '"&killchars(request.form("telno"))&"', " SQLINSERT = SQLINSERT & " '"&killchars(request.form("costpp"))&"', '"&killchars(request.form("description"))&"','"&killchars(request.form("furtherdetails"))&"', 'no', Convert(datetime, '"&date()&"',103) ) " MyConn.execute(SQLINSERT) response.redirect "event-board.asp" end if %>
EVENTS BOARD
Create an Event
Event:
Date:
Time:
Location:
<%GetLocations = "SELECT * FROM Forces_Locations ORDER BY LocName" SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%>
"><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>)
<%RSLocations.Movenext Loop%>
Dress:
Point of Contact:
Telephone No:
Cost Per Person:
Description:
Further Details: