<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ If Not Session("GoogleMaps") Then Report.AbortPage End If Dim f,c, oPlaces For Each f In Families Set oPlaces = Util.NewGenoCollection() If f.Parents.Count > 0 Then GMapCollateIndividualEvents oPlaces, f.Parents(0), True If f.Parents.Count > 1 Then GMapCollateIndividualEvents oPlaces, f.Parents(1), True GMapCollateFamilyEvents oPlaces,f,True For Each c In f.Children GMapCollateIndividualEvents oPlaces, c, True Next If oPlaces.Count > 0 Then f.Session("gMap") = True ]%> <%[if session("fUseCurvyBoxes") then CurvyBoxOpen()]%>
@[Report.WriteTextDic @[Report.WriteTextDic

@[Report.WriteFormatted StrDicExt("HeadergMapFamily","","Places associated with the family of {}","","2010.12.10"), f.Name]@

<%[if session("fUseCurvyBoxes") then CurvyBoxClose()]%> <%[ WriteHtmlFramesetSafeguard("") ]%> <%[ Set oPlaces = Nothing Report.BufferWriteToFile "family_map-" & f.ID & ".htm" ' Write the content of the buffer to a file Report.BufferLength = 0 ' Flush the buffer for the next HTML page End If Next ' Generate the next HTML page ]%>