<%[@ 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.WriteFormatted Dic("FmtTitleHome"), strTitle ]@
<%[ g_ichNotesStart = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength g_ichReferencesStart = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength ]%>

@[ 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.Write StrFormatText(Null, doc.Description) ]@
<%[ iNameLast = oStringDictionaryNames.Count - 1 If (iNameLast > 19) Then iNameLast = 19 ' Keep only the first 20 families End If strFmtTemplate = "{0&t} ({})" If g_fUseTreeIndexes Then strFmtTemplate = "{0&t} ({})" 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 ]%>
<%[ ' remove any unecessary items (reverse order to avoid invalidating buffer pointers) If g_ichReferencesStart >= 0 Then ' We have no place references, so remove the "Show All References | Hide All References" Report.BufferRemoveAt g_ichReferencesStart, ichReferencesEnd End If If (g_ichNotesStart >= 0) Then ' We have no annotations, so remove the "Show All Notes | Hide All Notes" Report.BufferRemoveAt g_ichNotesStart, ichNotesEnd End If ]%>

@[Report.WriteFormatted Dic("FmtHtmlHomeSkin"), ReportGenerator.SoftwareVersion, Year(Date()), Month(Date()), Day(Date()), Util.IfElse(ReportGenerator.PathSkin, "", Dic("Custom") & " "), ReportGenerator.SkinName, ReportGenerator.SkinVersion ]@.

Valid XHTML 1.0 Transitional

@[Report.Write Dic(

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