<%[
strNoName = Dic("_NoName")
fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder)
If fPrivateFolder Then
Set oStringDictionaryNames = Session("oStringDictionaryNames")
Set oStringDictionaryFirstChar = Session("oStringDictionaryFirstChar")
Set oRepertoryNoLastName = Session("oRepertoryNoLastName")
Set oRepertoryIndividuals = Session("oRepertoryIndividuals")
Else
Set oStringDictionaryNames = Session("oStringDictionaryNamesPublic")
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)]%>