<% if request.form("add") = "yes" then SQLINSERT = "INSERT INTO Forces_CarSharing (AccountID,Cname, Email, Location, RoutesTravelled, WhenTravelled, TelNo, Deleted, EntryDate) " SQLINSERT = SQLINSERT & " VALUES ('"&session("AccountID")&"', '"&killchars(request.form("pname"))&"', '"&killchars(request.form("email"))&"', '"&killchars(request.form("location"))&"', " SQLINSERT = SQLINSERT & " '"&killchars(request.form("routes"))&"', '"&killchars(request.form("when"))&"', '"&killchars(request.form("telno"))&"', " SQLINSERT = SQLINSERT & " 'no', Convert(datetime, '"&date()&"',103) ) " MyConn.execute(SQLINSERT) GEtLastID = "SELECT TOP 1 CarSharingID FROM Forces_CarSharing ORDER BY CarSharingID DESC" SET RSLastID = MyConn.execute(GETLastID) Response.redirect "carsharing-advert.asp?upload=done&id="&RSLastID("BabyAdID") end if %>
CAR SHARING ADVERT
<%if request("upload")="done" then%>
Thank you for posting a car sharing advert.
Click here
to view the car sharing listings.
<%else%>
Car Sharing Advert
Name:
Email:
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%>
Routes Travelled:
When:
Telephone No:
<%end if%>