<%[@ IncludeFile "Code/Lang.vbs" ]%> <%[@ IncludeFile "Code/Util.vbs" ]%> <%[ If Session("Book") Then Report.AbortTemplate Set doc = ReportGenerator.document Set oStringDictionaryNames = Session("oStringDictionaryNames") strTitle = Session("Title") ]%> @[ Report.WriteFormatted Dic("FmtTitleHome"), strTitle ]@ @[GoogleAnalytics]@
<%[ If (Left(ReportGenerator.PathOutputHttp, 31) = "http://familytrees.genopro.com/") Then ' Provide a mechanism for the viewer to contact the author of the report. This contact mechanism is only available if ' the report is published to http://familytrees.genopro.com/ ]%> @[Report.WriteTextDic "AltContactAuthor"]@  <%[ End If Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength ]%>

@[Report.WriteText Session("Title")]@

<%[ Report.WriteFormattedLn Dic("FmtHtmlHomeIntro"), strTitle, Individuals.Count, Families.Count Report.WriteBr StrDicExt("FmtHtmlHelp","", "Click here for help on accessing this website", "", "2010.12.10") 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} " & StrDicExt("FmtCounter", "", " ({})", "", "2011.02.16") If Session("fUseTreeIndexes") Then strFmtTemplate = "{0&t} " & StrDicExt("FmtCounter", "", " ({})", "", "2011.02.16") cPlaces = Places.Count ]%>
0," width='49%'","")]@>

@[ Report.WriteTextDic "HomeMostPopularFamilyNames" ]@

<%[ strSep="" For iName = 0 To iNameLast Report.WriteFormatted strSep & strFmtTemplate, Replace(oStringDictionaryNames.Key(iName) & OStringDictionaryNames.KeyValue(iName)," ", "_"), oStringDictionaryNames.KeyCounter(iName) strSep = ", " Next If cPlaces > 0 Then Report.WriteFormattedLn "

{}

", Dic("TocIndexPlacesPopular") ' Places.SortBy("-References.Count") ' Sort by most popular place Dim oDataSorter, rCnt, collPlaces Set oDataSorter = Util.NewDataSorter() For each p in Places rCnt = p.Session("References") ' ignore places with no references If rCnt > 0 Then oDataSorter.Add p, rCnt+10000000 Next oDataSorter.SortByKey oDataSorter.Reverse Set collPlaces = oDataSorter.ToGenoCollection iLast = collPlaces.Count - 1 If iLast > 19 Then iLast = 19 strSep="" For i = 0 to iLast Set p = collPlaces(i) Report.WriteFormatted strSep & "{2&t}  ({3})", p.ID, p.Category, p.Session("NameFull"), p.Session("References") strSep = ", " Next End If Report.WriteLn "
" If Session("fUseTreeIndexes") Then Report.WriteFormattedLn " {}", Dic("TocAZSurnameIndex") End If Report.WriteLn "" if Session("fGoogleMapsOverview") And cPlaces > 0 Then Report.WriteFormattedLn " {}", Dic("gMapPlaces") End If ]%>
<%[ ' remove any unecessary items (reverse order to avoid invalidating buffer pointers) If Session("ReferencesStart") >= 0 Then ' We have no place references, so remove the "Show All References | Hide All References" Report.BufferRemoveAt Session("ReferencesStart"), ichReferencesEnd End If If (Session("NotesStart") >= 0) Then ' We have no annotations, so remove the "Show All Notes | Hide All Notes" Report.BufferRemoveAt Session("NotesStart"), ichNotesEnd End If ]%>

@[Report.WriteFormatted Dic("FmtHtmlHomeSkin"), ReportGenerator.SoftwareVersion, Year(Date()), Month(Date()), Day(Date()), Util.IfElse(Session("SkinModified"),Dic("Custom") & " ", ""), ReportGenerator.SkinName, Session("SkinVersion")]@@[Report.WritePhrase Dic("FmtHtmlHomeSkin2"),Session("SkinFolder"), Session("SavedProfile")]@.

@[Report.Write Dic(

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