[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%

found = false

set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_trimbledb_STRING
rs.Source = "SELECT * from categoryTBL"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0

set rscr = server.CreateObject("ADODB.Recordset")
rscr.ActiveConnection = MM_trimbledb_STRING
rscr.Source = "Select * from categoryTBL where hide = False order by sortorder"
rscr.CursorType = 0
rscr.CursorLocation =2
rscr.LockType = 3
rscr.Open

catfound = false

if rscr.EOF = false then
'if there are categories that are not hidden

	'get first maine category
	do while rscr.EOF = false 'for each category
		rs.Close
		rs.Source = "SELECT propertyTBL.* FROM propertyTBL INNER JOIN propertycategoryTBL ON propertyTBL.propertyID = propertycategoryTBL.propertyID WHERE propertycategoryTBL.categoryID=" & rscr.Fields("categoryID") & " and propertyTBL.Hide = False and topcat='ME' order by propertyTBL.Title"
		rs.Open
		'if there exists a property in this category
		if rs.EOF = false then
			catfound = true
			exit do
		else
			rscr.MoveNext
		end if
	loop	
	'if there exists a category that is not hidden AND it has properties
	If catfound = true then
		fmc = rscr.Fields("categoryID")
		firstcategoryID = rscr.Fields("categoryID")		
	else 'OH OH! No categories with properties!
		fmc = 0
		firstcategoryID = 0
	end if
	
	catfound = false
	rscr.MoveFirst
	
	'get first canadian category
	do while rscr.EOF = false 'for each category
		rs.Close
		rs.Source = "SELECT propertyTBL.* FROM propertyTBL INNER JOIN propertycategoryTBL ON propertyTBL.propertyID = propertycategoryTBL.propertyID WHERE propertycategoryTBL.categoryID=" & rscr.Fields("categoryID") & " and propertyTBL.Hide = False and propertyTBL.topcat='CA' order by propertyTBL.Title"
		rs.Open
		'if there exists a property in this category
		if rs.EOF = false then
			catfound = true
			exit do
		else
			rscr.MoveNext
		end if
	loop	
	'if there exists a category that is not hidden AND it has properties
	If catfound = true then
		fcc = rscr.Fields("categoryID")	
	else 'OH OH! No categories with properties!
		fcc = 0
	end if
	
	catfound = false
	rscr.MoveFirst
	
	'get first international property
	do while rscr.EOF = false 'for each category
		rs.Close
		rs.Source = "SELECT propertyTBL.* FROM propertyTBL INNER JOIN propertycategoryTBL ON propertyTBL.propertyID = propertycategoryTBL.propertyID WHERE propertycategoryTBL.categoryID=" & rscr.Fields("categoryID") & " and propertyTBL.Hide = False and propertyTBL.topcat='IN' order by propertyTBL.Title"
		rs.Open
		'if there exists a property in this category
		if rs.EOF = false then
			catfound = true
			exit do
		else
			rscr.MoveNext
		end if
	loop	
	'if there exists a category that is not hidden AND it has properties
	If catfound = true then
		fic = rscr.Fields("categoryID")	
	else 'OH OH! No categories with properties!
		fic = 0
	end if	
end if

rs.Close
set rs = nothing

rscr.Close
set rscr = nothing

%>

<%
'this file is dependent on getfirstcat.asp

	set rs = Server.CreateObject("ADODB.Recordset")
	rs.ActiveConnection = MM_trimbledb_STRING
	rs.CursorType = 0
	rs.CursorLocation = 2
	rs.LockType = 3
	
	set rscr = Server.CreateObject("ADODB.Recordset")
	rscr.ActiveConnection = MM_trimbledb_STRING
	rscr.CursorType = 0
	rscr.CursorLocation = 2
	rscr.LockType = 3

if fmc <> 0 then
'if firstcategoryID <> 0 then

	found = false

	'get all properties in first category
	rs.Source = "SELECT propertyTBL.* FROM propertyTBL INNER JOIN propertycategoryTBL ON propertyTBL.propertyID = propertycategoryTBL.propertyID WHERE propertycategoryTBL.categoryID=" & fmc & " and propertyTBL.Hide = False and propertyTBL.topcat = 'ME' order by propertyTBL.Title"
	rs.Open()
	rs_numRows = 0
	
	'get all information about first category
	rscr.Source = "SELECT * from rotatemenuTBL where categoryID = " & fmc & " and topcat = 'ME'"
	rscr.Open()
	rscr_numRows = 0		
		
	'if it is time to rotate the properties
	if rscr.Fields("changedate") <> Date() or isnull(rscr.Fields("changedate")) then
		'do for each property in the first category
		do while rs.EOF = false
			'if this property is currently the first property
			if rs.Fields("title") = rscr.Fields("firstproperty") then
				found = true
				'move on to next property in rotation
				rs.MoveNext
				if rs.EOF = true then
					rs.MoveFirst
				end if
				exit do
			else 'this is not currently the first property
				rs.MoveNext
			end if
		loop
		
		'if after cycling through all properties, no property matched the current first property
		if found = false then
			rs.MoveFirst
		end if
		
		'update database
		rscr.Fields("changedate") = date()
		rscr.Fields("firstproperty") = rs.Fields("title")
		rscr.Update
		
		'assign first property as new first property
		'********delete this later******************
		firstpropertyID = rs.Fields("propertyID")
		firstpropertytitle = rs.Fields("title")
		firstpropertycity = rs.Fields("city")
		firstpropertyprice = rs.Fields("price")
		'*******************************************
		fmp = rs.Fields("propertyID")
		fmptitle = rs.Fields("title")
		fmpcity = rs.Fields("city")
		fmpprice = rs.Fields("price")		
		
	else 'it is not time to rotate the property list
		'for each property in this category
		do while rs.EOF = false
			'if this is the current first property to display
			if rs.Fields("title") = rscr.Fields("firstproperty") then
				found = true
				exit do
			else
				rs.MoveNext
			end if
		loop
		
		'if no property was found that matches the first property to be displayed
		'it has probably been deleted or is hidden
		'move on to next property
		if found = false then
			if rs.EOF = false then
				rs.MoveNext
			else
				rs.MoveFirst
			end if
		end if
		
		'assign first property as new first property
		'********delete this later******************
		firstpropertyID = rs.Fields("propertyID")
		firstpropertytitle = rs.Fields("title")
		firstpropertycity = rs.Fields("city")
		firstpropertyprice = rs.Fields("price")
		'*******************************************
		fmp = rs.Fields("propertyID")
		fmptitle = rs.Fields("title")
		fmpcity = rs.Fields("city")
		fmpprice = rs.Fields("price")	
	end if	

	rscr.Close
	rs.Close
else 'OH OH! There is no category!
	'********delete this later******************
	firstpropertyID = 0
	firstpropertytitle = ""
	firstpropertycity = ""
	firstpropertyprice = ""
	'*******************************************
	fmp = 0
	fmptitle = ""
	fmpcity = ""
	fmpprice = ""
end if

'canada
if fcc <> 0 then
	
	found = false

	'get all properties in first category
	rs.Source = "SELECT propertyTBL.* FROM propertyTBL INNER JOIN propertycategoryTBL ON propertyTBL.propertyID = propertycategoryTBL.propertyID WHERE propertycategoryTBL.categoryID=" & fcc & " and propertyTBL.Hide = False and propertyTBL.topcat = 'CA' order by propertyTBL.Title"
	rs.Open()
	rs_numRows = 0
	
	'get all information about first category
	rscr.Source = "SELECT * from rotatemenuTBL where categoryID = " & fcc & " and topcat = 'CA'"
	rscr.Open()
	rscr_numRows = 0		
		
	'if it is time to rotate the properties
	if rscr.Fields("changedate") <> Date() or isnull(rscr.Fields("changedate")) then
		'do for each property in the first category
		do while rs.EOF = false
			'if this property is currently the first property
			if rs.Fields("title") = rscr.Fields("firstproperty") then
				found = true
				'move on to next property in rotation
				rs.MoveNext
				if rs.EOF = true then
					rs.MoveFirst
				end if
				exit do
			else 'this is not currently the first property
				rs.MoveNext
			end if
		loop
		
		'if after cycling through all properties, no property matched the current first property
		if found = false then
			rs.MoveFirst
		end if
		
		'update database
		rscr.Fields("changedate") = date()
		rscr.Fields("firstproperty") = rs.Fields("title")
		rscr.Update
		
		'assign first property as new first property
		fcp = rs.Fields("propertyID")
		fcptitle = rs.Fields("title")
		fcpcity = rs.Fields("city")
		fcpprice = rs.Fields("price")		
		
	else 'it is not time to rotate the property list
		'for each property in this category
		do while rs.EOF = false
			'if this is the current first property to display
			if rs.Fields("title") = rscr.Fields("firstproperty") then
				found = true
				exit do
			else
				rs.MoveNext
			end if
		loop
		
		'if no property was found that matches the first property to be displayed
		'it has probably been deleted or is hidden
		'move on to next property
		if found = false then
			if rs.EOF = false then
				rs.MoveNext
			else
				rs.MoveFirst
			end if
		end if
		
		'assign first property as new first property
		fcp = rs.Fields("propertyID")
		fcptitle = rs.Fields("title")
		fcpcity = rs.Fields("city")
		fcpprice = rs.Fields("price")	
	end if	

	rscr.Close
	rs.Close
else 'OH OH! There is no category!
	fcp = 0
	fcptitle = ""
	fcpcity = ""
	fcpprice = ""
end if

'international
if fic <> 0 then

	found = false

	'get all properties in first category
	rs.Source = "SELECT propertyTBL.* FROM propertyTBL INNER JOIN propertycategoryTBL ON propertyTBL.propertyID = propertycategoryTBL.propertyID WHERE propertycategoryTBL.categoryID=" & fic & " and propertyTBL.Hide = False and propertyTBL.topcat = 'IN' order by propertyTBL.Title"
	rs.Open()
	rs_numRows = 0
	
	'get all information about first category
	rscr.Source = "SELECT * from rotatemenuTBL where categoryID = " & fic & " and topcat = 'IN'"
	rscr.Open()
	rscr_numRows = 0		
		
	'if it is time to rotate the properties
	if rscr.Fields("changedate") <> Date() or isnull(rscr.Fields("changedate")) then
		'do for each property in the first category
		do while rs.EOF = false
			'if this property is currently the first property
			if rs.Fields("title") = rscr.Fields("firstproperty") then
				found = true
				'move on to next property in rotation
				rs.MoveNext
				if rs.EOF = true then
					rs.MoveFirst
				end if
				exit do
			else 'this is not currently the first property
				rs.MoveNext
			end if
		loop
		
		'if after cycling through all properties, no property matched the current first property
		if found = false then
			rs.MoveFirst
		end if
		
		'update database
		rscr.Fields("changedate") = date()
		rscr.Fields("firstproperty") = rs.Fields("title")
		rscr.Update
		
		'assign first property as new first property
		fip = rs.Fields("propertyID")
		fiptitle = rs.Fields("title")
		fipcity = rs.Fields("city")
		fipprice = rs.Fields("price")		
		
	else 'it is not time to rotate the property list
		'for each property in this category
		do while rs.EOF = false
			'if this is the current first property to display
			if rs.Fields("title") = rscr.Fields("firstproperty") then
				found = true
				exit do
			else
				rs.MoveNext
			end if
		loop
		
		'if no property was found that matches the first property to be displayed
		'it has probably been deleted or is hidden
		'move on to next property
		if found = false then
			if rs.EOF = false then
				rs.MoveNext
			else
				rs.MoveFirst
			end if
		end if
		
		'assign first property as new first property
		fip = rs.Fields("propertyID")
		fiptitle = rs.Fields("title")
		fipcity = rs.Fields("city")
		fipprice = rs.Fields("price")	
	end if	

	rscr.Close
	rs.Close
else 'OH OH! There is no category!
	fip = 0
	fiptitle = ""
	fipcity = ""
	fipprice = ""
end if

set rscr = nothing
set rs = nothing
%>


<%

Response.buffer = true

set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_trimbledb_STRING
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3


topcat = Request("topcat")


'if a property has been specified by either querystring or form
if Request("propertyID") <> "" Then
	rs.Source = "SELECT * FROM propertyTBL where propertyID = " & request("propertyID")
	rs.Open()
	If rs.EOF = false then
		topcat = rs.Fields("topcat")
		firstpropertytitle = rs.Fields("title")
		firstpropertycity = rs.Fields("city")
		firstpropertyprice = rs.Fields("price")
	else
		firstpropertytitle = ""
		firstpropertycity = ""
		firstpropertyprice = ""
	end if
	rs.Close
	'if it is not the special property and there is no qs request
	if Request.Form("special") = "" and  Request.QueryString = "" Then
		If topcat = "ME" then
			propertytoshow = fmp
			categorytoshow = fmc
			firstpropertytitle = fmptitle
			firstpropertycity = fmpcity
			firstpropertyprice = fmpprice
		Elseif topcat = "CA" then
			propertytoshow = fcp
			categorytoshow = fcc
			firstpropertytitle = fcptitle
			firstpropertycity = fcpcity
			firstpropertyprice = fcpprice
		Else
			propertytoshow = fip
			categorytoshow = fic
			firstpropertytitle = fiptitle
			firstpropertycity = fipcity
			firstpropertyprice = fipprice
		End if
	else 'it is the special property or a qs specified property
		propertytoshow = Request("propertyID")
		'if a category has been specified
		If Request("categoryID") <> "" then
			categorytoshow = Request("categoryID")
		Else ' find the category to show
			rs.Source = "SELECT * FROM propertycategoryTBL where propertyID = " & request("propertyID")
			rs.Open()
			If rs.EOF = false then
				categorytoshow = rs.Fields("categoryID")
			else
				categorytoshow = 0
			end if
		End if
	end if

Else 'no specified property

	If topcat = "ME" then
		propertytoshow = fmp
		categorytoshow = fmc
		firstpropertytitle = fmptitle
		firstpropertycity = fmpcity
		firstpropertyprice = fmpprice
	Elseif topcat = "CA" then
		propertytoshow = fcp
		categorytoshow = fcc
		firstpropertytitle = fcptitle
		firstpropertycity = fcpcity
		firstpropertyprice = fcpprice
	Else
		propertytoshow = fip
		categorytoshow = fic
		firstpropertytitle = fiptitle
		firstpropertycity = fipcity
		firstpropertyprice = fipprice
	End if
End if



If topcat = "IN" then
	mainview = "javascript:top.lreJS.blankPage"
ELSE
	mainview = "viewproperty.asp?propertyID=" & propertytoshow & "&zsize=regular"
End if
%>
<HTML>
<HEAD>
<title>Maine Property Listings - Trimble Private Brokerage</title>
<meta name="description" content="Trimble Private Brokerage. Maine Waterfront, Oceanfront, Island, Lakefront, and Unique Maine Properties.">
<meta name="keywords" content="Real estate, state of Maine, real estate in the State of Maine, coastal real estate, maine real estate, waterfront, beachfront properties, Maine, Camden Maine, Belfast Maine, Rockland Maine, real estate, oceanfront, coastal, ocean, coast, Camden Harbor, Harpswell, Boothbay Maine, Boothbay Harbor, Kennebunk Maine, Kennebunkport Maine, Ogunquit Maine, Belfast, Rockland,">
<META http-equiv=pragma content=no-cache>
<META content="Trimble Private Brokerage" name=publisher>
<META content="Safe for kids." name=rating>
<META content="30 days" name=revisit-after>
<META content=http://www.trimblerealty.com name=identifyer-urlL>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<script language="JavaScript1.2">
<!--
top.lreConfig = new Object();

top.lreConfig.firmKey = '113';

top.lreConfig.searchPage = '/global/trimble2/search.html';

// -->
</script>
<script language="JavaScript1.2" src="http://luxuryrealestate.com/global/javascript/lreJS.js"></script>

</HEAD>

<frameset rows="184,100%" frameborder="NO" border="0" framespacing="0">

	<frame src="topnav.asp?fic=<%=fic%>&fmc=<%=fmc%>&fcc=<%=fcc%>&fip=<%=fip%>&fmp=<%=fmp%>&fcp=<%=fcp%>&topcat=<%=topcat%>&categoryID=<%=categorytoshow%>&fiptitle=<%=server.URLEncode(fiptitle)%>&fipcity=<%=server.URLEncode(fipcity)%>&fcptitle=<%=server.URLEncode(fcptitle)%>&fcpcity=<%=server.URLEncode(fcpcity)%>&fmptitle=<%=server.URLEncode(fmptitle)%>&fmpcity=<%=server.URLEncode(fmpcity)%>" name="top" scrolling="NO" noresize frameborder="NO" marginwidth="0" marginheight="0">

	<frameset cols="160,598,*" rows="*" frameborder="NO" border="0" framespacing="0">

		<frame src="propertylist.asp?categoryID=<%=categorytoshow%>&topcat=<%=topcat%>" name="left" noresize frameborder="NO" marginwidth="0" marginheight="0" scrolling="YES">

		<frameset rows="47,100%" frameborder="NO" border="0" framespacing="0" <%If topcat = "IN" then%> onLoad="lre_loadPage(main);"<%End if%>>

			<frame src="top2.asp?title=<%=server.urlencode(firstpropertytitle)%>&city=<%=server.urlencode(firstpropertycity)%>" name="propnav" scrolling="NO" noresize frameborder="NO" marginwidth="0" marginheight="0">

			<frame src="<%=mainview%>" name="main" frameborder="NO" noresize marginwidth="0" marginheight="0">

		</frameset>

		<frame src="right.htm" frameborder="NO" noresize scrolling="NO" marginwidth="0" marginheight="0" name="right">

	</frameset>

</frameset>

<noframes>
<body>
<p><font face="Verdana, Arial, Helvetica, sans-serif"><strong>Trimble Private Brokerage - Uniquely Maine Properties</strong></font></p>
	<p>Welcome to Trimble Private Brokerage, specializing in the marketing and sale of properties which are uniquely Maine. Whether an island, an estate, a secluded farm, or a private lakefront kingdom, Trimble Private Brokerage offers properties of incomparable aesthetics in pristine Maine surroundings.

From the breathtaking western Maine mountains to the quiet clear lakes and ponds of the north, to the bold shore frontage of the coast, Trimble Private Brokerage covers properties for sale in the state of Maine.</p>
	<p>Trimble Private Brokerages’ track record of success, award winning marketing and promotion coupled with an experienced brokerage staff, assures sellers successful and professional representations and buyers unequaled property selections.

We invite you to sample some of these special properties. Welcome.

</p>
	<ul>
	  <li><font face="Verdana, Arial, Helvetica, sans-serif"><a href="listings_maine.html" target="_parent"><font face="Arial, Helvetica, sans-serif">v<font size="2">iew our properties </font></font></a></font></li>
      <li><font size="2" face="Arial, Helvetica, sans-serif"><a href="index.html">go to home page</a></font></li>
</ul>
	<p>&nbsp;</p>
</body>
</noframes>

</HTML>