<% Dim strPageTitle:strPageTitle = "Property Details" Function Content %>

Horsemans Ranch: Acreage and Amenities for HorsePeople

<% Dim rstRealEstate: Set rstRealEstate = GDAT_PullRecords(cnnMain, "*, ISNULL('Lot #' + CAST([Lot] AS NVARCHAR(100)), [Label]) AS LotLabel", "RealEstate", "[Active] = 1 AND RealEstateID = " & RequestNumeric("id"), "") If Not rstRealEstate.EOF Then Response.Write " " & rstRealEstate("LotLabel") & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

" & vbCrLf Response.Write " View Printable Page " & vbCrLf Response.Write "

" & vbCrLf If rstRealEstate("MainImageActive") Then Response.Write "

" & vbCrLf End If Dim rstHidden: Set rstHidden = GDAT_PullRecords(cnnMain, "*", "RealEstatePhotos", "[Active] = 1 AND RealEstateID = " & rstRealEstate("RealEstateID"), "SortID") Do While Not rstHidden.EOF Response.Write "

" & vbCrLf rstHidden.MoveNext Loop rstHidden.Close: Set rstHidden = Nothing Response.Write " " & vbCrLf Response.Write " " & vbCrLf Dim rstPhotos: Set rstPhotos = GDAT_PullRecords(cnnMain, "*", "RealEstatePhotos", "[Active] = 1 AND RealEstateID = " & rstRealEstate("RealEstateID"), "SortID") Do While Not rstPhotos.EOF Response.Write " " & vbCrLf rstPhotos.MoveNext Loop rstPhotos.Close: Set rstPhotos = Nothing Response.Write " " & vbCrLf Response.Write "

" & vbCrlf Response.Write " " & vbCrLf Response.Write "

" & vbCrLf Response.Write " " & vbCrLf Response.Write "
" & vbCrLf Response.Write "

" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

" & vbCrLf Response.Write " Lot:	" Response.Write " " & rstRealEstate("LotLabel") & "
" & vbCrLf Response.Write " Acres:	" & vbCrLf Response.Write " " & ReplaceNull(rstRealEstate("Acres"), "Not Provided") & "
" & vbCrLf Response.Write " Price:	" & vbCrLf Response.Write " " & ReplaceNull(rstRealEstate("Price"), "Not Provided") & "

" & vbCrLf Response.Write "
" & rstRealEstate("Description") & "
" & vbCrLf Response.Write "

" & vbCrLf Response.Write " Back to property listing »" & vbCrLf Response.Write "

" & vbCrLf Dim rstAgent: Set rstAgent = GDAT_PullRecords(cnnMain, "*", "RealEstateSalesReps", "RealEstateSalesRepID = " & rstRealEstate("RealEstateSalesRepID"), "") If Not rstAgent.EOF Then Response.Write "
" & vbCrLf Response.Write " " & rstAgent("FirstName") & " " & rstAgent("LastName") & "
" & vbCrLf Response.Write " " & rstAgent("Address1") If Trim(rstAgent("Address2")&" ") <> "" Then Response.Write ", " & rstAgent("Address2") & "
" & vbCrLf Else Response.Write "
" & vbCrLf End If If Trim(rstAgent("City")&" ") <> "" And Trim(rstAgent("State")&" ") <> "" Then Response.Write " " & Trim(rstAgent("City") & ", " & rstAgent("State") & " " & rstAgent("Zip")) & "
" & vbCrLf End If If Trim(rstAgent("Telephone")&" ") <> "" Then Response.Write " Tel: " & rstAgent("Telephone") & "
" & vbCrLf End If If Trim(rstAgent("Fax")&" ") <> "" Then Response.Write " Fax: " & rstAgent("Fax") & "
" & vbCrLf End If Response.Write " Contact Me

" & vbCrLf Response.Write "

" & vbCrLf End If rstAgent.Close: Set rstAgent = Nothing Else Response.Write " Error. Cannot find property ID.

" & vbCrLf Response.Write " Back to property listing" & vbCrLf End If rstRealEstate.Close: Set rstRealEstate = Nothing %>

<% End Function Function ReplaceNull(strCheck, strAlternative) If Trim(strCheck&" ") <> "" Then ReplaceNull = strCheck Else ReplaceNull = strAlternative End If End Function %> [an error occurred while processing this directive]