create or replace procedure t8r(nro integer,vali integer, pvm char,seli char,val char) is style varchar2(8); begin iht2.page_start('testisivu2'); htp.p('<body bgcolor=white<'); style:= 'NL_COL2'; iht2.colored_text('BLUE','GRAY','Otsikko',50,+1); -- parameters are printed as a 2-column table iht2.table_start; iht2.field_print('Numero',nro,style); iht2.field_print('Väli',vali,style); iht2.field_print('Päiväys',pvm,style); iht2.field_print('Selityksiä',seli,style); iht2.field_print('Valikko',val,style); iht2.table_end; iht2.page_end('15.2.1999','Esimerkki Harri Laine'); exception when others then htp.p('Virhe:'||sqlerrm); end; / show errors exit