%[@ 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.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 ]@
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 " "
Report.Writeln " "
Report.WriteLn "![]() | "
if g_fGoogleMapsOverview And cPlaces > 0 Then
Report.WriteFormattedLn "![]() |
@[Report.Write Dic("FmtHtmlHomeScripts")]@ |
@[Report.WriteFormatted Dic("FmtHtmlHomeSkin"), ReportGenerator.SoftwareVersion, FormatDateTime(Date(),1),
Util.IfElse(ReportGenerator.PathSkin, "", "custom "), ReportGenerator.SkinName, ReportGenerator.SkinVersion ]@.