@[ Report.WriteFormatted Dic("FmtTitlePlace"), Session("Title") ]@
<%[If Session("GoogleMaps") Then ]%>
<%[End If]%>
<%[
If Session("VideoJs") Then
]%>
<%[
End If
]%>
@[GoogleAnalytics]@
<%[ ichPictureMessageEnd = Report.BufferLength ]%>
<%[
Dim oDataSorter, collPlaces
Set oDataSorter = Util.NewDataSorter()
For Each p in Places
' do not report place if no references
If p.Session("References") > 0 Then 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 (Session("NotesStart") >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt Session("NotesStart"), ichNotesEnd
End If
If Session("ReferencesStart") >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Places") ]%>