<%[@ IncludeFile "Code/Util.vbs" ]%> <%[ Set doc = ReportGenerator.document Set oStringDictionaryNames = Session("oStringDictionaryNames") Set oStringDictionaryNamesPublic = Session("oStringDictionaryNamesPublic") strTitle = Session("Title") InitGlobalVariables cPrivate = Individuals.Count - Session("IndividualsCountPublic") ]%> @[ Report.WriteText strTitle ]@ - Report Summary

@[ Report.WriteFormattedLn Dic("FmtHtmlHomeIntro"), strTitle, Individuals.Count, Families.Count, cPrivate ]@ <%[ strFamilyTreeGno = ReportGenerator.ExtraFiles("FamilyTree.gno") If (strFamilyTreeGno <> "") Then Report.WriteFormattedLn Dic("FmtHtmlHomeBrowser"), strFamilyTreeGno, Dic.FormatString("FmtAltViewGnoFile", Util.HtmlEncode(strTitle)) End If strFamilyTreeGed = ReportGenerator.ExtraFiles("FamilyTree.ged") If (strFamilyTreeGed <> "") Then Report.WriteFormattedLn Dic("FmtHtmlHomeDownloadGed"), Util.IfElse(strFamilyTreeGno <> "", Dic("Also") & " ",""), strFamilyTreeGed End If Report.WriteBr ]%>

@[ Report.WriteText doc.Description ]@


<%[ strFmtTemplate = "{0&t} ({1})" If g_fUseTreeIndexes Then strFmtTemplate = "{0&t} ({1})" cPlaces = Places.Count ]%>
0," width='49%'","")]@>

@[ Report.WriteTextDic "HomeMostPopularFamilyNames" ]@

<%[ Report.Writeln "
" iNameLast = oStringDictionaryNamesPublic.Count - 1 If (iNameLast > 19) Then iNameLast = 19 ' Keep only the first 20 families strSep="" For iName = 0 To iNameLast Report.WriteFormatted strSep & strFmtTemplate, oStringDictionaryNamesPublic.Key(iName), _ oStringDictionaryNamesPublic.KeyCounter(iName),"" strSep = "," & VbCrLf Next Report.WriteLn "
" iNameLast = oStringDictionaryNames.Count - 1 If (iNameLast > 19) Then iNameLast = 19 ' Keep only the first 20 families Report.Writeln "" If cPlaces > 0 Then Report.WriteFormattedLn "

{}

", Dic("TocIndexPlacesPopular") Places.SortBy("-References.Count") ' Sort by most popular place iLast = Places.Count - 1 If iLast > 19 Then iLast = 19 strSep="" For i = 0 to iLast Set p = Places(i) Report.WriteFormatted strSep & "{2&t}  ({3})", p.ID, p.Category, p, p.References.Count strSep = "," & VbCrLf Next End If Report.WriteLn "
" Report.Writeln "
" If g_fUseTreeIndexes Then Report.WriteFormattedLn " {}", Dic("TocAZSurnameIndex") End If Report.Writeln "
" Report.Writeln "" Report.WriteLn "
" if g_fGoogleMapsOverview And cPlaces > 0 Then Report.WriteFormattedLn " {}", Dic("gMapPlaces") End If ]%>


@[Report.Write Dic("FmtHtmlHomeScripts")]@


@[Report.WriteFormatted Dic("FmtHtmlHomeSkin"), ReportGenerator.SoftwareVersion, FormatDateTime(Date(),1), Util.IfElse(ReportGenerator.PathSkin, "", "custom "), ReportGenerator.SkinName, ReportGenerator.SkinVersion ]@.

Valid XHTML 1.0 Transitional

@[Report.Write Dic(

<%[WriteHtmlFramesetSafeguard(oStringDictionaryNames.Count)]%>