%[@ 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.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 "