%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[
InitGlobalVariables
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 g_fUseTreeIndexes Then]%>
@[WriteHtmlButtonToggle("Entries")]@
<%[Else]%>
<%[End If]%>
@[ Report.WriteTextDic "TocIndexOccupancies" ]@
<%[
Dim strFirstChar, strFirstCharPrev, strName, strNamePrev, c
If g_fUseTreeIndexes Then Report.WriteLn "
"
WriteHtmlTocIndividuals fTreeOpen, false, true
If g_fUseTreeIndexes Then Report.WriteLn "
"
]%>
<%[ WriteHtmlFramesetSafeguard(Contacts.Count) ]%>