<%@LANGUAGE="VBSCRIPT"%> <% Dim rsHomes__varhouseID rsHomes__varhouseID = "1" if (Request("houseID") <> "") then rsHomes__varhouseID = Request("houseID") %> <% set rsHomes = Server.CreateObject("ADODB.Recordset") rsHomes.ActiveConnection = MM_connCastleMI_STRING rsHomes.Source = "SELECT houseID, houseName, bedrooms, baths, artwork, design, plan, introduction, features, price, img1, img2, img3, img4, img1txt, img2txt, img3txt, img4txt FROM tblhomes WHERE houseID = '" + Replace(rsHomes__varhouseID, "'", "''") + "'" rsHomes.CursorType = 0 rsHomes.CursorLocation = 2 rsHomes.LockType = 3 rsHomes.Open() rsHomes_numRows = 0 %> <% set rsHouseNames = Server.CreateObject("ADODB.Recordset") rsHouseNames.ActiveConnection = MM_connCastleMI_STRING rsHouseNames.Source = "SELECT houseName, houseID FROM tblhomes" rsHouseNames.CursorType = 0 rsHouseNames.CursorLocation = 2 rsHouseNames.LockType = 3 rsHouseNames.Open() rsHouseNames_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsHouseNames_numRows = rsHouseNames_numRows + Repeat1__numRows %> Florida Holiday & Investment Homes
E-mail our USA Office E-mail our UK Office
Example Home: <%=(rsHomes.Fields.Item("houseName").Value)%> (<%=(rsHomes.Fields.Item("bedrooms").Value)%> Bedrooms - <%=(rsHomes.Fields.Item("baths").Value)%> Baths)

<% If rsHomes.Fields.Item("artwork").Value <> "" Then %>" alt="Artists Impression" width="200"><% End If %> <% If rsHomes.Fields.Item("design").Value <> "" Then %>" alt="One of our designs" width="200"><% End If %>

 <% If rsHomes.Fields.Item("plan").Value <> "" Then %>" alt="Plan of house" width="280"><% End If %>

<%=Replace(rsHomes.Fields.Item("introduction").Value, Chr(13), "
")%>

 

Back to the top of the page

Standard Custom Features
  • <%=Replace(rsHomes.Fields.Item("features").Value, Chr(13), "
  • ")%>
    		•

    Back to the top of the page

    Prices

    <%=Replace(rsHomes.Fields.Item("price").Value, Chr(13), "
    ")%>

    Note: The above prices are subject to change without notice.

    <% If rsHomes.Fields.Item("img1").Value <> "" Then %> " width="200"> <% End If %>
    <%=(rsHomes.Fields.Item("img1txt").Value)%>

    <% If rsHomes.Fields.Item("img2").Value <> "" Then %> " align="middle" width="200"> <% End if %>
    <%=(rsHomes.Fields.Item("img2txt").Value)%>
    <% If rsHomes.Fields.Item("img3").Value <> "" Then %> " width="200"> <% End If %>
    <%=(rsHomes.Fields.Item("img3txt").Value)%>
    <% If rsHomes.Fields.Item("img4").Value <> "" Then %> " width="200"> <% End If %>
    <%=(rsHomes.Fields.Item("img4txt").Value)%>

    For further information please contact us using the details at the top of the page

    Back to the top of the page
    Visit www.SiteDesign.net
    Click to visit our website
    Full & Partial Service Management Packages An introduction to our company and our services
    Contact Us for further information Property Management Holiday Homes Back to the home page <% rsHomes.Close() %> <% rsHouseNames.Close() %>