%[@ 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) ]%>