<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables ]%> @[ Report.WriteText Session("Title") ]@ - Genealogy Places and Locations <%[ If g_fGoogleMaps Then Report.WriteFormattedLn "", g_strGoogleMapsApiKey End If If g_fGoogleMaps And Not g_fGoogleMapsLink Then Dim strPlace, strZoom strPlace=Util.FormatPhrase("{0}[[{?0},]{1}][[{?0|1},]{2}][[{?0|1|2},]{3}][[{?0|1|2|3},]{4}][[{?0|1|2|3|4},]{5}]",p.Street, p.City, p.County, p.State, p.Zip, p.Country) if strPlace = "" Then strPlace=JoinPlaceNames(p, p.Name, true) strZoom=CustomTag(p, "Map.Google.Zoom") if strZoom = "" Then strZoom = g_strGoogleMapsZoom Report.WriteFormattedLn "", p.Latitude, p.Longitude, strPlace, strZoom Else Report.WriteLn "" End If Report.WriteLn "
" g_ichNotesStart = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength g_ichReferencesStart = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength WriteHtmlButtonToggle("HidePopUp") Report.WriteLn "
" WriteHtmlPlace p, g_fGoogleMaps, g_fGoogleMapsLink If g_ichReferencesStart >= 0 Then ' We have no place references, so remove the "Show All References | Hide All References" Report.BufferRemoveAt g_ichReferencesStart, ichReferencesEnd 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 ]%>

<%[ WriteHtmlFramesetSafeguard("Place") ]%>