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