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