<% Dim strPageTitle:strPageTitle = "Gainesville TX : Acreage Horse Keeping Small : Horse Properties Texas : HorsemansRanch.com" Dim strPageKeywords:strPageKeywords = "Acreage Horse Keeping Small, Horse Properties Texas" Dim strPageMetaDesc:strPageMetaDesc = "If you are looking for a company who can help you for Acreage Horse Keeping Small and Horse Properties Texas Horsemansranch.com is a best place for you." Function Content Dim rstPageID, strPageID: Set rstPageID = GDAT_PullRecords(cnnMain, "*", "RealEstateAreas", "Page = 'gainesville_tx.asp'", "") strPageID = "" If Not rstPageID.EOF Then strPageID = rstPageID("RealEstateAreaID") End If rstPageID.Close: Set rstPageID = Nothing Dim rstAreaID, strAreaID: Set rstAreaID = GDAT_PullRecords(cnnMain, "*", "LinkLiteAreas", "Area = 'Gainesville, TX'", "") strAreaID = "" If Not rstAreaID.EOF Then strAreaID = rstAreaID("LinkLiteAreaID") End If rstAreaID.Close: Set rstAreaID = Nothing %>

Gainesville, TX <% Response.Write "
[ View Amenities ]" & vbCrLf Response.Write " [ View Attractions ]" & vbCrLf Dim rstPortfolio: Set rstPortfolio = GDAT_PullRecords(cnnMain, "*", "Photos", "[Page] = 'gainesville_tx.asp' AND [Public] = 1", "[SortID]") If Not rstPortfolio.EOF Then Do While Not rstPortfolio.EOF Response.Write "[ " & rstPortfolio("Photo") & " ] " & vbCrLf rstPortfolio.MoveNext Loop rstPortfolio.Close: Set rstPortfolio = Nothing End If %>

Click a lot number to view details for that property

<% Dim rstPhase2: Set rstPhase2 = GDAT_PullRecords(cnnMain, "*, ISNULL(CAST([Lot] AS NVARCHAR(100)), [Label]) AS LotLabel", "RealEstate", "RealEstateAreaID = 2 AND (([Lot] >= 18 AND [Lot] <= 48) Or ([Label] = 'Tract A' Or [Label] = 'Tract B'))", "[SortID]") Do While Not rstPhase2.EOF Dim strClass2: strClass2 = "platopen" If rstPhase2("Sold") = True Then strClass2 = "platsold" If rstPhase2("Reserved") = True Then strClass2 = "platres" Response.Write " " & _ "

" & _ "" & rstPhase2("LotLabel") & "" & _ "

" & vbCrLf rstPhase2.MoveNext Loop rstPhase2.Close: Set rstPhase2 = Nothing %>

Legend

# - Available

# - Sold

# - House For Sale

<% Dim rstPhase1: Set rstPhase1 = GDAT_PullRecords(cnnMain, "*", "RealEstate", "[Active] = 1 AND [RealEstateAreaID] = 2 AND [Lot] >= 0 AND [Lot] <= 17", "[SortID]") Do While Not rstPhase1.EOF Dim strClass1: strClass1 = "platopen" If rstPhase1("Sold") = True Then strClass1 = "platsold" If rstPhase1("Reserved") = True Then strClass1 = "platres" Response.Write " " & _ "

" & _ "" & rstPhase1("Lot") & "" & _ "

" & vbCrLf rstPhase1.MoveNext Loop rstPhase1.Close: Set rstPhase1 = Nothing %>

Legend

# - Available

# - Sold

# - House For Sale

<% End Function %> [an error occurred while processing this directive]