This genealogy report is about @[ Report.WriteText strTitle ]@.
<%[
Report.WritePhrase " It contains {0} individuals and {1} families[, and also {2}] from the family tree. {3}{\br}", Individuals.Count, Families.Count, Dic.PlurialCount("Picture", Pictures.Count), doc.Description
Set oStringDictionaryNames = Session("oStringDictionaryNames")
If (Not Util.IsNothing(oStringDictionaryNames)) Then
Report.WriteLn "
"
WriteFamily 0, "Find", "ancestors"
WriteFamily 1, "Search", "persons"
WriteFamily 2, "Find", "persons"
WriteFamily 3, "Search", "people"
Report.WriteLn "
You may also search for the following family names: "
strSep = ""
iNameLast = oStringDictionaryNames.Count - 1
For iName = 4 To iNameLast
Report.WriteFormatted "{0}{1&t}", strSep, oStringDictionaryNames.Key(iName)
strSep = ", "
Next
Report.WriteBr "."
End If
Sub WriteFamily(iFamily, strVerb, strPeople)
If (iFamily < oStringDictionaryNames.Count) Then
Report.WriteFormattedLn "{2&t} the {0&t} family and its {1} {3&t}.", oStringDictionaryNames.Key(iKey), oStringDictionaryNames.KeyCounter(iKey), strVerb, strPeople
End If
End Sub
]%>
Copyright © 1998-2005 GenoPro Inc. All rights reserved.
Download GenoPro from http://www.genopro.com/