BOARDING SCHOOLS

<%if request("areaid") <> "" then%> <% Set MyCmd1 = Server.CreateObject("ADODB.Command") MyCmd1.ActiveConnection = MyConn MyCmd1.CommandText = "SELECT Area FROM Forces_LocationAreas WHERE AreaID = ?" MyCmd1.Parameters.Append MyCmd1.CreateParameter("", 3, 1, , request("areaid")) Set RSArea = Server.CreateObject("ADODB.RecordSet") RSArea.Open MyCmd1 if not RSArea.EOF then %>

BOARDING SCHOOLS - <%=RSArea("Area")%>

<%end if%>

Search Boarding Schools

<% Set MyCmd = Server.CreateObject("ADODB.Command") MyCmd.ActiveConnection = MyConn MyCmd.CommandText = "SELECT * FROM Forces_BoardingSchools B, Forces_LocationAreas L WHERE B.Deleted = 'no' AND L.AreaID = B.Location AND L.AreaID = ?" MyCmd.Parameters.Append MyCmd.CreateParameter("", 3, 1, , request("areaid")) Set RSEvents = Server.CreateObject("ADODB.RecordSet") RSEvents.Open MyCmd if RSEvents.EOF then %>

Sorry! no boarding schools in this area.

<%else Do While NOT RSEvents.EOF%>

<%if RSEvents("Img") <> "" then%> " width="200" alt="" border="0" class="leftimg">
<%else%>
<%end if%> <%=RSEvents("SchoolName")%>
<%=RSEvents("Address")%>
Tel: <%=RSEvents("TelNo")%>
<%if RSEvents("LinkURL") <> "" then%>URL: " target="_blank"><%=RSEvents("LinkURL")%><%end if%>

<%RSEvents.Movenext Loop end if else%>

scotland north east central London south west south east wales northern ireland scotland north wales central east south west south east london northern ireland

<%end if%>