<%[
strNoName = Dic("_NoName")
Set oRepertoryIndividuals = Session("oRepertoryIndividuals")
If (Not Util.IsNothing(oRepertoryIndividuals)) Then
For Each o In oRepertoryIndividuals
strFirstChar = o.Key
Set oRepertoryFamilies = o.Object(0)
Report.WriteFormattedLn "
{&t} {&t}
", strFirstChar, o.Object(1)
For Each oFamily In oRepertoryFamilies
strNameLast = oFamily.Key
Report.WriteFormatted "
{&t} ({&t})
", strNameLast, Dic.PlurialCount("Individual", oFamily.Count)
For Each i In oFamily
' AddIndividualNode(i)
Report.Write "
" & StrHtmlImgGender(i)
WriteHtmlTocIndividual i
Report.WriteLn "
"
Next
Report.WriteLn "
"
Next
Report.WriteLn "
"
Next
Set oRepertoryNoLastName = Session("oRepertoryNoLastName")
Report.WriteFormatted "
", strNoName, Dic.PlurialCount("Individual", oRepertoryNoLastName.Count)
For Each o In oRepertoryNoLastName
' AddIndividualNode(o.Object(0))
Report.Write StrHtmlImgGender(o.Object(0))
WriteHtmlTocIndividual o.Object(0)
Report.WriteBr
Next
Report.WriteLn "
"
End If
Sub AddIndividualNode(i)
Dim cchBuffer, strHtmlCollections, strHtmlIndividual
cchBuffer = Report.BufferLength ' Remember the length of the output buffer
Report.Write StrHtmlImgGender(i)
WriteHtmlTocIndividual i
strHtmlIndividual = Report.Buffer(cchBuffer) ' Get the HTML text with the hyperlinks from the buffer
Report.BufferLength = cchBuffer ' Restore the buffer to its original size for the collections
WriteIndividualCollection i, i.Educations, "Education"
WriteIndividualCollection i, i.Occupations, "Occupation"
WriteIndividualCollection i, i.Children, "Family"
strHtmlCollections = Report.Buffer(cchBuffer) ' Get the collections from the buffer (this string contains HTML code)
Report.BufferLength = cchBuffer ' Restore the buffer to its original size
If (strHtmlCollections <> "") Then
Report.WriteFormattedLn "
", strHtmlIndividual
End If
End Sub
Sub WriteIndividualCollection(i, coll, strCollectionName)
If (Not Util.IsNothing(coll)) Then
Report.WriteFormattedLn "