<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ strTitle = Dic("TocIndexPlaces") ]%> @[ Report.WriteFormatted Dic("FmtTitlePlace"), Session("Title") ]@ <%[If Session("GoogleMaps") Then ]%> <%[End If]%> <%[ If Session("VideoJs") Then ]%> <%[ End If ]%> @[GoogleAnalytics]@
<%[ Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength ]%>

@[ Report.WriteText strTitle ]@

<%[ ichPictureMessageStart = Report.BufferLength ]%>

@[Report.WriteTextDic "PictureMessage"]@

<%[ 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 "
" WriteHtmlPlace p, Session("GoogleMaps"), True 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") ]%>