%[@ 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 "
"
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
]%>