<% Dim strPageTitle:strPageTitle = "Attractions" Function Content %>

Horsemans Ranch: Acreage and Amenities for HorsePeople

<% Dim rstLinkCategory: Set rstLinkCategory = GDAT_PullRecords(cnnMain, "*", "LinkLiteAreas", "LinkLiteAreaID = " & RequestNumeric("id"), "") If Not rstLinkCategory.EOF Then Response.Write " " & rstLinkCategory("Area") & " - Attractions" End If rstLinkCategory.Close: Set rstLinkCategory = Nothing %>

<% Dim rstLinks, intCounter: Set rstLinks = GDAT_PullRecords(cnnMain, "*", "LinkLites", "[Active] = 1 AND LinkLiteAreaID = " & RequestNumeric("id") & " AND LinkLiteCategoryID = 1", "SortID") intCounter = 0 Do While Not rstLinks.EOF intCounter = intCounter + 1 Response.Write "

" & vbCrLf If IsNull(rstLinks("Thumbnail")) Or (Not rstLinks("Thumbnail") <> "") Then Response.Write " " & vbCrLf Else Response.Write " " & vbCrLf End If Response.Write " " & rstLinks("Title") & "
" & vbCrLf Response.Write " " & rstLinks("Description") & "

" & vbCrLf If intCounter > 1 Then Response.Write "

" & vbCrLf intCounter = 0 End If rstLinks.MoveNext Loop rstLinks.Close: Set rstLinks = Nothing %>

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