<%@LANGUAGE="VBSCRIPT"%> <% Dim rs Dim rs_cmd Dim rs_numRows set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_cottages_STRING rs.Source = "SELECT * FROM cottagesTbl where active=-1 ORDER BY area, cottagename ASC" rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %> Maine Vacation Homes and Rentals - including Cottages, Lakefront and Waterfront Properties for Rent rs.Fields.Item("area").Value then lasttown=rs.Fields.Item("area").Value %><%=(rs.Fields.Item("area").Value)%>,<% end if rs.MoveNext() Wend rs.movefirst%>">
 
 

Exclusive Vacation Home and Cottage Rentals in Maine

<% lasttown="" zct=2000 While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %> <%if lasttown <> rs.Fields.Item("area").Value then%> <%lasttown = rs.Fields.Item("area").Value%> <%end if%> <%zct=zct-1%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext() Wend %>
<%if zct <> 2000 then%>
<%end if%>

<%=(rs.Fields.Item("area").Value)%>, Maine

Cottage Features Price
#st"><%=(rs.Fields.Item("cottageName").Value)%><%=(rs.Fields.Item("description").Value)%>

Click on vacation home name for more details
<%=(rs.Fields.Item("waterfront").Value)%><%= displaybr(rs.Fields.Item("pets").Value)%> <%=(rs.Fields.Item("priceRange").Value)%>

 

 

 

 

 


<% rs.Close() Set rs = Nothing %> <%function displayBR(pets) if pets = "Pets Allowed" or pets = "Pets Negotiable" then displaybr=", " & pets & "" end if end function%>