<%@LANGUAGE="VBSCRIPT"%> <% Dim list_3 Dim list_3_numRows Set list_3 = Server.CreateObject("ADODB.Recordset") list_3.ActiveConnection = MM_asuites_STRING list_3.Source = "SELECT * FROM apartments AS a LEFT JOIN types AS t ON a.type_ID = t.type_ID WHERE floor_ID = 3 ORDER BY apartment_ID" list_3.CursorType = 0 list_3.CursorLocation = 2 list_3.LockType = 1 list_3.Open() list_3_numRows = 0 %> <% Dim list_4 Dim list_4_numRows Set list_4 = Server.CreateObject("ADODB.Recordset") list_4.ActiveConnection = MM_asuites_STRING list_4.Source = "SELECT * FROM apartments AS a LEFT JOIN types AS t ON a.type_ID = t.type_ID WHERE floor_ID = 4 ORDER BY apartment_ID" list_4.CursorType = 0 list_4.CursorLocation = 2 list_4.LockType = 1 list_4.Open() list_4_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 list_3_numRows = list_3_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 list_4_numRows = list_4_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 list_5_numRows = list_5_numRows + Repeat3__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT list_3.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 list_3.MoveNext() Wend %> FLOOR 3 Apt Type View Sqm Beds Terrace Price £ <%=(list_3.Fields.Item("apartment_ID").Value)%> <%=(list_3.Fields.Item("type_name").Value)%> <%=(list_3.Fields.Item("view_name").Value)%> <%=(list_3.Fields.Item("total_size").Value)%> <%=(list_3.Fields.Item("bedrooms").Value)%> <% if (list_3.Fields.Item("terrace1_size").Value <> "") then %> Terrace<% else %>No Terrace<% end if %> <% if (list_3.Fields.Item("availability_ID").Value = "2") then %>Under Offer<% elseif (list_3.Fields.Item("availability_ID").Value = "3") then %>Sold<% elseif (list_3.Fields.Item("availability_ID").Value = "4") then %>Reserved<% else %><%=(list_3.Fields.Item("apart_price").Value)%><% end if %>   <% While ((Repeat2__numRows <> 0) AND (NOT list_4.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 list_4.MoveNext() Wend %> FLOOR 4 Apt Type View Sqm Beds Terrace Price £ <%=(list_4.Fields.Item("apartment_ID").Value)%> <%=(list_4.Fields.Item("type_name").Value)%> <%=(list_4.Fields.Item("view_name").Value)%> <%=(list_4.Fields.Item("total_size").Value)%> <%=(list_4.Fields.Item("bedrooms").Value)%> <% if (list_4.Fields.Item("terrace1_size").Value <> "") then %> Terrace <% else %> No Terrace <% end if %> <% if (list_4.Fields.Item("availability_ID").Value = "2") then %> Under Offer <% elseif (list_4.Fields.Item("availability_ID").Value = "3") then %> Sold <% elseif (list_4.Fields.Item("availability_ID").Value = "4") then %> Reserved <% else %> <%=(list_4.Fields.Item("apart_price").Value)%> <% end if %>   Date: <%= Day(Date()) %>/<%= Month(Date()) %>/<%= Year(Date()) %> | Prices are subject to change without notice.

<% list_3.Close() Set list_3 = Nothing %> <% list_4.Close() Set list_4 = Nothing %>