<%[ ichPictureMessageEnd = Report.BufferLength ]%>
<%[
Dim oDataSorter, collPlaces
Set oDataSorter = Util.NewDataSorter()
For Each p in Places
oDataSorter.Add p, p.Session("NameFull")
Next
oDataSorter.SortByKey
Set collPlaces = oDataSorter.ToGenoCollection
For Each p In collPlaces
Report.WriteLn "
"
Next
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If ichPictureMessageStart >= 0 Then
' We have no Pictures, so remove the 'click to enlarge' message
Report.BufferRemoveAt ichPictureMessageStart, ichPictureMessageEnd
End If
If (g_ichNotesStart >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt g_ichNotesStart, ichNotesEnd
End If
If g_ichReferencesStart >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Places") ]%>