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