%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ Dim strHtmlFamilyPictures, strHtmlSourcePictures, strHtmlPlacePictures, strHtmlEducationPictures Dim strHtmlOccupationPictures, strHtmlEmotionalRelationshipPictures, strHtmlSocialRelationshipPictures Dim strLabelPictures, strSocialEntityPictures, strIndividualContactPictures, strSocialEntityContactPictures, strTreeOnload Dim strHtmlIndividualPictures If Session("cTocExpand") = -1 Or Session("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 Individuals WriteHtmlTocIndividuals fTreeOpen, true, false, false strHtmlIndividualPictures = Report.Buffer Report.BufferLength = 0 ' 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 Individual Contacts WriteHtmlTocIndividuals fTreeOpen, true, true, false strHtmlContactIndividualPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Social Entity Contacts WriteHtmlTocEntities SocialEntities, True, True strHtmlSocialEntityPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Emotional Relationships WriteHtmlTocRelationships EmotionalRelationships, True strHtmlEmotionalRelationshipPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Social Relationships WriteHtmlTocRelationships SocialRelationships, True strHtmlSocialRelationshipPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Social Entities WriteHtmlTocEntities SocialEntities, True, False strHtmlSocialEntityPictures = Report.Buffer Report.BufferLength = 0 ' repeat for Labels WriteHtmlTocLabels Labels, True strHtmlSocialLabelPictures = Report.Buffer Report.BufferLength = 0 ]%>