<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ Dim strPlace, InlineMap InlineMap = (Session("GoogleMaps") And Not Session("fGoogleMapsLink")) ' do not report place if no references or only reference is to parent place If (p.Session("References") = 0) Then Report.AbortPage 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 InlineMap Then Report.WriteLn "" Report.WriteLn "" Report.WriteLn "" Dim strZoom If Not Session("OriginalNamesGoogleMaps") Then 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") Else 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=p.Name End If strZoom=CustomTag(p, "Map.Google.Zoom") if strZoom = "" Then strZoom = Session("GoogleMapsZoom") strType=CustomTag(p, "Map.Google.Type") If strType = "" Then strType = Session("GoogleMapsType") End If ]%> <%[ If Session("VideoJs") Then ]%> <%[ End If ]%> @[GoogleAnalytics]@ <%[ if session("fUseCurvyBoxes") then CurvyBoxOpen() Report.WriteLn "
" Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength WriteHtmlButtonToggle("HidePopUp") Report.WriteLn "
" WriteHtmlPlace p, Session("GoogleMaps"), Session("fGoogleMapsLink") If Session("ReferencesStart") >= 0 Then ' We have no place references, so remove the "Show All References | Hide All References" Report.BufferRemoveAt Session("ReferencesStart"), ichReferencesEnd 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("fUseCurvyBoxes") then CurvyBoxClose() 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 ]%>