case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Footer(modul: Web Publishing)

[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]

Vyhodnocovací funkce
Footer
(Web Publishing)

Vytvořeno:	03-05-1997 11:28:22
Poslední změna:	01-14-2003 13:34:21

Generates standard document footer used for all HTML pages.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Footer(topic$)
BEGIN
  PRINT NL;

  /* Table Content */
  c11$ = "Generováno: " + Date$() + " " + Time$();
  c12$ = "Systém: " + System$();
  c13$ = "Generováno systémem case/4/0";
  FOR User WHERE Login = User$() DO
    UserName$ = Fullname;
  END
  c21$ = "Vygeneroval: " + UserName$;
  c22$ = "Soubor: " + File$();
  c23$ = Anchor$("(C) microTOOL GmbH 2002", "", "http://www.microtool.de/e_index.htm");

  /* Table Content Renditions */
  a$ = "<FONT SIZE=""1"" FACE=""Verdana, Arial"">";
  b$ = "</FONT>";

  /* Horizontal line */
  PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">",NL;
  /* Tabular Footer */
// PRINT {HTML} "<TABLE BORDER=""0"" WIDTH=""800"" COLS=3>", NL;
  PRINT {HTML} "<TABLE BORDER=""0"" WIDTH=""100%"" COLS=3 NOWRAP>", NL;
  PRINT {HTML} " <TR>", NL;
// PRINT {HTML} " <TD valign=""top"" width=""266"">" + a$ + c11$ + b$ + "</TD>", NL;
// PRINT {HTML} " <TD valign=""top"" width=""266"">" + a$ + c12$ + b$ + "</TD>", NL;
// PRINT {HTML} " <TD valign=""top"" width=""266"">" + a$ + c13$ + b$ + "</TD>", NL;
  PRINT {HTML} " <TD valign=""top"" NOWRAP>" + a$ + c11$ + b$ + "</TD>", NL;
  PRINT {HTML} " <TD valign=""top"" NOWRAP>" + a$ + c12$ + b$ + "</TD>", NL;
  PRINT {HTML} " <TD valign=""top"" NOWRAP>" + a$ + c13$ + b$ + "</TD>", NL;
  PRINT {HTML} " </TR>", NL;
  PRINT {HTML} " <TR>", NL;
// PRINT {HTML} " <TD valign=""top"" width=""266"">" + a$ + c21$ + b$ + "</TD>", NL;
// PRINT {HTML} " <TD valign=""top"" width=""266"">" + a$ + c22$ + b$ + "</TD>", NL;
// PRINT {HTML} " <TD valign=""top"" width=""266"">" + a$ + c23$ + b$ + "</TD>", NL;
  PRINT {HTML} " <TD valign=""top"" NOWRAP>" + a$ + c21$ + b$ + "</TD>", NL;
  PRINT {HTML} " <TD valign=""top"" NOWRAP>" + a$ + c22$ + b$ + "</TD>", NL;
  PRINT {HTML} " <TD valign=""top"" NOWRAP>" + a$ + c23$ + b$ + "</TD>", NL;
  PRINT {HTML} " </TR>", NL;
  PRINT {HTML} "</TABLE>", NL;

  PRINT {HTML} "</FONT>",NL,"</BODY>",NL,"</HTML>",NL;
END

Generováno: 16.10.2003 7:41	Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf	Generováno systémem case/4/0
Vygeneroval: Administrator	Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\16531.htm	(C) microTOOL GmbH 2002