Html Tags

Thu, 5 Apr 2001 14:07:35 -0500

On 04/05/2001 01:41:26 PM powerh-l-admin wrote:

>We are looking at putting some Quiz reports on our intranet.  I am looking
>for anyone who may have a quiz program defining html tags that we can
inbed
>into quiz programs with a 'use' statement.

Here is something I wrote years ago & then never actually used. Can't
guarantee everything works, but let me know if it helps:

_______________________________________________
Mark Marston, Senior Programmer/Analyst
Lyric Opera of Chicago
20 N. Wacker Drive, Suite 860
Chicago, IL  60606
Phone: (312) 827-5651
Fax: (949) 606-9244
mmarston@lyricopera.org

Opinions expressed in this message are my own and do not represent the
opinions or policies of my employer or anyone else.
======================================================================================================
;; use this file in any program where the output is to be in HTML format

;; the variables REP-DESC and DEPT must be defined in the program

def title char*70 = pack("<TITLE>" + rep-desc + "</TITLE>")
def heading-1 char*70 = pack("<H3>Your Company Name - " + &
                             dept + " Department</H3>")
def heading-2 char*70 = pack("<H3>" + rep-desc + "</H3>")

;rep statement should be in the program using the following as needed -mwm
def table-start char*30 = '<TABLE BORDER = "0"> <TR>'  ;no grid
def table-end   char*10 = "</TR></TABLE>"

def th-start char*25 = '<TH><font size="2">'      ;Table heading, 10 pt
def th-end   char*15 = '</font></TH>'             ;        "
def cell-start char*25 = '<TD><font size="2">'    ;Table cell data, 10 pt
def cell-r-start char*40 = &
                '<TD ALIGN=RIGHT><font size="2">' ;right aligned cell
def cell-end   char*15 = '</font></TD>'           ;Table cell end (either
align)
def new-row    char*10 = '</TR><TR>'              ;new row in table

def blank-column char*30 = '<TD width = "30">&nbsp;</TD>'

initial heading               &
             tab 01 "<HTML>"  &
      skip 1 tab 05 "<HEAD>"  &
      skip 1 tab 10 title     &
      skip 1 tab 05 "</HEAD>" &
      skip 1 tab 05 "<BODY>"  &
      skip 2 tab 05 "<CENTER>" heading-1 &
      skip 1 tab 05 heading-2 "</CENTER>"

;copy and paste into any FINAL FOOTING already in the program -mwm

;final footing skip 2 tab 05 "</BODY>"  &
;              skip 1 tab 01 "</HTML>"