BOARDING SCHOOLS

Add a Boarding School

Boarding Schools

<% SQLAccountsR = "SELECT * FROM Forces_BoardingSchools WHERE Deleted = 'no' ORDER BY SchoolID DESC" Set RSAccountsR= MyConn.Execute(SQLAccountsR) if RSAccountsR.EOF then response.write("") else i = 0 while not RSAccountsR.EOF %> <%i= i + 1%> <%if int(i)/2 = int(i)\2 then%> <%else%> <%end if%> <% RSAccountsR.MoveNext WEND End If RSAccountsR.Close %>  School   Area  There are currently no schools. <%=RSAccountsR("SchoolName")%> <%GetLocations = "SELECT * FROM Forces_LocationAreas WHERE AreaID = '"&RSAccountsR("Location")&"' " SET RSLocations = MyConn.execute(GetLocations) Do While NOT RSLocations.EOF%> <%=RSLocations("Area")%> <%RSLocations.Movenext Loop%> " onclick="if(!confirm('Are you sure you want to delete this record? It will be removed permanently!')) return false;">