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

<% Dim rstLinkCategory: Set rstLinkCategory = GDAT_PullRecords(cnnMain, "*", "LinkLiteAreas", "LinkLiteAreaID = " & RequestNumeric("id"), "") If Not rstLinkCategory.EOF Then Response.Write " " & rstLinkCategory("Area") & " - Amenities" End If rstLinkCategory.Close: Set rstLinkCategory = Nothing %> <% Dim rstLinks: Set rstLinks = GDAT_PullRecords(cnnMain, "*", "LinkLites", "[Active] = 1 AND LinkLiteAreaID = " & RequestNumeric("id") & " AND LinkLiteCategoryID = 2", "SortID") Do While Not rstLinks.EOF Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf rstLinks.MoveNext Loop rstLinks.Close: Set rstLinks = Nothing %> " & vbCrLf If Not rstLinks("Image") <> "" Then Response.Write " " & vbCrLf Else Response.Write " " & vbCrLf End If Response.Write " " & rstLinks("Title") & " " & vbCrLf Response.Write " " & rstLinks("Description") & "

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