<%@LANGUAGE="VBSCRIPT"%> <% Dim propertyPhotos, listingID, reOrg, lastTwo %> <% Dim listings Dim listings_cmd Dim listings_numRows Set listings_cmd = Server.CreateObject ("ADODB.Command") listings_cmd.ActiveConnection = MM_realestatepointe_STRING listings_cmd.CommandText = "Select area, listprice, listingtype, beds, bathsfull, listingservice, listingid, streetname, streetnumber, streetsuffix, city, state, zipcode, zoning, livingarea, type, virtualtour, style, vrurl, remarks, baths, bathshalf, acres, schooldistrict, listingofficename, listingagentname FROM ListingViewWeb where remarks like '%stonehorse%' and listingofficename ='Century 21 Big Sky Real Estate' and listingservice ='mor' ORDER BY listprice desc" listings_cmd.Prepared = true Set listings = listings_cmd.Execute listings_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 listings_numRows = listings_numRows + Repeat1__numRows %> Polson Montana Real Estate | Homes for Sale in Polson Montana

Montana Stone Horse, a Northwestern Montana Real Estate community on Flathead Lake in Polson, Montana

Site Plan Stonehorse Flathead Lake Activities
Stonehorse Flathead Lake

Polson Montana Real Estate for Sale

Polson, Montana is a quintessential lake town with an easygoing personality located on the shores of Flathead Lake, the largest freshwater lake in the western United States. From sunup to sundown people can't help but be drawn to the water. Whether by speedboat and water skis, gliding along in a sailboat, or sunbathing on the shore, the lake is at the center of life in Polson.

<% While ((Repeat1__numRows <> 0) AND (NOT listings.EOF)) reOrg = (listings.Fields.Item("Listingservice").Value) If (listings.fields.item("listingservice").value) = "NMAR" then listingID = (listings.fields.item("listingid").value) Else listingID = "MCAR" + (listings.Fields.Item("ListingID").Value) End IF propertyPhotos = GetUrls(listingID, reOrg) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 listings.MoveNext() Wend %>
<% if (listings.fields.item("listingservice").value) = "NMAR" then %> <% If (listings.Fields.Item("Type").Value) = "Residential" then %>  <%=(listings.Fields.Item("listingType").Value)%> Property
 <%=(listings.Fields.Item("livingarea").Value)%> Sq Ft Living Area
 <%=(listings.Fields.Item("Beds").Value)%> bedrooms / <%=(listings.Fields.Item("Baths").Value)%> bathroom(s)
<% Else %>  <%=(listings.Fields.Item("listingType").Value)%>
<%If not(listings.fields.item("livingarea").value) = "null" then %>  <%=(listings.Fields.Item("livingarea").Value)%>
<%End If%>
<%End if %> <%End If%> <% if (listings.fields.item("listingservice").value) = "MOR" then %> <% If (listings.Fields.Item("Type").Value) = "RESIDENTIAL" then %>  <%=(listings.Fields.Item("listingType").Value)%>
<%If not isnull(listings.fields.item("schooldistrict").value) then %>  <%=(listings.Fields.Item("schooldistrict").Value)%> Schools
<%end if%>  <%=(listings.Fields.Item("Beds").Value)%> bedrooms / <%=(listings.Fields.Item("Baths").Value)%> bathroom(s)
<% ElseIf (listings.Fields.Item("Type").Value) = "LAND" then %>  <%=(listings.Fields.Item("listingType").Value)%>
<%If not isnull(listings.fields.item("schooldistrict").value) then %>  <%=(listings.Fields.Item("schooldistrict").Value)%> Schools
<%end if%> <%If not(listings.fields.item("acres").value) = "0" then %>  <%=(listings.Fields.Item("acres").Value)%> Acres
<%End If%>
<% ElseIf (listings.Fields.Item("Type").Value) = "COMMERCIAL" then %>  <%=(listings.Fields.Item("listingType").Value)%>
<%If not isnull(listings.fields.item("zoning").value) then %>  <%=(listings.Fields.Item("zoning").Value)%>
<%End If%>
<% ElseIf (listings.Fields.Item("Type").Value) = "LEASE" then %>  <%=(listings.Fields.Item("listingType").Value)%>
<%If not isnull(listings.fields.item("zoning").value) then %>  <%=(listings.Fields.Item("zoning").Value)%>
<%End If%>
<% ElseIf (listings.Fields.Item("Type").Value) = "MULTI-FAMILY" then %> <%=(listings.Fields.Item("listingType").Value)%>

<% End IF %> <% End IF %>
<% If Not IsNull(listings.Fields.Item("Remarks").Value) Then %>
Remarks: <%=(listings.fields.item("remarks").value)%>  -<%= (listings.fields.item("listingservice").value)%> MLS
<% End If %>

<% If listings.EOF And listings.BOF Then %>

There are currently no properties
that match your search criteria.

<% End If ' end listings.EOF And listings.BOF %>
Next Page: Activities
Last Page: Home
Montana Web Design by BigforkWEB Development
<% listings.Close() Set listings = Nothing %>