<%[@ IncludeFile "Code/Util.vbs" ]%> <%[ Set doc = ReportGenerator.document strTitle = Session("Title") ' Provide a mechanism for the viewer to contact the author of the report. This contact mechanism is only available if ' the report is published to http://familytrees.genopro.com/ fContactAuthor = (Left(ReportGenerator.PathOutputHttp, 31) = "http://familytrees.genopro.com/") InitGlobalVariables fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder) ]%> @[ Report.WriteFormatted Dic("FmtTitleHeading"), strTitle ]@
@[Report.Write Dic(
@[Report.WriteTextDic "AltHome"]@ @[Report.WriteTextDic "AltIndividuals"]@ @[Report.WriteTextDic "AltFamilies"]@ <%[ If (Not Util.IsNothing(Session("toc_genomaps"))) Then ]%> @[Report.WriteTextDic "AltSvg"]@ <%[ End If If (Pictures.Count > 0) Then ]%> @[Report.WriteTextDic "AltPictures"]@ <%[ End If If (Contacts.Count > 0) Then ]%> @[Report.WriteTextDic "AltContacts"]@ <%[ End If If (Places.Count > 0) Then ]%> @[Report.WriteTextDic "AltPlaces"]@ <%[ End If If (SourcesAndCitations.Count > 0) Then ]%> @[Report.WriteTextDic "AltSources"]@ <%[ End If If (g_Timelines) Then ]%> @[Report.WriteTextDic "AltTimeLine"]@ <%[ End If If (g_Calendar) Then ]%> @[Report.WriteTextDic "AltCalendar"]@ <%[ End If ]%>

<%[ Report.WriteText strTitle If (fContactAuthor) Then]%> @[Report.WriteTextDic "AltContactAuthor"]@ <%[End If]%>