<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ Dim fTreeOpen, sToggle, strHtmlSocialEntityContacts, strHtmlIndividualContacts If Session("cTocExpand") = -1 Or Session("cTocExpand") >= Contacts.Count Then fTreeOpen = true strToggle="collapse" Else fTreeOpen = false strToggle = "expand" End If ' get Individual Contacts into a string variable WriteHtmlTocIndividuals fTreeOpen, false, true, false strHtmlIndividualContacts = Report.Buffer Report.BufferLength = 0 ' repeat for Social Entities WriteHtmlTocEntities SocialEntities, False, True strHtmlSocialEntityContacts = Report.Buffer Report.BufferLength = 0 ]%> @[ Report.WriteFormatted Dic("FmtTitleTocContacts"), Session("Title") ]@ <%[If Session("fUseTreeIndexes") Then]%> <%[If Session("fUseCurvyBoxes") Then CurvyBoxOpen() Else Report.WriteLn "
" End if ]%> @[WriteHtmlButtonToggle("Entries")]@ <%[Else]%> <%[If Session("fUseCurvyBoxes") Then CurvyBoxOpen() Else Report.WriteLn "
" End if End If]%>

@[ Report.WriteTextDic "TocIndexOccupancies" ]@

<%[Report.Write Util.IfElse(Session("fUseCurvyBoxes"), "
", "
") Report.WriteLn "
    " WriteHtmlIndex "Individual", strHtmlIndividualContacts, "Contacts" WriteHtmlIndex "SocialEntity", strHtmlSocialEntityContacts, "Contacts" ]%>
<%[If Session("fUseCurvyBoxes") Then CurvyBoxClose()]%> <%[ WriteHtmlFramesetSafeguard(Contacts.Count) ]%>