<%[@ IncludeFile "Code/Lang.vbs" ]%> <%[@ IncludeFile "Code/Util.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ Set oStringDictionaryNames = Session("oStringDictionaryNames") strTitle = Dic("TocAlphabeticalIndex") ]%> @[ Report.WriteText strTitle ]@
@[WriteHtmlButtonToggle("HidePopUp")]@

@[ Report.WriteTextDic "TocAlphabeticalIndex" ]@

<%[ strNoName = Dic("_NoName") Set oStringDictionaryFirstChar = Session("oStringDictionaryFirstChar") Set oRepertoryNoLastName = Session("oRepertoryNoLastName") Set oRepertoryIndividuals = Session("oRepertoryIndividuals") If (Not Util.IsNothing(oRepertoryIndividuals)) Then For Each o In oRepertoryIndividuals strFirstChar = o.Key Report.WriteFormatted "
{0&t}   ", strFirstChar Next If (oRepertoryNoLastName.Count > 0) Then Report.WriteFormatted "{0&t}", strNoName End If Report.WriteLn "
" strFmtTemplate = "{}{1&t} " & StrDicExt("FmtCounter", "", " ({})", "", "2011.02.16") If Session("fUseTreeIndexes") Then strFmtTemplate = "{}{1&t} " & StrDicExt("FmtCounter", "", " ({})", "", "2011.02.16") For Each o In oRepertoryIndividuals strFirstChar = o.Key Set oRepertoryFamilies = o.Object(0) Report.WriteFormattedBr " - {0&t} -   {}", strFirstChar, o.Object(1) strSeparator = "" For Each oFamily In oRepertoryFamilies strNameLast = oFamily.Key Report.WriteFormatted strFmtTemplate, strSeparator, Replace(strNameLast, " ", "_"), oFamily.Count strSeparator = ",  " Next Report.WriteBr "
" Next Report.WriteLn "
" End If ]%> <%[WriteHtmlFramesetSafeguard(oStringDictionaryNames.Count)]%>