%[@ 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 fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder) = g_strPrivateFolder) ' 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 ]%>