<%[@ 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 ]%> @[ Report.WriteText strTitle ]@ - Genealogy Research
Create Your Family Tree in Minutes!
@[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 ]%>

<%[ Report.WriteText strTitle If (fContactAuthor) Then]%> Contact the creator of this genealogy report <%[End If]%>