<%[@ IncludeFile "Code/Lang.vbs" ]%> <%[@ IncludeFile "Code/Util.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ Set doc = ReportGenerator.document Set oStringDictionaryNames = Session("oStringDictionaryNames") strTitle = Session("Title") ]%> @[ Report.WriteText strTitle ]@ <body> <p id="noframes"> <%[ NoFrames]%> </p> </body> <%[ Function FrameBorder() FrameBorder=Util.IfElse(Not Session("FrameBorders")," frameborder=""0"""," style=""margin-width:2px;border-color:silver;""") End Function Sub NoFrames Report.WriteFormatted Dic("FmtHtmlDefault1"), strTitle Report.WritePhraseDic "FmtHtmlDefault2", Individuals.Count, Families.Count, Dic.PlurialCount("Picture", Pictures.Count), doc.Description Set oStringDictionaryNames = Session("oStringDictionaryNames") If (Not Util.IsNothing(oStringDictionaryNames)) Then Report.WriteLn "

    " WriteFamily 0 WriteFamily 1 WriteFamily 2 WriteFamily 3 Report.WriteLn "

" Report.WriteLn Dic("FmtHtmlDefault3") strSep = "" iNameLast = oStringDictionaryNames.Count - 1 For iName = 4 To iNameLast Report.WriteFormatted "{0}{1&t}", strSep, oStringDictionaryNames.Key(iName) strSep = ", " Next Report.WriteBr "." End If Report.WriteBr Report.WriteFormatted Dic("FmtCopyright"), "© 1998-2011 GenoPro Inc." Report.WriteFormatted Dic("FmtHtmlDefault6"), "http://www.genopro.com/" End Sub Sub WriteFamily(iFamily) Dim strName If (iFamily < oStringDictionaryNames.Count) Then strName = oStringDictionaryNames.Key(iFamily) Report.WriteFormattedLn "

  • {1}.
  • ", strName, Util.FormatPhrase(Dic("FmtHtmlDefault4"), strName, oStringDictionaryNames.KeyCounter(iFamily), (iFamily Mod 2) = 0, (iFamily Mod 3) <> 0, iFamily = 0) End If End Sub ]%>