<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables Dim strPlace 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.Session("City"), p.Session("County"), p.Session("State"), p.Zip, p.Session("Country")) if strPlace = "" Then strPlace=p.Session("NameFull") ]%> @[ Report.WriteFormatted Dic("FmtTitlePlace"), Session("Title") ]@ <%[ If g_fGoogleMaps Then Report.WriteFormattedLn "", g_strGoogleMapsApiKey End If If g_fGoogleMaps And Not g_fGoogleMapsLink Then Dim 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") '=========================================================== ' Subroutines to generate the page '=========================================================== Sub WriteMetaDescription(p) Report.WritePhraseDic "FmtMetaDescPlace", p.Session("Locative") End Sub Sub WriteMetaKeywords(p, strPlace) Report.WriteText Dic("Place") & " " & strPlace End Sub ]%>