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