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

@[Report.WriteFormatted StrDicExt("HeadergMapIndividual","","Places in the life of {}","","2010.12.10"), i.Name]@

<%[if session("fUseCurvyBoxes") then CurvyBoxClose()]%> <%[ WriteHtmlFramesetSafeguard("") ]%> <%[ Set oPlaces = Nothing Report.BufferWriteToFile "individual_map-" & i.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 ]%>