<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder) If (Not fPrivateFolder) Then Report.AbortPage If g_cTocExpand = -1 Or g_cTocExpand >= Pictures.Count Then fTreeOpen = true strToggle="collapse" Else fTreeOpen = false strToggle = "expand" End If ]%> @[ Report.WriteFormatted Dic("FmtTitleTocContacts"), Session("Title") ]@ <%[If fPrivateFolder Then Report.WriteFormattedLn "",g_strBaseUrl _ Else Report.Write ""]%> <%[If g_fUseTreeIndexes Then]%> @[WriteHtmlButtonToggle("Entries")]@ <%[Else]%> <%[End If]%>

@[ Report.WriteTextDic "TocIndexOccupancies" ]@

<%[ Dim strFirstChar, strFirstCharPrev, strName, strNamePrev, c If g_fUseTreeIndexes Then Report.WriteLn "" ]%>

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