<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ Dim strHtmlFamilyPictures, strHtmlSourcePictures, strHtmlPlacePictures, strHtmlEducationPictures, strHtmlOccupationPictures, strHtmlEmotionalRelationshipPictures, strHtmlSocialRelationshipPictures, strTreeOnload InitGlobalVariables If g_cTocExpand = -1 Or g_cTocExpand >= Pictures.Count Then fTreeOpen = true strToggle="collapse" Else fTreeOpen = false strToggle = "expand" End If ' The following lines of code writes all the family pictures ' into the output buffer, and then get them back into a strHtmlFamilyPictures. ' The rationale is there may be no family pictures, and therefore the page can be optimized WriteHtmlTocFamilies fTreeOpen, true strHtmlFamilyPictures = Report.Buffer ' Get the content of the entire buffer stream Report.BufferLength = 0 ' Flush what was written and restart from scratch. This line must be before the tag ' repeat for Places WriteHtmlTocPlaces fTreeOpen, true strHtmlPlacePictures = Report.Buffer Report.BufferLength = 0 ' repeat for Sources WriteHtmlTocSources fTreeOpen, true strHtmlSourcePictures = Report.Buffer Report.BufferLength = 0 ' repeat for Educations WriteHtmlTocEducations fTreeOpen, true strHtmlEducationPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Occupations WriteHtmlTocOccupations fTreeOpen, true strHtmlOccupationPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Emotional Relationships WriteHtmlTocRelationships EmotionalRelationships, fTreeOpen strHtmlEmotionalRelationshipPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Social Relationships WriteHtmlTocRelationships SocialRelationships, fTreeOpen strHtmlSocialRelationshipPictures = Report.Buffer Report.BufferLength = 0 ]%> @[ Report.WriteFormatted Dic("FmtTitleTocPictures"), Session("Title") ]@ <%[ Dim strFmtTemplate, strTrailer If g_fUseTreeIndexes Then Report.WriteLn "" WriteHtmlButtonToggle("Entries") strFmtTemplate=Util.FormatString("

  • {}

    • " Else Report.WriteLn "
    " If (strHtmlFamilyPictures <> "") Then Report.WriteFormattedLn "{}", Dic("TocIndexPicturesFamilies") End If If (strHtmlPlacePictures <> "") Then Report.WriteFormattedLn "{}", Dic("TocIndexPicturesPlaces") End If If (strHtmlSourcePictures <> "") Then Report.WriteFormattedLn "{}", Dic("TocIndexPicturesSources") End If Report.WriteLn "
    " strFmtTemplate = "

    {}

    " strTrailer="" End If Report.WriteFormattedLn "

    {}

    ", Dic("TocIndexPictures") If g_fUseTreeIndexes Then Report.WriteLn "