<%[@ IncludeFile "Code/Util.vbs" ]%> <%[ Set oStringDictionaryNames = Session("oStringDictionaryNames") strTitle = Dic("TocAlphabeticalIndex") InitGlobalVariables ]%> @[ Report.WriteText strTitle ]@ <%[fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder) If fPrivateFolder Then Report.WriteFormattedLn "",g_strBaseUrl ]%>
@[WriteHtmlButtonToggle("HidePopUp")]@

@[ Report.WriteTextDic "TocAlphabeticalIndex" ]@

<%[ strNoName = Dic("_NoName") If fPrivateFolder Then Set oStringDictionaryFirstChar = Session("oStringDictionaryFirstChar") Set oRepertoryNoLastName = Session("oRepertoryNoLastName") Set oRepertoryIndividuals = Session("oRepertoryIndividuals") Else Set oStringDictionaryFirstChar = Session("oStringDictionaryFirstCharPublic") Set oRepertoryNoLastName = Session("oRepertoryNoLastNamePublic") Set oRepertoryIndividuals = Session("oRepertoryIndividualsPublic") End If If (Not Util.IsNothing(oRepertoryIndividuals)) Then For Each o In oRepertoryIndividuals strFirstChar = o.Key Report.WriteFormatted "
{0&t}   ", strFirstChar, g_strBaseurl & Report.FileOutput Next If (oRepertoryNoLastName.Count > 0) Then Report.WriteFormatted "{0&t}", strNoName End If Report.WriteLn "
" strFmtTemplate = "{}{1&t} ({})" If g_fUseTreeIndexes Then strFmtTemplate = "{}{1&t} ({})" If fPrivateFolder Then strFmtTemplate = "{}{1&t} ({})" If g_fUseTreeIndexes Then strFmtTemplate = "{}{1&t} ({})" End If 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, strNameLast, oFamily.Count strSeparator = ",  " Next Report.WriteBr "
" Next Report.WriteLn "
" End If ]%> <%[WriteHtmlFramesetSafeguard(oStringDictionaryNames.Count)]%>