<%[@ 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 ]@
<%[ NoFrames]%>
<%[
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 "
", strName, Util.FormatPhrase(Dic("FmtHtmlDefault4"), strName, oStringDictionaryNames.KeyCounter(iFamily), (iFamily Mod 2) = 0, (iFamily Mod 3) <> 0, iFamily = 0)
End If
End Sub
]%>