%[@ IncludeFile "Code/Lang.vbs" ]%> <%[@ IncludeFile "Code/Util.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ Set oStringDictionaryNames = Session("oStringDictionaryNames") strTitle = Dic("TocAlphabeticalIndex") ]%>
" 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 "" End If ]%> <%[WriteHtmlFramesetSafeguard(oStringDictionaryNames.Count)]%>
" Next Report.WriteLn "