<%[
Report.WriteFormatted Dic("FmtHtmlDefault1"), strTitle
Report.WritePhraseDic "FmtHtmlDefault2", 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
WriteFamily 1
WriteFamily 2
WriteFamily 3
Report.WriteLn "
"
Report.WriteLn Dic("FmtHtmlDefault3")
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
Report.WriteBr
Report.WriteFormatted Dic("FmtCopyright"), "© 1998-2007 GenoPro Inc."
Report.WriteFormatted Dic("FmtHtmlDefault6"), "http://www.genopro.com/"
Sub WriteFamily(iFamily)
Dim strName
If (iFamily < oStringDictionaryNames.Count) Then
strName = oStringDictionaryNames.Key(iFamily)
Report.WriteFormattedLn "
{1}.", strName, Util.FormatPhrase(Dic("FmtHtmlDefault4"), strName, oStringDictionaryNames.KeyCounter(iFamily), (iFamily Mod 2) = 0, (iFamily Mod 3) <> 0, iFamily = 0)
End If
End Sub
]%>