<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables iCount = Session("IndividualsCount") + 0 If g_cTocExpand = -1 Or g_cTocExpand >= iCount Then fTreeOpen = true strToggle="collapse" Else fTreeOpen = false strToggle = "expand" End If fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder) = g_strPrivateFolder) If fPrivateFolder Then strPrivacy="private" Else strPrivacy="public" Report.LogWarning "Report.FileOutput=" & Report.FileOutput & " g_strPrivateFolder=" & g_strPrivateFolder & "[" & g_nPrivateFolder & "]" Report.LogWarning "fPrivateFolder=" & fPrivateFolder & " strPrivacy=" & strPrivacy ]%> @[ Report.WriteFormatted Dic("FmtTitleTocIndividuals"), Session("Title") ]@ <%[If fPrivateFolder Then Report.WriteFormattedLn "",g_strBaseUrl Else Report.WriteLn "" End If]%> <%[If g_fUseTreeIndexes Then]%> @[WriteHtmlButtonToggle("Entries")]@

@[ Report.WriteTextDic "TocIndexIndividuals" ]@

<%[WriteHtmlLinkToPrivateToc fPrivateFolder, "individuals"]%>
<%[End If]%>

<%[ WriteHtmlFramesetSafeguardK Session("Title"), "GenoProReportIndividuals", nothing ]%>