%[@ 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")
]%>
<%[
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/
]%>
<%[
End If
Session("NotesStart") = Report.BufferLength
WriteHtmlButtonToggle("Notes")
ichNotesEnd = Report.BufferLength
Session("ReferencesStart") = Report.BufferLength
WriteHtmlButtonToggle("OtherDetails")
ichReferencesEnd = Report.BufferLength
]%>
<%[
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.Write Dic("FmtHtmlHomeScripts")]@ |
@[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")]@.

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