<%if request("locname") <> "" OR request.form("locsearch") = "yes" OR request.form("locsearchref") = "yes" OR request("loccounty") <> "" then%>

CAR SHARING - <%=request("locname")%>

Search for Car Sharing

<% if request.form("locsearch") = "yes" then GETEvents = "SELECT C.CName, C.Email, C.RoutesTravelled, C.WhenTravelled, C.TelNo, L.Locname, L.PostCode FROM Forces_CarSharing C, Forces_Locations L WHERE C.Deleted = 'no' AND L.LocID = C.Location AND L.LocID = '"&killchars(request("location"))&"' " elseif request.form("locsearchref") = "yes" then GETEvents = "SELECT C.CName, C.Email, C.RoutesTravelled, C.WhenTravelled, C.TelNo, L.Locname, L.PostCode FROM Forces_CarSharing C, Forces_Locations L WHERE C.Deleted = 'no' AND L.LocID = C.Location AND L.LocID = '"&killchars(request("locationref"))&"' " elseif request("loccounty") <> "" then GETEvents = "SELECT C.CName, C.Email, C.RoutesTravelled, C.WhenTravelled, C.TelNo, L.Locname, L.PostCode FROM Forces_CarSharing C, Forces_Locations L WHERE C.Deleted = 'no' AND L.LocID = C.Location AND L.County = '"&killchars(request("loccounty"))&"' " else GETEvents = "SELECT C.CName, C.Email, C.RoutesTravelled, C.WhenTravelled, C.TelNo, L.Locname, L.PostCode FROM Forces_CarSharing C, Forces_Locations L WHERE C.Deleted = 'no' AND L.LocID = C.Location AND L.Location = '"&killchars(request("locname"))&"' " end if Set RSEvents = MyConn.execute(GETEvents) if RSEvents.EOF then%>

Sorry! no car sharing results in this area.

<%else if request.form("locsearchref") <> "yes" then%>

Refine your search results by Location:

<% GETLocations = "SELECT * FROM Forces_Locations WHERE Location = '"&killchars(request("locname"))&"' ORDER BY LocName" Set RSLocations = MyConn.execute(GETLocations) Do While Not RSLocations.EOF %> "><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>) <%RSLocations.Movenext Loop%>

<%end if Do While NOT RSEvents.EOF%>

<%=RSEvents("Locname")%> (<%=RSEvents("Postcode")%>)
Contact Name:<%=RSEvents("CName")%>
Tel: <%=RSEvents("TelNo")%>
Email: <%=RSEvents("Email")%>
Routes Travelled: <%=RSEvents("RoutesTravelled")%>
When: <%=RSEvents("WhenTravelled")%>

<%RSEvents.Movenext Loop end if else%> <%if request("country")= "uk" OR request("country")= "cyprus" OR request("country")= "germany" then%> <%else%>

CAR SHARING

REDUCE COST, ACCIDENT RATES & SAVE THE ENVIRONMENT...

Most single and many couples within the military travel to another destination each weekend, often this involves a return trip of 600 mile or more. At today's rates this can be well in excess of £100 in fuel, let alone the running costs and the driving time involved.

Most military in this situation would be prepared to travel with another military person but they don't have the means to determine who they could share this travelling with, now you do.

Not only will you make large fuel and maintenance savings, you will also be doing your bit for the environment. Input the miles saved using this scheme and we will calculate how much carbon it has saved annually. If that isn't enough, then see below for the fatality statistics whilst driving due to tiredness. Can you honestly say you haven't almost nodded off behind the wheel?

FACT - 20% of all road accidents are caused by drivers falling asleep at the wheel.

FACT - The most common category of individual for falling asleep behind the wheel is the 19-30 year old male.

Please use the car sharing page, if not for a financial saving then for safety reasons.

<%end if%> <%if request("country")="uk" then%>

SEARCH FOR CAR SHARING

Location:

<%GetLocations = "SELECT * FROM Forces_Locations WHERE Location <> 'Cyprus' AND Location <> 'Germany' ORDER BY LocName" SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%> "><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>) <%RSLocations.Movenext Loop%>

<%elseif request("country")="cyprus" then%>

SEARCH FOR CAR SHARING

Location:

<%GetLocations = "SELECT * FROM Forces_Locations WHERE Location = 'Cyprus' ORDER BY LocName" SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%> "><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>) <%RSLocations.Movenext Loop%>

<%elseif request("country")="germany" then%>

SEARCH FOR CAR SHARING

Location:

<%GetLocations = "SELECT * FROM Forces_Locations WHERE Location = 'Germany' ORDER BY LocName" SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%> "><%=RSLocations("LocName")%> (<%=RSLocations("Postcode")%>) <%RSLocations.Movenext Loop%>

<%end if%> <%end if%>