<%@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 %> Flathead Lake Montana Real Estate | Homes for Sale in Flathead Lake

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

Site Plan Stonehorse Flathead Lake Activities
Stonehorse Flathead Lake

Flathead Lake Real Estate for Sale


The Flathead Valley is a recreational paradise, situated to the west of the beautiful Mission Mountains and south of Flathead Lake. Just a few miles to the west is Kerr Dam and whitewater Buffalo Rapids, a dream for white water rafting. Attracting year-round residents, retirees, and vacationers, this area has much to offer everyone. Enjoy skiing at Blacktail Mountain Ski Resort or Whitefish Mountain Resort at Big Mountain both just to north or enjoy wildlife observation at The National Bison Range just to the south.


<% 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)%>
 <%=(listings.fields.item("style").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 %>
empty
Next Page: Activities
Last Page: Home
Montana Web Design by BigforkWEB Development
<% listings.Close() Set listings = Nothing %>