<%[@ IncludeFile "Code/Util.vbs" ]%> <%[ InitGlobalVariables Set doc = ReportGenerator.document Set oStringDictionaryNames = Session("oStringDictionaryNames") strTitle = Session("Title") ]%> @[ Report.WriteText strTitle ]@ <%[If g_fGoogleMaps Or g_fGoogleMapsOverview Then ]%> <%[End If]%> <%[If g_fUseTreeIndexes Then ]%> <%[Else]%> <%[End If]%> <body> <p> <%[ 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 "</p><ul>" WriteFamily 0 WriteFamily 1 WriteFamily 2 WriteFamily 3 Report.WriteLn "</ul><p>" Report.WriteLn Dic("FmtHtmlDefault3") strSep = "" iNameLast = oStringDictionaryNames.Count - 1 For iName = 4 To iNameLast Report.WriteFormatted "{0}<a href='toc_individuals.htm#{1&t}'>{1&t}</a>", strSep, oStringDictionaryNames.Key(iName) strSep = ", " Next Report.WriteBr "." End If Report.WriteBr Report.WriteFormatted Dic("FmtCopyright"), "© 1998-2007 GenoPro Inc." Report.WriteFormatted Dic("FmtHtmlDefault6"), "<a href='http://www.genopro.com/'>http://www.genopro.com/</a>" Sub WriteFamily(iFamily) Dim strName If (iFamily < oStringDictionaryNames.Count) Then strName = oStringDictionaryNames.Key(iFamily) Report.WriteFormattedLn "<li><a href='toc_individuals.htm#{0&t}'>{1}</a>.</li>", strName, Util.FormatPhrase(Dic("FmtHtmlDefault4"), strName, oStringDictionaryNames.KeyCounter(iFamily), (iFamily Mod 2) = 0, (iFamily Mod 3) <> 0, iFamily = 0) End If End Sub ]%> </p> </body>