<% Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "framebar.asp?to=10&" & PID %>
BALL GOWN EXCHANGE ADVERT
<%if request("upload")="done" then%>
Thank you for posting a ball gown exchange advert.
Click here
to view ball gown exchange listings.
<%else%>
Exchange your Ball Gown
Size:
Style:
Colour:
Material:
Description:
Year of Purchase:
Location:
ALL LOCATIONS
<%GetLocations = "SELECT * FROM Forces_Locations WHERE LocID <> 951 ORDER BY LocName" SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%>
"><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>)
<%RSLocations.Movenext Loop%>
if your location is not at a base use ALL LOCATIONS
Telephone No:
Email:
Image 1:
Image 2:
Image 3:
<%end if%>